fa_karoon
سه شنبه 01 تیر 1389, 10:07 صبح
سلام دوستان من کد زیر را برای ارسال ایمیل به کاربران سایتم قرار دادم اما در چند خط اون مشکل دارم و نمی دونم چه کار می کنند و باید چه چیزی رو تغییر بدم(پس از مطالعه درباره ارسال ایمیل این کد رو پیدا کردم و بر اساس نیاز خودم تغییر دادم)
'-------- my Code to mail----------------
Dim obj As New SmtpClient
Dim Mailmsg As New MailMessage
Mailmsg.To.Clear()
Mailmsg.To.Add(New MailAddress(FilterRequestFileGridView.Rows(i).Cell s(5).Text))
Mailmsg.From = New MailAddress("davoodqasemi@yahoo.com")
Mailmsg.Subject = "Accept Your Request"
Mailmsg.BodyEncoding = System.Text.Encoding.UTF8
Mailmsg.IsBodyHtml = True
'----Detect User MailServer --------
i = FilterRequestFileGridView.Rows(0).Cells(5).Text.In dexOf("@") + 1
j = FilterRequestFileGridView.Rows(0).Cells(5).Text.In dexOf("com") - 4
S = FilterRequestFileGridView.Rows(0).Cells(5).Text.Su bstring(i, j)
'----------------
obj.Host = "mail." & S & ".com"
Dim basicAuthenticationInfo As New System.Net.NetworkCredential(mfrom, pass)
obj.UseDefaultCredentials = False
obj.Credentials = basicAuthenticationInfo
Mailmsg.Body = "درخواست شما پس از بررسی پذیرفته شد اکنون می توانید مقالات مورد نیاز خود را دریافت کنید"
Try
obj.Send(Mailmsg)
Catch ex As Exception
End Try
'----------------------------------------
در خط
Dim basicAuthenticationInfo As New System.Net.NetworkCredential(mfrom, pass)
نمی دانم به جای mform و pass چه باید بگذارم
این خط
obj.Credentials = basicAuthenticationInfo را هم نمی دانم چه می کند و چه تغییری باید در آن ایجاد کنم
'-------- my Code to mail----------------
Dim obj As New SmtpClient
Dim Mailmsg As New MailMessage
Mailmsg.To.Clear()
Mailmsg.To.Add(New MailAddress(FilterRequestFileGridView.Rows(i).Cell s(5).Text))
Mailmsg.From = New MailAddress("davoodqasemi@yahoo.com")
Mailmsg.Subject = "Accept Your Request"
Mailmsg.BodyEncoding = System.Text.Encoding.UTF8
Mailmsg.IsBodyHtml = True
'----Detect User MailServer --------
i = FilterRequestFileGridView.Rows(0).Cells(5).Text.In dexOf("@") + 1
j = FilterRequestFileGridView.Rows(0).Cells(5).Text.In dexOf("com") - 4
S = FilterRequestFileGridView.Rows(0).Cells(5).Text.Su bstring(i, j)
'----------------
obj.Host = "mail." & S & ".com"
Dim basicAuthenticationInfo As New System.Net.NetworkCredential(mfrom, pass)
obj.UseDefaultCredentials = False
obj.Credentials = basicAuthenticationInfo
Mailmsg.Body = "درخواست شما پس از بررسی پذیرفته شد اکنون می توانید مقالات مورد نیاز خود را دریافت کنید"
Try
obj.Send(Mailmsg)
Catch ex As Exception
End Try
'----------------------------------------
در خط
Dim basicAuthenticationInfo As New System.Net.NetworkCredential(mfrom, pass)
نمی دانم به جای mform و pass چه باید بگذارم
این خط
obj.Credentials = basicAuthenticationInfo را هم نمی دانم چه می کند و چه تغییری باید در آن ایجاد کنم