14-11-12, 06:02 PM
تفضل أخي الكريم أمر الإرسال من حساب ياهو :
كود :
Try
Dim mail As Net.Mail.MailMessage = New Net.Mail.MailMessage()
mail.From = New Net.Mail.MailAddress("[color=#ff0000]SenderEmail@yahoo.com[/color]", "[color=#ff0000]Sender Name[/color]")
mail.To.Add(New Net.Mail.MailAddress("[color=#ff0000]ReceiverEmail@hotmaile.com[/color]"))
mail.Subject = "[color=#ff0000]Test Message From VB4Arb[/color]"
mail.Body = "[color=#ff0000]Hello[/color]"
Dim SmtpServer As New Net.Mail.SmtpClient()
SmtpServer.Credentials = New Net.NetworkCredential("[color=#ff0000]SenderEmail@yahoo.com[/color]", "[color=#ff0000]Password[/color]")
SmtpServer.Port = 25
SmtpServer.Host = "smtp.mail.yahoo.com"
SmtpServer.EnableSsl = False
SmtpServer.Send(mail)
MsgBox("Succeeded")
Catch ex As Exception
MsgBox("Error" & " : " & ex.Message)
End Try