Bilgisayar Bölümü ASP Kod ve Script Arşivi


Bamboo SMTP Server ile Web Mail Uygulaması

Pek çok sitede Rastlamışsınızdır:
"Bizi tanıdıklarınıza tavsiye edin!" diye bir link ve hemen ardından da

adınız: [________]
göndereceğiniz Kişinini e-maili: [____________]
[GÖNDER]


ÖRNEK

'-- bu programcığı kullanabilmeniz içIn, Web sunucunuzda, Bamboo SMTP server kurulu olmalı. Bu programı Web'de ücretsiz olarak bulabilirsiniz.

'-- Bu programcık, ziyaretçilerimizi Web üstünden e-mail ile , sitemizi tavsiye etmeleri içIn hazırlanmıştır.

'-- Bu progamcık, aynı zamanda bir harici bileşen kullanımına örnektir.

'-- mesajımızı oluşturmaya başlayalım:

'-- tavsiye edenin adını formdan gelen değişkenden aldık.
MESSAGE="Size " & request.Form("ad")
message = message & " adlı tanıdığınız bir Web sitesi öneriyor." & chr(10)
'-- sitemizin bir tanıtımını oluşturalım:
sitetanitim = "http://www.pclife.com.tr adresinde, şu an aşağıdaki hizmetler bulunmaktadır:" & chr(10)
sitetanitim = sitetanitim & " *) Güncel haberler ve ürün incelemeleri "& chr(10)
sitetanitim = sitetanitim & " *) ASP okulu"& chr(10) sitetanitim = sitetanitim & " *) ASP ile ilgili sorunlarınızı paylaşacağınız bir forum"& chr(10)
sitetanitim = sitetanitim & " *) ASP üstüne kitap incelemeleri"& chr(10) & chr(10) & chr(10) & chr(10)
message=message & sitetanitim sitetanitim = sitetanitim & "PCLIFE, size ve arkadaşınıza katkılarından dolayı teşekkür eder.. En kısa zamanda, sitemize uğramanız temennimizle " & chr(10)
Set smtp = Server.CreateObject("Bamboo.SMTP")
'-- buradya pop adresi gelecek
smtp.Server = "pop.pclife.tr"
'-- buraya, formdan girilen, mailin gideceği adres gelecek
smtp.Rcpt = request("kime")
'-- buraya, e-mailin hangi adresten geldiği kısmı görülecek.
smtp.From = "wepmail@pclife.com.tr"
'-- gönderenin adını formdan aldık
smtp.FromName = request("ad")
'-- buraya konu geldi
smtp.Subject = " İlginizi çekeceği düşünüLen bir Web sitesi!"
'-- SMTP nesnemizin mesaj yordamına mesajımızı atayalım:
smtp.Message = message
'-- hata olursa atla
On Error Resume Next
'-- mesajı gönder
smtp.Send
'-- hata oldu ama atladı ise bu kısım çalışır.
If err Then
'-- hatayı yaz
response.Write err.Description
'-- hata olmadı ise bu kısım çalışır.
Else
'-- işler yolunda mesajı ile ziyaretçi rahatlatılır.
response.Write ("Teşekkür ederiz... Mesajınız başarı ile yollandı.."& "Ana sayfaya dönmek içIn tıklayınız<A href=http://www.pclife.com.tr>ANA SAYFA</a>")
End If
'-- ' artık nesne ile işimiz bitti.
Set smtp = Nothing

ASP Kitabı

 

Faydalılar: Altın Fiyatları |Hediye Kolye | pırlanta fiyatları
Ana Sayfa  Sık Kullanılanlara Ekle   admin[at]bilgisayarbolumu.com | © 2006 - 2022 Bilgisayarbolumu.com