Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Tasarım ve grafik
  • Web Tasarım ve Hazır Kodlar
  • Bu Konuda
Şimdi Ara

ASP Acil Yardım

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Bu Konudaki Kullanıcılar:
1 Misafir - 1 Masaüstü
5 sn
3
Cevap
0
Favori
125
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
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.



  • 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

    %>




    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız