shahab_ksh
پنج شنبه 13 مهر 1385, 16:57 عصر
سلام
من از کد زیر برای ارسال ایمیل استفاده میکنم
Sub Sndmail(ByVal strTo As String, ByVal strFrom As String, ByVal strSubject As String, ByVal strBody As String)
Dim obj As New SmtpClient
Dim Mailmsg As New MailMessage
Mailmsg.To.Clear()
Mailmsg.To.Add(New MailAddress(strTo))
Mailmsg.From = New MailAddress(strFrom)
Mailmsg.Subject = strSubject
Mailmsg.BodyEncoding = System.Text.Encoding.UTF8 ' تعیین کدینگ متن بادی
Mailmsg.IsBodyHtml = True
obj.Host = "mail.server.com" 'جواب میده mai.yoursite.com خود که معمولا smtp server تعیین
Dim basicAuthenticationInfo As New System.Net.NetworkCredential("info@mailserver", "123") ' رو انجام میده پس یوزر نیم و پسورد رو وارد میکنیم Authenticate این بخش کار
obj.UseDefaultCredentials = False
obj.Credentials = basicAuthenticationInfo
Mailmsg.Body = strBody ' این در حقیقت متن بادی است که شما میخواهید بفرستید
Mailmsg.IsBodyHtml = True ' است و متن ساده نیست html تعیین میکند که بادی شما از نوع
Try
obj.Send(Mailmsg)
Catch ex As Exception
End Try
End Sub
راهی نداره که میل سرور رو ندم یا از نام کاربری و کلمه عبور استفاده نکنم ؟
من از کد زیر برای ارسال ایمیل استفاده میکنم
Sub Sndmail(ByVal strTo As String, ByVal strFrom As String, ByVal strSubject As String, ByVal strBody As String)
Dim obj As New SmtpClient
Dim Mailmsg As New MailMessage
Mailmsg.To.Clear()
Mailmsg.To.Add(New MailAddress(strTo))
Mailmsg.From = New MailAddress(strFrom)
Mailmsg.Subject = strSubject
Mailmsg.BodyEncoding = System.Text.Encoding.UTF8 ' تعیین کدینگ متن بادی
Mailmsg.IsBodyHtml = True
obj.Host = "mail.server.com" 'جواب میده mai.yoursite.com خود که معمولا smtp server تعیین
Dim basicAuthenticationInfo As New System.Net.NetworkCredential("info@mailserver", "123") ' رو انجام میده پس یوزر نیم و پسورد رو وارد میکنیم Authenticate این بخش کار
obj.UseDefaultCredentials = False
obj.Credentials = basicAuthenticationInfo
Mailmsg.Body = strBody ' این در حقیقت متن بادی است که شما میخواهید بفرستید
Mailmsg.IsBodyHtml = True ' است و متن ساده نیست html تعیین میکند که بادی شما از نوع
Try
obj.Send(Mailmsg)
Catch ex As Exception
End Try
End Sub
راهی نداره که میل سرور رو ندم یا از نام کاربری و کلمه عبور استفاده نکنم ؟