Vb6 Mail Gönderme Kodları

Merhaba Arkadaşlar,
Bu yazımda sizlere mail göndermeyi paylaşıcam.Başlıyalım :



İlk olarak mail gönderme kodlarını veriyim sizlere :

Dim iMsg, iConf, Flds
On Error Goto Son
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "Gmail Adınız"
Flds.Item(schema & "sendpassword") = "Gmail Şifre"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = "Alıcı'nın E-postasi"
.From = "İçerik Başlığı"
.Subject = "Başlık"
.HTMLbOdy = "İçerik"
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
Son :
End With

Kod denendi kesinlikle çalışıyor.Şimdi şöyle bir şey var örneğin programı kullanan kişinin gmaili belirlemesini istiyoruz.O zaman foruma bir tane textbox koyuyoruz.Text1 diyelim adı Gmail adınız yazan yere tırnakları silip text1.text yazıyoruz yani şu şekilde.
Örn:/ Flds.Item(schema & "sendusername") = Text1.Text
Aynılarını başlık alıcı epotası vs uygulayabilirsiniz ;)