:: ENVIO DE EMAIL ::
Pessoal,
Após procurar por diversos topicos aqui... consegui enviar emails através do meu programa e acessando uma base de dados com os endereços e anexos...
Porém, o problema agora é que quando o programa vai enviar o email aparece uma mensagem do outlook que outro programa está tentando enviar um email e pede uma confirmação... caso eu naum esteja em frente o micro o email naum será enviado..
Existe alguma forma de enviar a mensagem sem o pedido de confirmação?
Aguardo resposta...
Após procurar por diversos topicos aqui... consegui enviar emails através do meu programa e acessando uma base de dados com os endereços e anexos...
Porém, o problema agora é que quando o programa vai enviar o email aparece uma mensagem do outlook que outro programa está tentando enviar um email e pede uma confirmação... caso eu naum esteja em frente o micro o email naum será enviado..
Existe alguma forma de enviar a mensagem sem o pedido de confirmação?
Aguardo resposta...
Colega, o melhor método que encontrei, é com o CDOSYS: ENVIANDO E-MAIL COM CDOSYS E VB6...flw
olha eu useio o cdonts.dll é melhor coisa que fiz se precisar eu mando um exemplo
CLAJMC,
Vc pode entaum, por favor, me mandar um exemplo usando o cdonts.dll...
Desde já agradeço...
Vc pode entaum, por favor, me mandar um exemplo usando o cdonts.dll...
Desde já agradeço...
dim Mailer As New CDONTS.NewMail
Dim MSG As String
MSG = "<font face=tahoma size=1 style=font-size:11px>"
MSG = MSG & "MENSSAGEM ENVIADA PELA IDIAIS MAGICAS<BR>"
MSG = MSG & "<b>Nome: </b>" & strEmailUsuario & "<br>"
MSG = MSG & "<b>E-mail: </b>" & txtEmailEnviado.Text & "<br>"
MSG = MSG & "<b>ASSUNTO: </b>" & txtAssunto.Text & "<br>"
MSG = MSG & "<b>Anexo: </b>" & txtAnexo.Text & "<br>"
MSG = MSG & "<b>Mensagem: </b>" & txtMenssagem.Text & "<br>"
MSG = MSG & "</font>"
With Mailer
stbConexao.Panels(1) = "ENVIANDO MENSSAMGE"
.From = strEmailUsuario
.To = txtEmailEnviado.Text
If cboPrioridade.Text = "Média" Then Op = 0 Else: If cboPrioridade.Text = "Normal" Then Op = 1 Else: If cboPrioridade.Text = "ALTA" Then Op = 2
.Importance = Op
.MailFormat = 0
.BodyFormat = 0
.AttachFile txtAnexo.Text, ComDlg.FileTitle
.Subject = txtAssunto.Text
.Body = MSG
.Send
stbConexao.Panels(1) = "MENSSAGEM ENVIADA COM SUCESSO"
Set Mailer = Nothing
End With
MsgBox "SUA MENSSAGEM FOI ENVIADA COM SUCESSO", vbInformation, "MENSSAGEM"~
não se esqueça de referenciar o CDONTS.DLL SE VC NÃO TIVER AI VAI ELE
Dim MSG As String
MSG = "<font face=tahoma size=1 style=font-size:11px>"
MSG = MSG & "MENSSAGEM ENVIADA PELA IDIAIS MAGICAS<BR>"
MSG = MSG & "<b>Nome: </b>" & strEmailUsuario & "<br>"
MSG = MSG & "<b>E-mail: </b>" & txtEmailEnviado.Text & "<br>"
MSG = MSG & "<b>ASSUNTO: </b>" & txtAssunto.Text & "<br>"
MSG = MSG & "<b>Anexo: </b>" & txtAnexo.Text & "<br>"
MSG = MSG & "<b>Mensagem: </b>" & txtMenssagem.Text & "<br>"
MSG = MSG & "</font>"
With Mailer
stbConexao.Panels(1) = "ENVIANDO MENSSAMGE"
.From = strEmailUsuario
.To = txtEmailEnviado.Text
If cboPrioridade.Text = "Média" Then Op = 0 Else: If cboPrioridade.Text = "Normal" Then Op = 1 Else: If cboPrioridade.Text = "ALTA" Then Op = 2
.Importance = Op
.MailFormat = 0
.BodyFormat = 0
.AttachFile txtAnexo.Text, ComDlg.FileTitle
.Subject = txtAssunto.Text
.Body = MSG
.Send
stbConexao.Panels(1) = "MENSSAGEM ENVIADA COM SUCESSO"
Set Mailer = Nothing
End With
MsgBox "SUA MENSSAGEM FOI ENVIADA COM SUCESSO", vbInformation, "MENSSAGEM"~
não se esqueça de referenciar o CDONTS.DLL SE VC NÃO TIVER AI VAI ELE
Tópico encerrado , respostas não são mais permitidas