Bakbi Forum Fullsürüm Ana Sayfa
Forum Anasayfası Forum Anasayfası > BİLGİSAYAR PROBLEMLERİ ve TEKNOLOJİLERİ > Asp Kodları ve Asp Uygulamaları
  Yeni Mesajlar Yeni Mesajlar RSS: ASP ile Gmail Kullanarak Mail Yollama
  Yardım Yardım  Forumu Ara   Takvim   Kayıt Ol Kayıt Ol  Giriş Giriş

ASP ile Gmail Kullanarak Mail Yollama

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
volkan Açılır Kutu Gör
Yönetici
Yönetici


Kayıt Tarihi: 01 Ocak 2007
Aktif Durum: Aktif Değil
Gönderilenler: 446
Mesaj Seçenekleri Mesaj Seçenekleri   Alıntı volkan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: ASP ile Gmail Kullanarak Mail Yollama
    Gönderim Zamanı: 28 Temmuz 2014 Saat 22:13
ASP ile Gmail Kullanarak Mail Yollama

Asp ile Gmail ve SSL kullanarak mail gönderme kodlarıdır.
Bu kodları düzenleyerek ASP ve CDO bileşeni kullanarak toplu mail yollayabilirsiniz.

Biz bunun için bir script yazdık ve günde 1000 - 2000 arası email yollayabiliyoruz.Daha fazlada yollanabilir.Scriptimiz satılıktır.

EPostaSunucu = "smtp.falanca.com"
EPostaKullAdi = "info@falanca.com"
EPostaSifre = "123456"
strSubject = "Mesajımızın konusu"
strBody = "MESAJIN KENDİSİ"
EPostaAdres = "info@falanca.com"
EPostaGonderilen = "falanca@hotmail.com"
strReplyTo = "info@falanca.com"


Set Mail = CreateObject("CDO.Message")
    
    Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
    Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") =EPostaSunucu
    Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
    Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") =EPostaKullAdi
    Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") =EPostaSifre
    Mail.Configuration.Fields.Update
    Mail.Subject=strSubject
    Mail.From=EPostaAdres
    Mail.To=EPostaGonderilen
    Mail.HtmlBody=strBody
    Mail.Send
    Set Mail = Nothing  

ASP Cdo Mail Kontrolü, Hatalı Email Kontrolü

Yukardaki kodlar hata kontrolsüz kodlardı. Şimdi hata kontrolü yapmak için yukardaki kodların sonuna bir kod daha ekleyeceğiz.
Kalın renkli harfle yazılan kodlar yukardaki kodların sonu, diğerleri yeni eklenen email hata kontrol kodlardır.
Burada kalın renkli harfle yazılanları yukarıda bulup silin. Daha sonra buranın tamamını yukarının sonuna ekleyin.
On Error Resume Next 
Mail.Send 
Set Mail = Nothing  
If Err <> 0 Then 
Response.Write "Bir Hata Oluştu: "& Err.Description 
End If 



Düzenleyen volkan - 28 Temmuz 2014 Saat 22:29

İnternet Download Manager Programını İndirip Kurun.Online Filmleri Bu Programla İndirip Seyredebilirsiniz.
Yukarı Dön
Sponsor Linkler


Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu Gör

Bulletin Board Software by Web Wiz Forums® version 9.64 [Free Express Edition]
Copyright ©2001-2009 Web Wiz

Bu Sayfa 0,141 Saniyede Yüklendi.