Duyuruyu Kapat
Facebook Gözat
Twitter Gözat

ups(Oops) gene yaptım! CDONTS

Konu, 'ASP' kısmında kaþif tarafından paylaşıldı.

  1. kaþif

    kaþif Yeni Üye

    Kayıt:
    20 Aralık 2002
    Mesajlar:
    21
    Beğenilen Mesajlar:
    0
    Merhaba ;

    Yeni sorularım olacağını söylemiştim.
    Zaman zaman uğraştığım bir yazılım olsada bu güne dek çok şey yaptım asp ile. Ama gelin görün ki takıldığım yerler oluyor. Mesala Hakkı hocanın ASP kitapcıklarında ileri asp konusu olarak bahsedilen CDONTS .. Arkadaşın biri zamanında yazmıştı.Bende ona bakaraktan bişeyler yapmaya çalıştım..

    Vallahi neyin ne olduğunu anladıysam ?? Kendi sitemden mail göndermem için çabalayıp duruyorum.
    İstediğim Ziyaetçinin ;Adı Soyadı Mail adresi ve Mail yazacağı kısımdan oluşan ve içinde CDONTS elemanı bulunan bir form.

    ----------------------
    Bu kısmı düzenledim( http://www12.brinkster.com/kasifbaba/cdontsmail.zip )

    Kodu indirip bakınız!
    -----------------


    Şeklinde bir tane yazdım. Hani dedim ya anlamadım.. Bu işi baştan sona anlatırsanız sevinirim.. Ayrıca Bu kod BRİNKSTER.COM sitesinde denendi ve hata ile karşılaşıldı.. Tabi yakında paralı hostinge geçeceğim için lazım...

    :) Biraz saçmaladım ama idare edin. Burada biri deliler gibi gitar çalıyorda ne yazdığımı bilemedim...

    Sevgiler
     
    Son düzenleme yönetici tarafından yapıldı: 31 Aralık 2002
  2. BERK

    BERK Üye

    Kayıt:
    5 Ekim 2002
    Mesajlar:
    99
    Beğenilen Mesajlar:
    0
    Meslek:
    ----
    Şehir:
    Karacaahmet
    Kodları tam inceleyecek vaktim olmadı ama Brinkster.com çalışmaması gayet normal, çünkü brinkster cdonts mail componentini desteklemiyr. Evindeki Makina XP yada 9x ise gene çalışmaz CDONTS bileşeni bu şekilde
     
  3. p4r4h4t

    p4r4h4t Aktif Üye

    Kayıt:
    21 Ekim 2002
    Mesajlar:
    397
    Beğenilen Mesajlar:
    0
    HOCA kendine doğru dürüst bi SMTP server kursan ve aspemail kullansan daha iyi edersin.
     
  4. kaþif

    kaþif Yeni Üye

    Kayıt:
    20 Aralık 2002
    Mesajlar:
    21
    Beğenilen Mesajlar:
    0
    Bunu nasıl yapacağımı bir bilsem.. Stmp araştırdım hatta
    http://www.aspemail.com/download.html adresten bir .exe dosyası indirdim ama.. Öfff ya ne kötü bunları bilmemek...

    Buraya bu konuyu açmak bile çok sıkıntı verici. Çünkü yapamayınca birileri benim hazıra konmaya çalışan birisi olduğumu söylerse bu beni çok kırar... :aglama:

    anlıyorsunuz değil mi?
     
  5. BERK

    BERK Üye

    Kayıt:
    5 Ekim 2002
    Mesajlar:
    99
    Beğenilen Mesajlar:
    0
    Meslek:
    ----
    Şehir:
    Karacaahmet
    Evdeki makinanda mı çalıştırmayı düşünüyorsun? Yoksa bir serverda mı çalıştıracaksın?

    Eğer serverda çalıştırmayı düşünüyorsan büyük ihtimal ile sana bir SMTP server yada bir component kurmaya izin vermiyeceklerdir, var olanı kullanmak zorunda kalacaksın, o yüzden önce serveri ve bu serverin ozelliklerini ogrenmen gerek

    evde kullancaksan W2000 kurulu bir makinada bir IIS i kurarken SMTP server seçeneğininde seçili olduğuna emin ol, gerisini o halleder zaten

    bir de tavsiye herzaman mail gonderme kısmını bir sub içinde tanımla ve heryerde bu sub ı yada fonksiyonu çağırarak kullan böylece component değiştirmek çok kolay olur

    mesela benim

    '#########################################

    function SendMail3(ad,mail,kime,konu,mesaj)
    Set mektup = Server.Createobject("CDONTS.NewMail")
    mektup.From = ad & " <" & mail & ">"
    mektup.To = kime
    mektup.Subject = konu
    mektup.BodyFormat = 0
    mektup.MailFormat = 0
    mektup.Body = mesaj
    on error resume Next
    mektup.Send
    If err <> 0 Then
    SendMail=0
    Else
    SendMail=1
    End If

    Set mektup = Nothing
    end function
    function SendMail(ad,mail,kime,konu,mesaj)
    Set Mail = CreateObject("CDO.Message")
    Set Conf = CreateObject("CDO.Configuration")
    Conf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    Conf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "212.X.X.X"
    Conf.Fields.Update
    Set Mail.Configuration = Conf
    Mail.To =kime
    Mail.Subject = konu
    Mail.HtmlBody = mesaj
    Mail.From = mail
    Mail.Send
    Set Mail = Nothing
    end function
    '#########################################
    '#########################################

    function SendMail2(ad,mail,kime,konu,mesaj)
    set msg = Server.CreateOBject( "JMail.Message" )
    msg.Logging = true
    msg.silent = true


    msg.From = mail
    msg.FromName = ad

    msg.AddRecipient kime

    msg.Subject = konu

    msg.Body = mesaj


    if not msg.Send("193.140.200.33" ) then
    sendmail=0
    else
    sendmail=1
    end if


    end function


    '#########################################

    şeklinde 3 function ım var server değişince sadece bu fonksiyonlarin isimlerini değiştiriyorum o kadar

    //vermemem gereken bir IP adresi vermişim onu düzelttim
     
    Son düzenleme yönetici tarafından yapıldı: 31 Aralık 2002