طريقة إرسال بريد إليكتروني من موقعك الخاص تلقائياً

السلام عليكم ورحمة الله وبركاته,

أما بعد,

فهذه طريقة سهلة وبسيطة لإرسال رسائل على البريد الإليكتروني بصورة أوتوماتيكية من على موقعك الخاص.

وقد راعيت فيها حل رسالة الخطأ التي تظهر على الشكل التالي:-

SMTP Authentication Error

والتي تسبب إزعاج شديد للمبرمجين المبتدئين

ويجب تضمين الكلاس

System.Net.Mail

الكود كالتالي:-

Public Class MailEngine

Private sHost As String

Private sDisplayName As String

Private sSender As String

Private sPassword As String

Public Sub New()

sHost = "Host"

sDisplayName = "DisplayName"

sSender = "your mail @ host"

sPassword = "password"

End Sub

Public Sub SendEmail(ByVal sTo As String, ByVal sSubject As String, ByVal sBody As String)

Dim mmMessage As MailMessage

Dim scSmtp As SmtpClient

Try

mmMessage = New MailMessage()

mmMessage.From = New MailAddress(sSender, sDisplayName)

mmMessage.To.Add(sTo)

mmMessage.Subject = sSubject

mmMessage.Body = sBody

mmMessage.IsBodyHtml = False

scSmtp = New SmtpClient(sHost)

scSmtp.Credentials = New System.Net.NetworkCredential(sSender, sPassword)

scSmtp.Send(mmMessage)

Catch Exc As Exception

''

End Try

End Sub

End Class

جزاكم الله خيراً