سلام دوستان،
كسي ميدونه چطور ميتونيم در VB 2005 يا همون .Net 2 ايميل بفرستيم به طوري كه يه قسمتي هم براي Authentication هم داشته باشه. يعني من ميخوام با استفاده از ايميلم در Gmail، در وي بي يك ايميل بفرستم.
نمي دونم منظورم رو فهميديد يا خير؟
Printable View
سلام دوستان،
كسي ميدونه چطور ميتونيم در VB 2005 يا همون .Net 2 ايميل بفرستيم به طوري كه يه قسمتي هم براي Authentication هم داشته باشه. يعني من ميخوام با استفاده از ايميلم در Gmail، در وي بي يك ايميل بفرستم.
نمي دونم منظورم رو فهميديد يا خير؟
سلامنقل قول:
اينو امتحان كنيد :
کد:Dim mymail As MailMessage = New MailMessage
mymail.BodyEncoding = System.Text.Encoding.UTF8
mymail.From = "Me@My.Com"
mymail.To = txtToEmail.Text
mymail.Subject = txtSubject.Text
mymail.Body = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=utf-8'></head><body>Body</body></html>"
mymail.BodyFormat = MailFormat.Html
SmtpMail.SmtpServer = "mail.gmail.com"
mymail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "Me@GMail.com")
mymail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "YOURPASSWORD")
mymail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
Try
SmtpMail.Send(mymail)
Catch ex As Exception
End Try
نقل قول:
دست شما درد نكنه، هر چند كه من ديروز خيلي گشتم بالاخره اون كد مربوطه رو پيدا كردم ولي اين كد شما هم چند تا Error ميده. از اين قبيل:
و يك چند تا Error ديگه. من اين كد رو چند جاي ديگه هم ديده بودم ولي براي همين Error ها نتونستم ازشون استفاده كنم تا كه بالاخره اين رو تونستم پيدا كنم:کد:STMPMail is not declared
Bodyformat is not part of Mymail
باز هم از شما ممنونم. ميگم اين كد شما كه فكر كنم HTML باشه براي چي هست؟کد:Try
Dim strAddress As String = "xxx@xxxx.com"
Dim sm As New SmtpClient(Host, Port)
With sm
.EnableSsl = True
.Credentials = New NetworkCredential("MyuserName", "MyPass")
.TimeOut = 20000 ' I add this extra line
End With
Dim _from As MailAddress = New MailAddress(strAddress)
Dim _to As MailAddress = New MailAddress(strAddress)
Dim mMsg As New MailMessage(_from, _to)
mMsg.Subject = "Happy AAA"
sm.Send(mMsg)
msg = "Seccess!"
Catch ex As Exception
msgbox (ex.Message)
End Try
آيا براي تايپ فارسي هست؟ ميگم ميشه يك كاري كرد كه اگر من ايميل فارسي بفرستم به يك نفر، طرف ديگه نياز نباشه بره توي قسمت Encoding ها و گزينه ي UTF-8 رو انتخاب كنه؟ چون من با اين كد HTML شما همين الان امتحان كردم نشد. و بايد Encoding رو به UTF-8 تغيير داد.کد:<html><head><meta http-equiv='Content-Type' content='text/html; charset=utf-8'></head><body>Body</body></html>
راستي كسي در مورد تغيير فونت ايميل ها (ترجيحا به Tahoma) و خصوصيت راست به چپ (Right To Left) چيزي ميدونه؟ چطور ميشه در وي بي اين كار رو كرد؟(فكر كنم بايد باز هم از كدهاي HTML استفاده بشه)