ارسال بريد الكتروني من اي ايميل الى اي ايميل آخر باستخدام smtp مجاني

يمكننا هذا الكود من ارسال ايميل عن طريق كود vb باستخدام ملقم smtp

وهو يعمل على windows app و web app

والميزة في ملقم smtp المستخدم هو انك لا تحتاج الى حساب لدى الشركة من اجل الدخول الى الملقم واستخدامه في ارسال رسالة من اي ايميل تكتبه حتى ولو كان غير صحيح الى اي ايميل آخر.

فهل لدى احد منكم ملقمات smtp غير الذي استخدمته

		Dim sm As New Net.Mail.SmtpClient

		Dim ad1 As New Net.Mail.MailAddress("amjad-ee@hotmail.com")
		Dim ad2 As New Net.Mail.MailAddress("amjad-ee@hotmail.com")

		Dim mail As New Net.Mail.MailMessage(ad1, ad2)

		mail.Subject = "العنوان"
		mail.Body = "نص الرسالة"

		sm.Host = "out.aloola.sy"

		sm.Send(mail)