Programalama > VISUAL BASIC.NET

'// Programın başına aşağıdaki satırı ekleyerek System.Net namespace'i ekleyin 
Imports System.Net.Mail 

'// Programınıza bir buton ekleyerek onClick olayına aşağıdaki kodları yapıştırın 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

   Dim strGonderen As New MailAddress("gonderen@site.com", "Gönderici Adı") 
   Dim strAlici As New MailAddress("alici@site.com", "Alıcı Adı") 
   Dim mailMsg As New MailMessage(strGonderen, strAlici) 

   With mailMsg 
      .Subject = "Konu" 
      .Body = "E-posta metni" 
      .IsBodyHtml = True '// Mesaj HTML mi, değil mi? True veya False 
   End With 

   Try 
      Dim client As New SmtpClient("smtp.site.com") 
      client.Send(mailMsg) 
   Catch 
   End Try 

      MsgBox("E-Posta gönderildi.", MsgBoxStyle.Information, "E-Posta Gönder") 

End Sub

yusuf çakmak
http://www.visualbasicturk.net