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 ipuçları » Hadi Vb6 da Mail Yollama Programı Yapalım :)
Ü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

Metin Kutularını Renkli Yazma

Yazar: jackalmil

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 № : 12248
Yayın Tar:11.02.2012
Yazar : Harmmy
Hit :2146

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

Selam arkadaşlar hepinizin bildigi gibi visual basic 6 ile görsel programlama gelişti .

vb6 programlama dilleri arasında bende varım diyebildi. her alanda kolaylık saglayan bi programlama dili oldugu için bilen kişi çok iyi işler yapablir.

Programın yazıldıgı dil degil yazılış tarzı önemli oldu (benim fikrim )

Visual basic6 da çogu kişi windows7 de mail yollattıramaz. sebebine gelince windows7 de uac vs oldugu için mail attırmak nerdeyse zordur. bu yüzden çogu kişi vb.net e geçti ama vb6 da da mail atmak mümkün :)

şimdi kodlara gelelim.

Verdigim kodları Projenize Add - class - class modl ekleyerek içine şu kodları yazın..


Private Declare Function GetFileAttributesW Lib "KERNEL32" (ByVal lpFileName As Long) As Long
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long

Private Const MICROSOFT_CDO_CONFIGURATION$ = "http://schemas.microsoft.com/cdo/configuration/"

Private lngPort&
Private strUser$
Private strPass$
Private strFrom$
Private strServer$
Private strSubject$
Private strMessage$
Private strDestinatary$
Private strAttachedFile$
Private objCDO As Object
Private bolUseAuntentificacion As Boolean
Private bolSSL As Boolean

'~~~~~~~~~~~~~~~~~~~> Properties
Friend Property Let Server(ByRef Value$): strServer = Value: End Property
Friend Property Let Destinatary(ByRef Value$): strDestinatary = Value: End Property
Friend Property Let From(ByRef Value$): strFrom = Value: End Property
Friend Property Let Subject(ByRef Value$): strSubject = Value: End Property
Friend Property Let Message(ByRef Value$): strMessage = Value: End Property
Friend Property Let AttachedFile(ByRef Value$): strAttachedFile = Value: End Property
Friend Property Let Port(ByVal Value&): lngPort = Value: End Property
Friend Property Let User(ByRef Value$): strUser = Value: End Property
Friend Property Let Password(ByRef Value$): strPass = Value: End Property
Friend Property Let UseAuntentificacion(ByVal Value As Boolean): bolUseAuntentificacion = Value: End Property
Friend Property Let SSL(ByVal Value As Boolean): bolSSL = Value: End Property

'~~~~~~~~~~~~~~~~~~~> fonksiyon
Friend Function SendMail() As Boolean
If InternetGetConnectedState(&H0&, &H0&) Then
If LenB(strPass) = 0 Then Exit Function
If LenB(strUser) = 0 Then Exit Function
If LenB(strFrom) = 0 Then Exit Function
If LenB(strServer) = 0 Then Exit Function
If LenB(strDestinatary) = 0 Then Exit Function
If lngPort < 0 Or lngPort > &HFDE8& Then Exit Function

On Error GoTo FatalError
With objCDO
With .Configuration
.Fields(MICROSOFT_CDO_CONFIGURATION & "smtpserver") = strServer
.Fields(MICROSOFT_CDO_CONFIGURATION & "sendusing") = &H2&

With .Fields
.Item(MICROSOFT_CDO_CONFIGURATION & "smtpserverport") = lngPort
.Item(MICROSOFT_CDO_CONFIGURATION & "smtpauthenticate") = Abs(bolUseAuntentificacion)
.Item(MICROSOFT_CDO_CONFIGURATION & "smtpconnectiontimeout") = &HA&

If bolUseAuntentificacion Then
.Item(MICROSOFT_CDO_CONFIGURATION & "sendusername") = strUser
.Item(MICROSOFT_CDO_CONFIGURATION & "sendpassword") = strPass
.Item(MICROSOFT_CDO_CONFIGURATION & "smtpusessl") = bolSSL
End If
End With
End With

.To = strDestinatary
.From = strFrom
.Subject = strSubject
.TextBody = strMessage ' mesaj tipi text siz bunu html yapablirsiniz

If LenB(strAttachedFile) Then
'// GetFileAttributesW is the fastest way to check if a file exists.
If GetFileAttributesW(StrPtr(strAttachedFile)) > -1 Then
.AddAttachment (strAttachedFile)
End If
End If

.Configuration.Fields.Update
.Send
End With

SendMail = True
End If

FatalError:
End Function

Private Sub Class_Initialize()
Set objCDO = CreateObject("CDO.Message")
End Sub

Private Sub Class_Terminate()
Set objCDO = Nothing
End Sub


Class modulümüzü ekledik. şimdi geldik form a yazılacak kodmuza

Bir buton ekleyin.
command1 oldugunu varsayalım .

command1 in click olayına şunu yazın

Dim c As New class1

With c
.Server = "smtp.gmail.com" ' gmaile mail yollamak için smtp adresi
.Port = 465 ' 465 inci portdan yollucak
.UseAuntentificacion = True ' dogru
.SSL = True ' dogru

.User = "mail adresiniz" ' isterseniz text1.text yazarak mail adresinizi oradan yazablirsiniz
.Password = "mailşifreniz" ' bunu da text2.text yazablirsinz TABİKİ TEXT KUTULARINI EKLEMEYİ UNUTMAYIN

.Subject = "Harmmy Mail Test" 'Mailin konu başlıgı


.From = "Kimden geldigi dair yazı"
.Destinatary = "Alici mail adres" ' isterseniz bir text daha ekleyerek text3.text yapablirsiniz
.Message = "Harmmy mail gönderme test onaylandı" ' mail içindeki yazı

If .SendMail Then MsgBox "Mail Gönderildi.!"
End With

Set c = Nothing


Evet bu kadar :) umrım yararlanırsınız




Yorumlar, eklemeler ve düşünceler
        Hocam eme?ine sa?l?k. ancak bi sorun var.

söyledi?in her?eyi aynen yap?yorum. ama mail göndermiyor. istersen proje dosyas?n? upload edebilirim.

XP kullan?orum sorun ondan kaynaklanabilirmi


   erasafir, 21.02.2012 20:01
   aynen benimkiside göndermedi her ?ey tmm ama göndermiyor. Sourceyi gönderiyim istersen

   kanarya490, 25.02.2012 19:59
   Xp de s?k?nt? yok ama win7 de göndermiyor....

Yinede eline can?na sa?l?k

   hibeyup, 08.03.2012 14:50
    Merhaba ben webbrowserde açık olan sitedeki butonu otomataik Command butonla tıklamak istiyorum hepsine aradım ama visual studionun kodunu buldum bunu basic yapabilir misn ?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim allelements As HtmlElementCollection = WebBrowser1.Document.All
For Each webpageelemnt As HtmlElement In allelements

If webpageelemnt.GetAttribute("name") = "tıklanacak butonun ismi" Then
'durumların beğen butonasdasd
webpageelemnt.InvokeMember("click")
End If
End Sub
End Class

   memetmetal01, 17.03.2012 20:42
   Win7 de de çalşıyor xp dede wın7 de belki yönetici olarak açmanız gerekebilir.

memetmetal01 öncelikle visual basic 6 da component menusunden bir webbrowser ekliceksin.

Gerisi siz yapabilirsiniz buton ekleyip kodları yazıcaksınız. Getattribute yerie GetAttr

   Harmmy, 21.04.2012 21:01
© 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