صراحة اخي الفورم يحتاج وقت لانشائه
لكني وجدت كود هنا يمكن ان تستفيد منه
الكود التالي يقوم بإرسال رسالة من حساب 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; _
"I found an interesting site called " &amp; _
"<a href=""http://withdotnet.net"">" &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)
لو نسخت الكود أخي لصفحة الدوت نت اظن حيكون افضل حتى تفهم الكود جيداً
أخي هل هو مشروع ام لديكم في العمل
لأني شخصياً استخدم موقع sendgrid لإرسالة رسالة ومرفقات الى آلاف المستخدمين وسيوفر عليك جهد ووقت باشتراك سنوي ويدعم الدوت نت
وتستطيع ايضا حفظ الايميلات فيه او الخاصة بموقعكم برفعه كمجلد اكسل اسهل واسرع في نفس الموقع
الموقع له مميزات كثيرة انصحكم به ..
اخي ممكن تبحث وستجد اكواد كثيرة تشرح هذا الشيء بعنوان Send Email in VB.NET - Tutorial