#312734 27-07-2008 13:52 GMT-1 saat
VB.NET ile E-Posta Gönderme
' 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("
[email protected]", "Gönderici Adı")
Dim strAlici As New MailAddress("
[email protected]", "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
Umarım işini görür.
Kaynak:
bağlantıyı göster (facebook ile)
bağlantıyı göster (klasik üye girişi ile)
Bilgi Paylaştıkça Çoğalır.