MANDAR EMAIL PELO HOTMAIL
PESSOAL PRECISO MANDAR EMAIL PELO HOTMAIL NO EVENTO CLICK DE UM BOTÃO.
O CÓDIGO ABAIXO NÃO Tà FUNCIONANDO. ALGUéM CONSEGUE ME AJUDAR ?
USEI Imports EASendMail
E O CÓDIGO
Dim oMail As New SmtpMail([Ô]TryIt[Ô])
Dim oSmtp As New SmtpClient()
[ô] Your hotmail email address
oMail.From = [Ô]ana.zumbaio@hotmail.com[Ô]
[ô] Set recipient email address, please change it to yours
oMail.To = [Ô]gilberto@gmail.com[Ô]
[ô] Set email subject
oMail.Subject = [Ô]test email from hotmail account[Ô]
[ô] Set email body
oMail.TextBody = [Ô]this is a test email sent from VB.NET project with hotmail[Ô]
[ô] Hotmail SMTP server address
Dim oServer As New SmtpServer([Ô]smtp.live.com[Ô])
[ô] Hotmail user authentication should use your
[ô] email address as the user name.
oServer.User = [Ô]ana@hotmail.com[Ô]
oServer.Password = [Ô]xxxxxx[Ô]
[ô] detect SSL/TLS connection automatically
oServer.ConnectType = SmtpConnectType.ConnectSSLAuto
Try
Console.WriteLine([Ô]start to send email over SSL ...[Ô])
oSmtp.SendMail(oServer, oMail)
Console.WriteLine([Ô]email was sent successfully![Ô])
Catch ep As Exception
Console.WriteLine([Ô]failed to send email with the following error:[Ô])
Console.WriteLine(ep.Message)
End Try
O CÓDIGO ABAIXO NÃO Tà FUNCIONANDO. ALGUéM CONSEGUE ME AJUDAR ?
USEI Imports EASendMail
E O CÓDIGO
Dim oMail As New SmtpMail([Ô]TryIt[Ô])
Dim oSmtp As New SmtpClient()
[ô] Your hotmail email address
oMail.From = [Ô]ana.zumbaio@hotmail.com[Ô]
[ô] Set recipient email address, please change it to yours
oMail.To = [Ô]gilberto@gmail.com[Ô]
[ô] Set email subject
oMail.Subject = [Ô]test email from hotmail account[Ô]
[ô] Set email body
oMail.TextBody = [Ô]this is a test email sent from VB.NET project with hotmail[Ô]
[ô] Hotmail SMTP server address
Dim oServer As New SmtpServer([Ô]smtp.live.com[Ô])
[ô] Hotmail user authentication should use your
[ô] email address as the user name.
oServer.User = [Ô]ana@hotmail.com[Ô]
oServer.Password = [Ô]xxxxxx[Ô]
[ô] detect SSL/TLS connection automatically
oServer.ConnectType = SmtpConnectType.ConnectSSLAuto
Try
Console.WriteLine([Ô]start to send email over SSL ...[Ô])
oSmtp.SendMail(oServer, oMail)
Console.WriteLine([Ô]email was sent successfully![Ô])
Catch ep As Exception
Console.WriteLine([Ô]failed to send email with the following error:[Ô])
Console.WriteLine(ep.Message)
End Try
Cara por experiencia propria, quando um cliente meu chega e me diz que tem uma conta no hotmail e quer enviar e-mail pelo sistema eu ja digo que não da pra fazer e falo pra ele criar um conta em outro servidor, tipo yahoo, gmail, ou qualquer outro que se possa configurar direto no outlook. Pois para usar o hotmail no outlook tem que instalar um outro componente pra funcionar.
Tenho aqui em um formulário e testei agora as 20:50 o envio de email com Hotmail e Bol
e enviou normal apesar de não usar.De uma coisa eu sei e não consegui foi com R7.
vb2010
Win7
e enviou normal apesar de não usar.De uma coisa eu sei e não consegui foi com R7.
vb2010
Win7
Pessoal o código abaixo funcionou para mim :
Dim mail As New MailMessage
Dim Para As String = [Ô]x[Ô]
For x = 0 To DataGridView1.Rows.Count - 1
Para = DataGridView1.Rows(x).Cells(10).Value
Dim testCheck As Boolean
testCheck = False
testCheck = Para Like [Ô]*?@?*.?*[Ô]
If testCheck = True Then [ô]precisa reconher se é email ou não.
GoTo 5
Else
GoTo 4
End If [ô]precisa reconher se é email ou não.
5: [ô]5: cinco está aquiiiii
Dim SmtpServer As New SmtpClient()
SmtpServer.Credentials = New Net.NetworkCredential([Ô]ana.zumbaio@hotmail.com[Ô], [Ô]Borboletas[Ô])
SmtpServer.Port = 587 [ô] Porta de acesso do Gmail. Alterar conforme o servidor de email
SmtpServer.Host = [Ô]smtp.live.com[Ô] [ô] Alterar conforme o servidor de email
SmtpServer.EnableSsl = True
mail = New MailMessage()
Dim addr() As String = Para.Split([Ô],[Ô])
Try
mail.From = New MailAddress(DataGridView1.Rows(x).Cells(10).Value, [Ô][Ô], System.Text.Encoding.UTF8)
Dim i As Byte
For i = 0 To addr.Length - 1
mail.To.Add(addr(i))
Next
mail.Subject = [Ô]ANA CRISTINA ZUMBAIO - KEUNE[Ô]
mail.Body = RichTextBox1.Text
[ô]mail.Attachments.Add(New Attachment([Ô]Se se quiser adicionar um anexo, inidcar qual o caminho dele, senão apagar a linha[Ô]))
mail.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
SmtpServer.Send(mail)
mail.Attachments.Clear()
Catch ex As Exception
Finally
End Try
[ô][ô][ô][ô][ô]End If
4: [ô]4: quatro está aquiiiii
Next
[ô]fim do código de emailssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
Button11.Visible = True
RichTextBox1.Text = Nothing
RichTextBox1.Visible = False
Button6.Visible = False
MsgBox([Ô]Emails enviados.[Ô])
Abraços;
Dim mail As New MailMessage
Dim Para As String = [Ô]x[Ô]
For x = 0 To DataGridView1.Rows.Count - 1
Para = DataGridView1.Rows(x).Cells(10).Value
Dim testCheck As Boolean
testCheck = False
testCheck = Para Like [Ô]*?@?*.?*[Ô]
If testCheck = True Then [ô]precisa reconher se é email ou não.
GoTo 5
Else
GoTo 4
End If [ô]precisa reconher se é email ou não.
5: [ô]5: cinco está aquiiiii
Dim SmtpServer As New SmtpClient()
SmtpServer.Credentials = New Net.NetworkCredential([Ô]ana.zumbaio@hotmail.com[Ô], [Ô]Borboletas[Ô])
SmtpServer.Port = 587 [ô] Porta de acesso do Gmail. Alterar conforme o servidor de email
SmtpServer.Host = [Ô]smtp.live.com[Ô] [ô] Alterar conforme o servidor de email
SmtpServer.EnableSsl = True
mail = New MailMessage()
Dim addr() As String = Para.Split([Ô],[Ô])
Try
mail.From = New MailAddress(DataGridView1.Rows(x).Cells(10).Value, [Ô][Ô], System.Text.Encoding.UTF8)
Dim i As Byte
For i = 0 To addr.Length - 1
mail.To.Add(addr(i))
Next
mail.Subject = [Ô]ANA CRISTINA ZUMBAIO - KEUNE[Ô]
mail.Body = RichTextBox1.Text
[ô]mail.Attachments.Add(New Attachment([Ô]Se se quiser adicionar um anexo, inidcar qual o caminho dele, senão apagar a linha[Ô]))
mail.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
SmtpServer.Send(mail)
mail.Attachments.Clear()
Catch ex As Exception
Finally
End Try
[ô][ô][ô][ô][ô]End If
4: [ô]4: quatro está aquiiiii
Next
[ô]fim do código de emailssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
Button11.Visible = True
RichTextBox1.Text = Nothing
RichTextBox1.Visible = False
Button6.Visible = False
MsgBox([Ô]Emails enviados.[Ô])
Abraços;
Caros MarceloKrol e Omar agradeço pela atenção ok.
Vejam que achei um código que funcionou.
Veja se conseguem me ajudar à entender.
Meu código manda os emails para toda a lista do datagridview.
Mas o que acontece caso no meu dos envios haja uma queda de internet ?
Vejam que achei um código que funcionou.
Veja se conseguem me ajudar à entender.
Meu código manda os emails para toda a lista do datagridview.
Mas o que acontece caso no meu dos envios haja uma queda de internet ?
Tópico encerrado , respostas não são mais permitidas