Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » GMAIL HESABINDAN MAIL GONDERME
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Toolbar'in click olayı nasıl kodlanır?

Yazar: Webmaster

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 12294
Yayın Tar:11.04.2013
Yazar : ACCENT
Hit :4408

Bu Yazarın Yazıları Sadece bu yazarın örnek kod göster
Bu Yazıyı Tavsiye Et

Dim İMsg As Object
Dim iConf As Object

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1
Set Flds = iConf.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "XXXXXX@gmail.com"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASWORD"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
Flds.Update

Set iMsg.Configuration = iConf
iMsg.To = "YYYYYY@hotmail.com; ZZZ@yahoo.com; WWW@gmail.com"
iMsg.CC = ""
iMsg.BCC = ""
iMsg.From = """""<XXXXXXX@gmail.com>" 'SIZIN MAIL ADRESINIZ
iMsg.Subject = "BASLIK-" & Date & " " & Time$ 'MESAJ BASLIGI
iMsg.TextBody = "ACIKLAMALAR-" & Date & " " & Time$ 'MESAJ METNI
iMsg.AddAttachment ""
iMsg.Send

Set iMsg = Nothing
Set iConf = Nothing




Yorumlar, eklemeler ve düşünceler
        Kardeşim kodların yanına açıklama koymuş olsaydın gayet güzel bir örnek olabilirdi

   gokhan190, 23.05.2013 12:03
   Gmail, yalnızca şema kullanarak mail gönderen adresileri bir süre sonra blokluyor, o yüzden, gönderen adresi bloklandığı anda değiştirmek gerekecektir.

   leedut, 01.07.2013 11:15
   kodları denedim göndermiyor

   patron1991, 03.07.2013 13:32
   pardon gönderiyor ama kendi gönderdiği gmail adresine gelmemiş.

   patron1991, 03.07.2013 13:35
   Selam aleykum
Ben bu kodla tum email adreslerine email gonderiyorum.belki isnize yaraya bilir.

Imports System.Net.Mail

Public Class Form1

Dim smtpserver As New SmtpClient
Dim gonder As New MailMessage

Private Sub email_gonder()

Dim smtpserver As New SmtpClient
Dim mail As New MailMessage
smtpserver.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
smtpserver.Host = "smtp.mail.ru"
smtpserver.Port = TextBox6.Text
mail = New MailMessage
mail.From = New MailAddress(TextBox1.Text)
mail.To.Add(TextBox3.Text)
mail.Subject = TextBox4.Text
mail.Body = RichTextBox1.Text

If Not TextBox5.Text = Nothing Then
Dim attach As New Attachment(TextBox5.Text)
mail.Attachments.Add(attach)
End If
smtpserver.EnableSsl = True
smtpserver.Send(mail)
MsgBox("Mesajiniz Ugurla Gonderildi", MsgBoxStyle.Information, Title:="Melumat !")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
OpenFileDialog1.ShowDialog()
TextBox5.Text = OpenFileDialog1.FileName
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call email_gonder()
End Sub
End Class

   SoloBayt, 02.08.2013 21:20
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin