PDA

View Full Version : خبر: Send Email



morika
سه شنبه 19 خرداد 1388, 20:06 عصر
امیدوارم کسی با این کد دیگه مشکلی در ارسال ایمیل نداشته باشه. البه ای کد فقط از gmail به هر جایی ارسال می کنه. یعنی فرق نداره شما به yahoo یا کجا می خواین ایمیل بزنید ولی حتما باید از gmail این ارسال صورت بگیره.

لطفا این کد رو امتحان کنید و نتایجش رو به من بگید.
خیلی ممنون

راستی من خودم یه برنامه نوشتم که الان داره از این کد برای ارسال ایمیل مشتریام به من استفاده می کنه پس %100 مطمعنم که کار میکنه

منبع : http://vbnetsample.blogspot.com/2007/06/send-email-with-gmail.html

یه نکته خیلی مهم:
اگه این کد رو از منبع اصلیش بگیرید خیلی بهتره چون من ده بار امتحان کردم وقتی کد زیر رو از توسایت برنامه نویس کپی می کنی مشکل پیدا می کنه نمیدونم چرا؟....!


Imports System.Net.Mail

Public Sub SendEmail()


Dim client As New SmtpClient()
Dim sendTo As New MailAddress("sendToAccount@gmail.com (sendToAccount@gmail.com)")
Dim from As MailAddress = New MailAddress("from@address.com")
Dim message As New MailMessage(from,sendTo)

message.IsBodyHtml = True
message.Subject = "HI"
message.Body = "Got it!!"
' Use the same account in app.config to authenticate.
Dim basicAuthenticationInfo As New System.Net.NetworkCredential("yourAccount@gmail.com", "YourPassword")

client.Host = "smtp.gmail.com"
client.UseDefaultCredentials = False
client.Credentials = basicAuthenticationInfo
client.EnableSsl = True
Try


client.Send(message)
Console.WriteLine("SUCCESS")

Catch ex As Exception


Console.WriteLine("SEND FAIL")

End Try

End Sub