sheida-peyravi
شنبه 15 تیر 1387, 07:50 صبح
من با اين كد چند مرتبه ايميل ارسال كرده ام ،اما چند وقت كه كدم هيچ خطايي ندارد اما ايميل را ارسال نمي كند:عصبانی:نمي فهمم علتش چيست؟ لطفا يكي به من كمك كند.
PrivateSub SendMailWork()
Dim mailMsg AsNew MailMessage
mailMsg.From = "sheida_peyravi2000@yahoo.com"
mailMsg.To = """)
mailMsg.Subject = "اطلاع رساني "
mailMsg.BodyFormat = MailFormat.Text
mailMsg.Body = "this is body"
mailMsg.Priority = MailPriority.High
SmtpMail.SmtpServer.Insert(0, "smtp.yahoo.com")
' - smtp.gmail.com use smtp authentication
mailMsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
mailMsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "sheida_peyravi2000@yahoo.com")
mailMsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "mypassword")
' - smtp.gmail.com use port 465 or 587
mailMsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", "465")
' - smtp.gmail.com use STARTTLS (some call this SSL)
mailMsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpusessl", "true")
' try to send Mail
Try
SmtpMail.Send(mailMsg)
Catch ex As Exception
MsgBox("SendMail (Error): " + ex.Message + ex.Source)
EndTry
EndSub
همچنين بعد از چند روز كه ايميل ارسال مي شود، بخشهايي كه فارسي نوشته شده را به اين شكل "؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟" نمايش ميدهد
با تشكر
شيدا
PrivateSub SendMailWork()
Dim mailMsg AsNew MailMessage
mailMsg.From = "sheida_peyravi2000@yahoo.com"
mailMsg.To = """)
mailMsg.Subject = "اطلاع رساني "
mailMsg.BodyFormat = MailFormat.Text
mailMsg.Body = "this is body"
mailMsg.Priority = MailPriority.High
SmtpMail.SmtpServer.Insert(0, "smtp.yahoo.com")
' - smtp.gmail.com use smtp authentication
mailMsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
mailMsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "sheida_peyravi2000@yahoo.com")
mailMsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "mypassword")
' - smtp.gmail.com use port 465 or 587
mailMsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", "465")
' - smtp.gmail.com use STARTTLS (some call this SSL)
mailMsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpusessl", "true")
' try to send Mail
Try
SmtpMail.Send(mailMsg)
Catch ex As Exception
MsgBox("SendMail (Error): " + ex.Message + ex.Source)
EndTry
EndSub
همچنين بعد از چند روز كه ايميل ارسال مي شود، بخشهايي كه فارسي نوشته شده را به اين شكل "؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟" نمايش ميدهد
با تشكر
شيدا