Şifremi/Kullanıcı Adımı Unuttum
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Şimdi Ara

ASP Acil Yardım

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir Kullanıcı, 1 Masaüstü Kullanıcı
1
Cevap
0
Favori
109
Tıklama
Giriş
Mesaj
  • Binbaşı
    1307 Mesaj
    Selamlar,
    Asp ile web sitesi tasarladım, fakat uye kaydından sonra otomatik e-mail gönderme olayını çözemedim.

    Sıkıntım şu, mesela Hotmail yada gmail de ki hesabımdan mail gidermi giderse kodu nasıl yazmam gerekir
    konu hakkında yazdımınızı rica edrim.



    |
    |
    _____________________________
  • Yüzbaşı
    486 Mesaj
    Altaki form için uygulanan kodu kullanabilirsin işine yarar bölümleri al sadece..
    hotmail 'i yapamazsında gmail pop3 hizmetini aktif edersen gmail 'i yapabilirsin
    altaki pop3 ve gitmesini istediğin mail adresini girmen yeterli

    <%@ Language=VBScript %>
    <%

    'değişkenlerin oluşturuyorsun

    isim = Request.Form("isim")
    email = Request.Form("email")
    telefon = Request.Form("telefon")
    mesaj = Request.Form("mesaj")
    konu = "Web Sitesi İletişim Formundan Gelen Mesaj"

    ' StrBody kısmını istediğin kadar genişletebilirsin...üstede ona göre değişkenkeri oluşturucan

    strBody= strBody & "Adı Soyadı: " & Request.Form("isim") & Chr(13)& Chr(10)
    strBody= strBody & "Telefon: " & Request.Form("telefon") & Chr(13)& Chr(10)
    strBody= strBody & "Mesaj: " & Request.Form("mesaj") & Chr(13)& Chr(10)

    set objMessage = createobject("cdo.message")
    set objConfig = createobject("cdo.configuration")

    ' Setting the SMTP Server
    Set Flds = objConfig.Fields
    Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail server"
    'mail server örnk: mail.donanimhaber.com gibi

    Flds.update


    Set objMessage.Configuration = objConfig
    objMessage.To = "mail adresin" ' irtibat formunun gitmesini istediğin adresi yazıcaksın
    objMessage.From = email
    objMessage.Subject = konu
    objMessage.TextBody = strBody
    objMessage.fields.update
    objMessage.Send

    Response.write "<center>Mesajınız bize ulaştı. Teşekkür ederiz."

    set objMessage = nothing
    set objConfig = nothing

    %>
    |
    |
    _____________________________




HızlıCevap
Sayfaya Git:
Sayfa:
1
Reklamlar
üniversite
haberler
Kurumsal Web Tasarım Şirketi
Veri Merkezi;Metro Ethernet;Cloud Sunucu
Masal
Bu sayfanın
Mobil sürümü
Mini Sürümü

BR4
0,344
1.2.165

Reklamlar
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.