Lazım olur belki diyerek buraya .net için kodu yazayım, gayet güzel calışıyor ve cok kolay, bulmak için ugraştırdı bir sürü. Visual Basic 6.0 için benzer bir kod arıyorum. Elinde olan arkadaşlar gönderirse sevinirim. Bi proje için gerekli, programdaki müşterilere Bilgilendirme amaçlı mail atmak istiyorum.
VB.NET Kodu:
Imports System.Net.Mail
Me.Cursor = Cursors.WaitCursor
'
Dim Mail As New System.Net.Mail.MailMessage()
With Mail
.To.Add("MailAddress")
.From = New Net.Mail.MailAddress("MailAddress") 'Must be: *@gmail.com
.Subject = "Some Subject"
.Body = "Some Body"
End With
'
Dim SMTP As New Net.Mail.SmtpClient("SMTP.gmail.com")
SMTP.Credentials = New System.Net.NetworkCredential("MailAddress", "password") 'Must be: *@gmail.com
SMTP.Port = 587
SMTP.Host = "smtp.gmail.com"
SMTP.EnableSsl = True
SMTP.Send(Mail)
SMTP = Nothing
Mail.Dispose()
'
Me.Cursor = Cursors.Arrow
MsgBox("Your message has been sent")
Soldier of Fortune
|