خدمت دوستان عزیز عرض کنم کد ارسال به هر بدبختی بود پیدا شد و مشکلات قبلی مثلا رفتن نامه در bulk دریافت کننده ویا error ها ی عجیب و غریب سرور ها خبری نیست .
مشکل اینجا است این کد در VB.net 2005 استفاده می شه و در حقیقت کلاسی که برای ارسال استفاده شده منسوخ شده ولی چاره نیست و پیش کامپایلر VB.net 2005 کد هایی که زده شده را بعنوان Warning می شناسه ولی برنامه کامپایل شده و کار می کنه ؟
به کد های قبلی یه قسمت اضافه شده که صحت و وجود ارسال کننده رو تایید می کنه که یک سرور هستش مال شرکت ماکروسافت ناراحت نباشید این سرور حالا حالا داون شدن نداره کد ر. ببینید و حالو ببرید :
در ضمن با vb.net 2003 اصلا مشکل نداره بچه های asp.net کار هم می تون ازش استفاده کنن
کد به زبان VB.NEt
Dim myMail As New MailMessage
Dim SmtpMail As SmtpMail
myMail.From = "name@yourdomain.com"
myMail.To = "name@doamin.com"
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", "mail.yourdomain.com")
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 25)
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing", 2)
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "name@yourdomain.com")
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "youremailpassword")
myMail.Subject = "salam "
myMail.BodyFormat = MailFormat.Html
myMail.BodyEncoding = System.Text.UTF8Encoding.UTF8
myMail.Body = " و نوشته شده برای تست ارسال این یک نامه تستی است"
myMail.Priority = MailPriority.High
SmtpMail.SmtpServer = "localhost"
'
SmtpMail.Send(myMail)
کد به زبان #C:
'MailMessage myMail = new MailMessage();
Dim myMail As New MailMessage
myMail.From = "name@yourdoamin.com"
myMail.To="toAddress@domain.com";
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver","mail.yourdoamin.com");
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport",25) ;
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing",2) ;
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate",1) ;
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername","name@yourdoamin.com") ;
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword","youremailpassword") ;
myMail.Subject = "Email Subject";
myMail.BodyFormat=MailFormat.Html;
myMail.BodyEncoding=System.Text.UTF8Encoding.UTF8;
myMail.Body=" This is Email Body.";
SmtpMail.SmtpServer="localhost";
SmtpMail.Send(myMail);
در ضمن قسمت آخر این تاپیک مال اونیی که میخواد همین کد رو با کلاس
System.Net.Web
که کلاس خود پیشنهادی ماکروسافت برای ارسال mail هست بهمون نشون بده؟
هر کی هستش ما منتظریم
ارسال e-mail با VB.NET 2005
پاسخ با نقل قول
نوشته شده توسط vahidiran
