ENVIANDO EMAIL COM OUTLOOK
Olá pessoal
Esse programa abaixo ele envia email por Gmail, Terra. Hotmail, etc, mas não manda quando o remetente é outlook
Dim NomeRemetente As String = [Ô]Júlio[Ô]
[txt-color=#e80000]Dim EmailRemetente As String = [Ô]jcm0867@outlook.com[Ô][/txt-color]
Dim Senha As String = [Ô]MinhaSenha[Ô]
Dim EmailDestinatario As String=[Ô]jcm_67@terra.com.br[Ô]
Dim AssuntoMensagem As String = [Ô]Teste de envio de emails usando System.Net.Mail em VB.NET[Ô]
Dim ConteudoMensagem As String = [Ô]Teste de envio de emails usando System.Net.Mail em VB.NET[Ô]
Dim objEmail As New System.Net.Mail.MailMessage()
Dim ArquivoAnexo As String = [Ô]C:\Itau\RemessaItau.txt[Ô]
objEmail.From = New System.Net.Mail.MailAddress([Ô]<[Ô] & EmailRemetente & [Ô]>[Ô])
objEmail.To.Add([Ô]<[Ô] & EmailDestinatario & [Ô]>[Ô])
objEmail.Priority = System.Net.Mail.MailPriority.Normal
objEmail.IsBodyHtml = True
objEmail.Subject = AssuntoMensagem
objEmail.Body = [Ô]<b>[Ô] & ConteudoMensagem & [Ô]</b>[Ô]
objEmail.SubjectEncoding = System.Text.Encoding.GetEncoding([Ô]ISO-8859-1[Ô])
objEmail.BodyEncoding = System.Text.Encoding.GetEncoding([Ô]ISO-8859-1[Ô])
objEmail.Attachments.Add(New Net.Mail.Attachment(ArquivoAnexo))
Dim objSmtp As New System.Net.Mail.SmtpClient
objSmtp.EnableSsl = False
objSmtp.Port = 587
[txt-color=#e80000]objSmtp.Host = [Ô]smtp.mail.com[Ô][/txt-color]
objSmtp.Credentials = New System.Net.NetworkCredential(EmailRemetente, Senha)
Try
objSmtp.Send(objEmail)
MsgBox([Ô]E-mail enviado com sucesso![Ô])
Catch ex As Exception
MsgBox([Ô]Ocorreram problemas no envio do e-mail. Erro = [Ô] & ex.Message)
End Try
objEmail.Dispose()
o erro está na imagem, independente se usando objSmtp.EnableSsl = False ou objSmtp.EnableSsl = True
O que falta?
Esse programa abaixo ele envia email por Gmail, Terra. Hotmail, etc, mas não manda quando o remetente é outlook
Dim NomeRemetente As String = [Ô]Júlio[Ô]
[txt-color=#e80000]Dim EmailRemetente As String = [Ô]jcm0867@outlook.com[Ô][/txt-color]
Dim Senha As String = [Ô]MinhaSenha[Ô]
Dim EmailDestinatario As String=[Ô]jcm_67@terra.com.br[Ô]
Dim AssuntoMensagem As String = [Ô]Teste de envio de emails usando System.Net.Mail em VB.NET[Ô]
Dim ConteudoMensagem As String = [Ô]Teste de envio de emails usando System.Net.Mail em VB.NET[Ô]
Dim objEmail As New System.Net.Mail.MailMessage()
Dim ArquivoAnexo As String = [Ô]C:\Itau\RemessaItau.txt[Ô]
objEmail.From = New System.Net.Mail.MailAddress([Ô]<[Ô] & EmailRemetente & [Ô]>[Ô])
objEmail.To.Add([Ô]<[Ô] & EmailDestinatario & [Ô]>[Ô])
objEmail.Priority = System.Net.Mail.MailPriority.Normal
objEmail.IsBodyHtml = True
objEmail.Subject = AssuntoMensagem
objEmail.Body = [Ô]<b>[Ô] & ConteudoMensagem & [Ô]</b>[Ô]
objEmail.SubjectEncoding = System.Text.Encoding.GetEncoding([Ô]ISO-8859-1[Ô])
objEmail.BodyEncoding = System.Text.Encoding.GetEncoding([Ô]ISO-8859-1[Ô])
objEmail.Attachments.Add(New Net.Mail.Attachment(ArquivoAnexo))
Dim objSmtp As New System.Net.Mail.SmtpClient
objSmtp.EnableSsl = False
objSmtp.Port = 587
[txt-color=#e80000]objSmtp.Host = [Ô]smtp.mail.com[Ô][/txt-color]
objSmtp.Credentials = New System.Net.NetworkCredential(EmailRemetente, Senha)
Try
objSmtp.Send(objEmail)
MsgBox([Ô]E-mail enviado com sucesso![Ô])
Catch ex As Exception
MsgBox([Ô]Ocorreram problemas no envio do e-mail. Erro = [Ô] & ex.Message)
End Try
objEmail.Dispose()
o erro está na imagem, independente se usando objSmtp.EnableSsl = False ou objSmtp.EnableSsl = True
O que falta?
Experimente colocar os dados de credenciais antes de passar o endereço do SMTP
deu o Mesmo erro
Este usuário [Ô]jcm0867@outlook.com[Ô] é válido?
sim [txt-color=#0000f0]jcm0867@outlook.com[/txt-color] existe, uso ele para acesso ao onedrive e as vezes uso para receber e enviar emails
Cara tem certeza que esse Smtp host está correto? tente da seguinte forma:
objSmtp.Host = [Ô]mail.outlook.com[Ô]
e outra coisa a exception está falando de SSL não teria que deixar o SSL = true?
Abraços!
objSmtp.Host = [Ô]mail.outlook.com[Ô]
e outra coisa a exception está falando de SSL não teria que deixar o SSL = true?
Abraços!
smtp do outlook.com e este objSmtp.Host = [Ô]smtp-mail.outlook.com[Ô]
Servidor de saÃda (SMTP)
Endereço do servidor: smtp-mail.outlook.com
Porta: 25 (ou 587 se a 25 estiver bloqueada)
Autenticação: Sim
Conexão criptografada: TLS
Nome de usuário: seu endereço de email
Senha: sua senha
Endereço do servidor: smtp-mail.outlook.com
Porta: 25 (ou 587 se a 25 estiver bloqueada)
Autenticação: Sim
Conexão criptografada: TLS
Nome de usuário: seu endereço de email
Senha: sua senha
Citação::
smtp do outlook.com e este objSmtp.Host = [Ô]smtp-mail.outlook.com[Ô]
é isso mesmo, descofiei que o SMTP estava errado e o SSL é True
tem o smtp.live.com que é para o Hotmail, achei que era o mesmo para o outlook
Valeu
Tópico encerrado , respostas não são mais permitidas