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


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.