أريد ارسل ايميلات مع المرفقات بشكل تلقائى VB.net 2012

الكود التالي يقوم بإرسال رسالة من حساب Gmail وتستطيع تغييره لما تريد إلى حساب آخر باستخدام العناصر من System.Net.Mail. لاحظ الكود جيدا. لاحظ أن الرسالة هي عبارة عن رسالة HTML. ولاحظ أن المثال يقوم بإضافة ملف مرفق إلى الرسالة وبالطبع سوف يحدث خطأ إن لم يكن هذا الملف موجود على جهازك. ولاحظ أيضا كيفية تحديد إعدادات السيرفر.

عناوين البريد الإلكتروني هذه هي عبارة عن عناوين وهمية وليست موجودة وهي فقط للمثال وليست للعمل. قم بتغيير العناوين لتصبح عناوين حقيقية. كما يمكنك تغيير إعدادات السيرفر لتوافق إعدادات أي سيرفر تريده إن لم يكن عندك حساب على Gmail. وأيضا لا يشترط إرسال رسالة إلى نفس السيرفر. بمعنى أنه لا يشترط بالطبع إرسال رسالة من Hotmail إلى Hotmail آخر. ولكن يجب أن يكون بريد الراسل على نفس السيرفر المحدد. أما المستلم فلا يشترط له هذا أبدا.

PHP كود :

' VB.NET Code
Dim msg As New MailMessage()
' Your mail address and display name.
' This what will appear on the From field.
' If you used another credentials to access
' the SMTP server, the mail message would be
' sent from the mail specified in the From
' field on behalf of the real sender.
msg.From = New MailAddress("example@gmail.com", "Example")
' To addresses
msg.To.Add("friend_a@example.com")
msg.To.Add(New MailAddress("friend_b@example.com", "Friend B"))
' You can specify CC and BCC addresses also
' Set to high priority
msg.Priority = MailPriority.High
msg.Subject = "Hey, a fabulous site!"
' You can specify a plain text or HTML contents
msg.Body = _
   "Hello everybody,<br /><br />" &amp;amp; _
   "I found an interesting site called " &amp;amp; _
   "<a href=""http://withdotnet.net"">" &amp;amp; _
   "مع الدوت نت</a>. Be sure to visit it soon."
' In order for the mail client to interpret message
' body correctly, we mark the body as HTML
' because we set the body to HTML contents.
msg.IsBodyHtml = True
' Attaching some data
msg.Attachments.Add(New Attachment("D:\Site.lnk"))
' Connecting to the server and configuring it
Dim client As New SmtpClient()
client.Host = "mail.gmail.com"
client.Port = 578
client.EnableSsl = True
' The server requires user's credentials
' not the default credentials
client.UseDefaultCredentials = False
' Provide your credentials
client.Credentials = New System.Net.NetworkCredential("example@gmail.com", "buzzwrd")
client.DeliveryMethod = SmtpDeliveryMethod.Network
' Use SendAsync to send the message asynchronously
client.Send(msg)