Duyuruyu Kapat
Facebook Gözat
Twitter Gözat

ASP ile Mail gönderme - Kaynak #1

Konu, 'ASP' kısmında hmustak tarafından paylaşıldı.

  1. hmustak

    hmustak PersianBulls

    Kayıt:
    29 Mayıs 2002
    Mesajlar:
    4,607
    Beğenilen Mesajlar:
    0
    Meslek:
    BT/QA
    Şehir:
    Persian
    Öncelikle jmail'i indirip, CDONTS bileşenini kurmak gerek bilgisayara...
    Aşağıdaki kodları editleyerek değişik formlar yaratabilir ve mail gönderebilirsiniz...


    <% Dim mailgit, metin
    Set mailgit = Server.CreateObject("CDONTS.NewMail")
    mailgit.To = "gidecek@ceviz.net"
    mailgit.From = "yollayan@ceviz.net"

    mailgit.Subject = "Konu"
    mailgit.BodyFormat=0
    mailgit.MailFormat=0

    metin = "<h1>ASP ile gönderdik bu maili</h1>"& Chr(10)

    metin = metin &"<a href=http://www.ceviz.net >"& Chr(10)

    mailgit.Body = metin
    mailgit.Send
    %>

    H4K4N!

    TH4NX
     
  2. mkarabulut

    mkarabulut Misafir

    Abi elin değmişken şu maile bi iki de dosya attach etmeyi göstersen, hem iyi kaynak olur :D

    If you don't mind... :D
     
  3. hmustak

    hmustak PersianBulls

    Kayıt:
    29 Mayıs 2002
    Mesajlar:
    4,607
    Beğenilen Mesajlar:
    0
    Meslek:
    BT/QA
    Şehir:
    Persian
    php ile ASP arasındaki güzell farklardan biride bu...

    Windows ve Microsoft tabanlı herşeyden birrr çırpıda geçmemin sebebide tabi..!

    Araştırır, bulur ve unutmazsam yazarım :)
     
  4. Sahin

    Sahin Daimi Üye

    Kayıt:
    28 Mayıs 2002
    Mesajlar:
    8,943
    Beğenilen Mesajlar:
    0
    Unutmadın dimi?
     
  5. hmustak

    hmustak PersianBulls

    Kayıt:
    29 Mayıs 2002
    Mesajlar:
    4,607
    Beğenilen Mesajlar:
    0
    Meslek:
    BT/QA
    Şehir:
    Persian
  6. hmustak

    hmustak PersianBulls

    Kayıt:
    29 Mayıs 2002
    Mesajlar:
    4,607
    Beğenilen Mesajlar:
    0
    Meslek:
    BT/QA
    Şehir:
    Persian
    BU arada arkadaşlar, siteye 2 yeni makale ekledim, fikrinizi yazarsanız sevinirim...
     
  7. Düzgün

    Düzgün Üye

    Kayıt:
    29 Temmuz 2002
    Mesajlar:
    206
    Beğenilen Mesajlar:
    0
    AttachFilePath ="c:\windows\desktop\deneme.txt"

    if AttachFilePath <> "" then
    mailgit.AttachFile AttachFilePath
    end if

    denemedim ama maile attach eder sanırım.
    birde şu e-mail kontrol panellerinde birden çok dosya attach ediliyor ve tampona alınması bekleniyor sonra mesajla gönderiliyor bunların mantığı nasıldır.
     
  8. hmustak

    hmustak PersianBulls

    Kayıt:
    29 Mayıs 2002
    Mesajlar:
    4,607
    Beğenilen Mesajlar:
    0
    Meslek:
    BT/QA
    Şehir:
    Persian
    sanırım dizilerle olur bu

    Bu arada Hooşşşgeldiin yaww
     
  9. Düzgün

    Düzgün Üye

    Kayıt:
    29 Temmuz 2002
    Mesajlar:
    206
    Beğenilen Mesajlar:
    0
    Hoşbulduk dostum :super:
    evet öyle olmalı yada virgulle filam da ayrılabilir, araştırmak gerek.
     
  10. onlinefizik

    onlinefizik Üye

    Kayıt:
    2 Temmuz 2005
    Mesajlar:
    117
    Beğenilen Mesajlar:
    0
    Yardım Lütfen!
    Serverımda CDONTS.NewMail yüklü olduğu halde bu bileşeni kullanarak mail gönderemiyorum. Oysa Aşağıdaki Kodlar ile bir mail gönderebilmeliydim. Sorun ne olabilir acaba?

    <% Dim mailgit, metin
    Set mailgit = Server.CreateObject("CDONTS.NewMail")
    mailgit.To = "onlinefizik@hotmail.com"
    mailgit.From = "cevizci@ceviz.net"

    mailgit.Subject = "Konu"
    mailgit.BodyFormat=0
    mailgit.MailFormat=0

    metin = "<h1>ASP ile gönderdik bu maili</h1>"& Chr(10)

    metin = metin &"<a href=http://www.ceviz.net >"& Chr(10)

    mailgit.Body = metin
    mailgit.Send
    %>
     
  11. fatihed

    fatihed Üye

    Kayıt:
    3 Ağustos 2004
    Mesajlar:
    165
    Beğenilen Mesajlar:
    0
    Kodlarda bir problem yok,ben kendi alanıma atıp denedim ve kendi adresime e-posta geldi.Yukarıdaki kodları onlinefizik.asp ye kaydettim.Burda kayıtlı,dene bakalım e-posta kutuna geliyor mu?
    Problemin kaynağı başka diye düşünüyorum.Hata mesajı almıyor musnuz,aldığınız hata mesajı nedir?Kolay gelsin,iyi çalışmalar...
     
  12. kamilozcan__

    kamilozcan__ Daimi Üye

    Kayıt:
    22 Ekim 2004
    Mesajlar:
    690
    Beğenilen Mesajlar:
    0
    Meslek:
    Software
    Şehir:
    İstanbul
    mailgit.AttachURL "c:\dosya.zip", "dosya.zip"

    ben böyle yapıyorum çalışıyor.
     
  13. onlinefizik

    onlinefizik Üye

    Kayıt:
    2 Temmuz 2005
    Mesajlar:
    117
    Beğenilen Mesajlar:
    0
    Yok abi gelmedi... Verdiğiniz linke tıkladım mail gelmediği gibi hiç bir hata iletisi de vermedi. Tertemiz bir sayfa kalıyor geriye. Acaba hotmail bu kodu engelliyor olabilir mi ?Junk E-mail kutusuna da gelmedi :aglama:
     
  14. kamilozcan__

    kamilozcan__ Daimi Üye

    Kayıt:
    22 Ekim 2004
    Mesajlar:
    690
    Beğenilen Mesajlar:
    0
    Meslek:
    Software
    Şehir:
    İstanbul
    Kod:
    Dim emailgit
    Kim = ""
    Kime = ""
    Konusu = ""
    Mesaj = ""
    Set emailgit = CreateObject("CDONTS.NewMail")
    emailgit.AttachURL "D:\asp.pdf", "asp.pdf" 
    emailgit.BodyFormat = 0 
    emailgit.MailFormat = 0   
    emailgit.Body = HTML
    emailgit.Send kim,kime,konusu,Mesaj
    bu kodlar çalışıyor denedim.
     
  15. onlinefizik

    onlinefizik Üye

    Kayıt:
    2 Temmuz 2005
    Mesajlar:
    117
    Beğenilen Mesajlar:
    0
    :super: Evet kodlar çalışıyor! Çalışmaması için bir neden de yoktu zaten. Ancak Mailler bana günler sonra ulaştığı için (9 haziran 2006:D O da tahmin ettiğim gibi Junk mail kutusuna) çalışmadığını düşünmüştüm:hey: .
     
  16. metkey

    metkey Yeni Üye

    Kayıt:
    31 Mayıs 2008
    Mesajlar:
    1
    Beğenilen Mesajlar:
    0
    bende 2. satırda hata olduğunu söylüyor dediğiniz o seyi indirmedim nerden bulabilirim
     
  17. nurikaraman

    nurikaraman Üye

    Kayıt:
    12 Şubat 2006
    Mesajlar:
    116
    Beğenilen Mesajlar:
    0
    Şehir:
    ankara
    bendede şöyle bir kod var arşivde sizinle paylaşayım dedim:

    ----------------
    <%
    ' change to address of your own SMTP server
    strHost = "mail.deneme.com"
    ' We use AspUpload component to capture uploaded file and access other form items.
    ' Because of the special ENCTYPE attribute we can no longer use Request.Form,
    ' we must use Upload.Form instead.
    ' More more info on AspUpload, visit www.aspupload.com.
    Set Upload = Server.CreateObject("Persits.Upload")
    Upload.IgnoreNoPost = True

    ' capture an upload and save uploaded files (if any) in temp directory
    Upload.Save "c:\upload"

    ' We cannot use Upload.Form or Upload.Files until Upload.Save is called.
    If Upload.Form("Send") <> "" Then
    Set Mail = Server.CreateObject("Persits.MailSender")
    Mail.From = "iletisim@deneme.com"
    Mail.FromName = "Attachment Demo"
    Mail.Host = strHost
    Mail.Subject = Upload.Form("Subject")
    Mail.Body = Upload.Form("Body")
    Mail.AddAddress Upload.Form("To")

    ' Handle attached file via Upload.Files collection.
    ' Check if a file was ineed uploaded
    If Not Upload.Files("Attachment") Is Nothing Then
    Mail.AddAttachment Upload.Files("Attachment").Path
    End If

    ' We are done. Send message
    Mail.Send
    Response.Write "İletiniz Gönderilmiştir!"
    End If
    %>

    <HTML>
    <BODY BGCOLOR="#FFFFFF">

    <FORM METHOD="POST" ACTION="attachment.asp" ENCTYPE="multipart/form-data">
    <TABLE CELLSPACING=0 CELLPADDING=0>
    <TR><TD>Email Adresiniz:</TD><TD><INPUT TYPE="TEXT" NAME="To" size="20"></TD></TR>
    <TR><TD>Konu:</TD><TD><INPUT TYPE="TEXT" NAME="Subject" size="20"></TD></TR>
    <TR><TD>Mesajınız:</TD><TD><TEXTAREA NAME="Body" rows="1" cols="20"></TEXTAREA></TD></TR>
    <TR><TD>Eklemek istediğiniz dosya varsa:</TD><TD>
    <INPUT TYPE=FILE NAME="Attachment" size="20"></TD></TR>
    <TR><TD COLSPAN=2><INPUT TYPE=SUBMIT NAME="Send" VALUE="Send"></TD></TR>
    </TABLE>
    </FORM>
    </BODY>
    </HTML>
    --------------------
     
  18. bindvori

    bindvori Aktif Üye

    Kayıt:
    22 Eylül 2008
    Mesajlar:
    251
    Beğenilen Mesajlar:
    0

    kardeş bunu çalıştırdım ama hatalı mail adreslerinde sayfa görüntülenemiyor diyor, buna yanlış mail adresi sorgusunu nasıul ekleriz? tşk
     
  19. demo

    demo Aktif Üye

    Kayıt:
    28 Eylül 2006
    Mesajlar:
    372
    Beğenilen Mesajlar:
    0
    Meslek:
    Çalış(a)mıyor
    Şehir:
    34770
    "Hatalı mail adresleri" buradaki hata e-mail adresi formatının hatalı olması mı yoksa formata uygun olduğu halde varolmayan bir mail adresi mi?
    Eğer format hatası ise Hazır Fonksiyonlar bölümünden bulabileceğiniz bir kontrol fonksiyonu ile sayfa post edildiğinde ilk olarak bu fonksiyon ile mail adresi kontrolü yaparsınız ve uygun ise diğer işlemleri yürütürsünüz.
    Olmayan bir adres ise, hatadan kastınız, bunu önlemek oldukça zor...
     
  20. nurikaraman

    nurikaraman Üye

    Kayıt:
    12 Şubat 2006
    Mesajlar:
    116
    Beğenilen Mesajlar:
    0
    Şehir:
    ankara
    merhaba. demo nun dediği gibi "formata uygun olduğu halde varolmayan bir mail adresi mi?" bunu kastediyorsun zannedersem. ? bu kod natro sunucularında çalışıyordu çalıştığı için arşive attım bende. ama 2 yıl oldu herhalde. formata uygun olamama meselesini çeözemem çünkü asp bilgim fazla değil özür dilerim. yanlış anlama lütfen. ama javascript ile basit olarak yapılabilir diye biliyorum. saygılar.