KULLANICI ADI : ŞİFRE Şifremi Unuttum*

Anasayfa İLLEG4L BANK KREDİ SATIN AL İLLEG4LİZM RAP Sub Domain Bulucu Arama Yap Yeni Konular Bugünki Konular

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
VB Eposta yollarken hata (SMTP) [ÇÖZÜLDÜ]
Konu : VB Eposta yollarken hata (SMTP) [ÇÖZÜLDÜ] - 05.09.2015, 23:04
Mesaj: #1
52 
Arkadaşlar merhaba. Visual basic'te facebook çalmak için fake bi build tasarladım fakat şöyle bir sorun oluyor; (InvaildOperationException was unhandled)"SMTP ana bilgisayarı belirtilmedi." Pek fazla anlamadım yardımlarınızı bekliyorum.

RESIM




-http://s4.postimg.org/dh8olm6bx/Ads_z.png




ÇÖZÜLDÜ!
Yapmamız gereken,BURADAKI ayarı "Aç" konumuna getirmek. 
(VB'de şifresini yazdığınız gmail hesabına girerek yapınız.)


Sonuç:


Adsizad2db.png
İmage

(Son Düzenleme: 06.09.2015, 12:43, Düzenleyen: #OZZY#.)
WWW Alıntı ile Cevapla
Konu : VB Eposta yollarken hata (SMTP) [ÇÖZÜLDÜ] - 05.09.2015, 23:10
Mesaj: #2
bu işler anlamam fakat SMTP portunu tanıttın mı veya engelli olabilir bi gözden geçir bence : )

(Son Düzenleme: 05.09.2015, 23:10, Düzenleyen: Erlik Han.)
WWW Alıntı ile Cevapla
Konu : VB Eposta yollarken hata (SMTP) [ÇÖZÜLDÜ] - 06.09.2015, 00:10
Mesaj: #3
Public Function SendMail()
   
    On Error GoTo SendMail_Error:
    Dim lobj_cdomsg As CDO.Message
    Set lobj_cdomsg = New CDO.Message
    lobj_cdomsg.Configuration.Fields(cdoSMTPServer) = "smtp server adı"
    lobj_cdomsg.Configuration.Fields(cdoSMTPServerPort) = "smtp port"
    lobj_cdomsg.Configuration.Fields(cdoSMTPUseSSL) = "1"
    lobj_cdomsg.Configuration.Fields(cdoSMTPAuthenticate) = 1
    lobj_cdomsg.Configuration.Fields(cdoSendUserName) = "emailiniz"
    lobj_cdomsg.Configuration.Fields(cdoSendPassword) = "email şifreniz"
    lobj_cdomsg.Configuration.Fields(cdoSMTPConnectionTimeout) = 45
    lobj_cdomsg.Configuration.Fields(cdoSendUsingMethod) = 2
    lobj_cdomsg.Configuration.Fields.Update
    lobj_cdomsg.To = "kime gidecek"
    lobj_cdomsg.From = "gonderen mail"
    lobj_cdomsg.Subject = "konu"
    lobj_cdomsg.TextBody = "mailin içeriği"
   ' lobj_cdomsg.AddAttachment ("C:\resim.jpg")
    lobj_cdomsg.Send
    Set lobj_cdomsg = Nothing
    SendMail = "ok"
    Exit Function
SendMail_Error:
    SendMail = Err.Description
End Function


Bu modülü bir dene bakalım )
İmage

(Son Düzenleme: 06.09.2015, 00:15, Düzenleyen: TurkCoder. Sebep: kod bozulduğu için bu sekilde paylaşmak zorunda kaldim )
WWW Alıntı ile Cevapla
Konu : VB Eposta yollarken hata (SMTP) [ÇÖZÜLDÜ] - 06.09.2015, 11:43
Mesaj: #4
(06.09.2015, 00:10)TurkCoder Adlı Kullanıcıdan Alıntı: Public Function SendMail()
   
    On Error GoTo SendMail_Error:
    Dim lobj_cdomsg As CDO.Message
    Set lobj_cdomsg = New CDO.Message
    lobj_cdomsg.Configuration.Fields(cdoSMTPServer) = "smtp server adı"
    lobj_cdomsg.Configuration.Fields(cdoSMTPServerPort) = "smtp port"
    lobj_cdomsg.Configuration.Fields(cdoSMTPUseSSL) = "1"
    lobj_cdomsg.Configuration.Fields(cdoSMTPAuthenticate) = 1
    lobj_cdomsg.Configuration.Fields(cdoSendUserName) = "emailiniz"
    lobj_cdomsg.Configuration.Fields(cdoSendPassword) = "email şifreniz"
    lobj_cdomsg.Configuration.Fields(cdoSMTPConnectionTimeout) = 45
    lobj_cdomsg.Configuration.Fields(cdoSendUsingMethod) = 2
    lobj_cdomsg.Configuration.Fields.Update
    lobj_cdomsg.To = "kime gidecek"
    lobj_cdomsg.From = "gonderen mail"
    lobj_cdomsg.Subject = "konu"
    lobj_cdomsg.TextBody = "mailin içeriği"
   ' lobj_cdomsg.AddAttachment ("C:\resim.jpg")
    lobj_cdomsg.Send
    Set lobj_cdomsg = Nothing
    SendMail = "ok"
    Exit Function
SendMail_Error:
    SendMail = Err.Description
End Function


Bu modülü bir dene bakalım )

Bu modülü deniyim de,nereye ne yapacağımı bilmiyorum D 
İmage

WWW Alıntı ile Cevapla
Konu : VB Eposta yollarken hata (SMTP) [ÇÖZÜLDÜ] - 06.09.2015, 15:47
Mesaj: #5
Aciklama belli modulde )
İmage

WWW Alıntı ile Cevapla


Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi
hd porno antalya escort türk ifşa porno izle türk ifşa porno samsun escort izmir escort ataşehir escort türk ifşa hd porno