Visual Basic Mail Gönderme

vbscript / vb 6.0 / vb.net

Set correio = CreateObject("CDO.Message")
correio.From = "ismin"
correio.To = "gonderilen@hotmail.com"
correio.Subject = "Konu"
correio.TextBody = "mesaj" 
correio.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
correio.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
correio.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
correio.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
correio.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
correio.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "seninadresin@gmail.com"
correio.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "şifren"
correio.Configuration.Fields.Update
correio.Send
MsgBox "gönderildi"

vb.net ile kullanırken tek fark set yerine dim kullanmanız gerekiyor. gmail smtp adresi sorunsuz olduğu için gmail kullanabilirsiniz.

Barbaros Kuşçular

Barbaros KUŞÇULAR
Barbaros KUŞÇULAR hakkında 234 makale
Bilişim Teknolojileri Uzmanı

İlk yorum yapan olun

Bir yanıt bırakın

E-posta hesabınız yayımlanmayacak.


*