06-05-2015, 01:58 PM
Selam Dostlar, Ben N30 Bugün Sizlere VB.NET Mail Göndermeyi Göstereceğim. Aslında Gayet Basit. Sadece Dim Yani Değişken Deyimini Kullanacağız. Diğerleri Fonksiyon :) Evet Uzatmadan Başlayalım.
GMAIL
Öncelikle Tüm Kodların En Üstüne
Yazın.
Ardından Aşağıdaki Kodları Ekleyin.
Kodlarımız :);
Evet Bu Gmail İçindi Şimdi Hotmail ve Outlook İçin Göstereyim.
Hotmail
Öncelikle Az Önce Yaptığımız Gibi Tüm Kodların En Üstüne
Yazın.
Ardından Aşağıdaki Kodları Gereken Yere Ekleyin.
Kodlarımız :);
Evet Buda Hotmail İçindi. Şimdi Son Olarak Outlook u Göstereyim :)
OUTLOOK
Öncelikle Az Öncekilerde Yaptığımız Gibi Tüm Kodların En Üstüne
Yazın.
Ardından Aşağıdaki Kodları Gerekli Yere Ekleyin.
Kodlarımız :);
Evet Buda Outlook İçindi. Burada Dersimi Bitiriyorum. Bu Deri Hazırlarken Baya Yoruldum :)
3 Kodda Değişen Birşey Yok Diyenler İçin Şunu Söyleyeyim.
Kodların
Yazan Kısmını Yanında ("smtp.----.com") Yazmakta. ---- Olarak Yazdığım Yere Bakın En Üsttekinde Gmail diğerlerinde Live ;)
GMAIL
Öncelikle Tüm Kodların En Üstüne
Kod:
Imports System.Net.MailArdından Aşağıdaki Kodları Ekleyin.
Kodlarımız :);
Kod:
Dim eposta As New MailMessage
eposta.To.Add("email@gmail.com")
eposta.From = New MailAddress("alıcıemaili@gmail.com")
eposta.Subject = "E-Posta Başlığı"
eposta.Body = "E-Posta nın İçeriği. Yani Mesaj"
Dim gonder As New SmtpClient("smtp.gmail.com")
gonder.EnableSsl = True
gonder.Credentials = New System.Net.NetworkCredential("email@gmail.com", "email-şifreniz")
gonder.Port = "587"
gonder.Send(Mail)Hotmail
Öncelikle Az Önce Yaptığımız Gibi Tüm Kodların En Üstüne
Kod:
Imports System.Net.MailArdından Aşağıdaki Kodları Gereken Yere Ekleyin.
Kodlarımız :);
Kod:
Dim eposta As New MailMessage
eposta.To.Add("email@hotmail.com")
eposta.From = New MailAddress("alıcıemaili@hotmail.com")
eposta.Subject = "E-Posta Başlığı"
eposta.Body = "E-Posta nın İçeriği. Yani Mesaj"
Dim gonder As New SmtpClient("smtp.live.com")
gonder.EnableSsl = True
gonder.Credentials = New System.Net.NetworkCredential("email@hotmail.com", "email-şifreniz")
gonder.Port = "587"
gonder.Send(Mail)OUTLOOK
Öncelikle Az Öncekilerde Yaptığımız Gibi Tüm Kodların En Üstüne
Kod:
Imports System.Net.MailYazın.
Ardından Aşağıdaki Kodları Gerekli Yere Ekleyin.
Kodlarımız :);
Kod:
Dim eposta As New MailMessage
eposta.To.Add("email@outlook.com")
eposta.From = New MailAddress("alıcıemaili@outlook.com")
eposta.Subject = "E-Posta Başlığı"
eposta.Body = "E-Posta nın İçeriği. Yani Mesaj"
Dim gonder As New SmtpClient("smtp.live.com")
gonder.EnableSsl = True
gonder.Credentials = New System.Net.NetworkCredential("email@outlook.com", "email-şifreniz")
gonder.Port = "587"
gonder.Send(Mail)3 Kodda Değişen Birşey Yok Diyenler İçin Şunu Söyleyeyim.
Kodların
Kod:
Dim gonder As New SmtpClientYazan Kısmını Yanında ("smtp.----.com") Yazmakta. ---- Olarak Yazdığım Yere Bakın En Üsttekinde Gmail diğerlerinde Live ;)
I Love Support10TR