Microsoft Visual Basic 6.0 ile test maili göndermek

[rebel_]

arkadaşlar ben hazırladığım programdan test maili göndermek istiyorum
konu:deneme
gönderen:maili gönderenin mail adresi
mesaj:başarılı
yazması yeterli yardımcı olursanız cok sevinirim

 

[ReddeviL10]

Bunu yapan varsa bizimle paylaşabilirmi??

 

[bluehackman]

HDEmail.dll ile mail gönderebilirsiniz. Proje dosyasını indirip HDEmail.dll dosyasını Wimdows System32 klasörünün içine kopyalayınız.
'forma 11 adet TextBox
'1 ListBox
'1 Buton ekleyiniz
'referanslardan HDEmail.dll dosyasını projeye dahil ediniz.


Private Hde As HDEmail.YoLLa
Private WithEvents Posta As YoLLa
Private Sub Command1_Click()

Set Posta = New YoLLa


With Posta
.SMTPHost = Text1 'smtp.gawab.com
.POP3Host = Text2 'pop.gawab.com
.Kullanıcı_Adi = Text3 'kullanıcı@gawab.com
.Sifre = Text4 '"******"
.Kimden = Text3
.Gonderici_Adi = Text6 '"H.D.E. Software"
.Alici = Text7 '"[email protected]"
.Alici_Adi = Text8 '"sen"
.Konu = Text9 '"yok"
.Mesaj = Text10 '"deneme"
.Dosya_Ekle = Text11 '"C:\Documents and Settings\Shell32.dll\Desktop\computer.jpg"
.YoLLa
End With

Set Posta = Nothing



End Sub
Private Sub Posta_SendFailed(HaTa As String)
List1.AddItem "HaTa Oluştu Serverdan Gelen Cevap: "
List1.AddItem HaTa
End Sub
Private Sub Posta_SendSuccesful()
List1.AddItem "Mail Başarıyla Gönderildi!"
End Sub

Private Sub Posta_Status(Durum As String)
List1.AddItem Durum
End Sub



'proje dosyasını
buradan indirebilirsiniz.downloadda prblem yaşarsanız tarayıcınıza adresi yapıştıırınız(http://www40.brinkster.com/hdesoft/hdemail.rar)

HDEmail.dll ile mail göndermek için pop desteği olan bir mail serveri kullanmalısınız. Bunun için www.gawab.com adresinden ücretsiz mail hesabı alabilirsiniz.

(NOT:ALINTIDIR)