zeos_man
جمعه 31 خرداد 1392, 00:56 صبح
درود , من هرکاری میکنم نمیتونم ایمیل ارسال کنم :ناراحت: آی دی من جی میل هستش . کد زیر رو از همین سایت برداشتم اما جواب نمیده :ناراحت: لطفا راهنمایی کنین قبلا یادم هست کد زیر جواب میداد اما الان نمیدونم چرا داره بازی در میاره :گریه:
Dim SendFrom As MailAddress = New MailAddress(txtfrom.Text)
Dim SendTo As MailAddress = New MailAddress(txtTO.Text)
Dim MyMessage As MailMessage = New MailMessage(SendFrom, SendTo)
MyMessage.IsBodyHtml = True
MyMessage.Subject = txtsubject.Text
MyMessage.Body = txtbody.Text
Dim smtp As New SmtpClient("smtp.google.com")
smtp.EnableSsl = True
smtp.Credentials = New Net.NetworkCredential(txtfrom.Text, txtpassword.Text)
smtp.Send(MyMessage)
Dim SendFrom As MailAddress = New MailAddress(txtfrom.Text)
Dim SendTo As MailAddress = New MailAddress(txtTO.Text)
Dim MyMessage As MailMessage = New MailMessage(SendFrom, SendTo)
MyMessage.IsBodyHtml = True
MyMessage.Subject = txtsubject.Text
MyMessage.Body = txtbody.Text
Dim smtp As New SmtpClient("smtp.google.com")
smtp.EnableSsl = True
smtp.Credentials = New Net.NetworkCredential(txtfrom.Text, txtpassword.Text)
smtp.Send(MyMessage)