Ü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
  • Yazılım Geliştirme
  • Asp / Asp.NET
  • Bu Konuda
Şimdi Ara

ASP mail gönderme acil yardım

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
15
Cevap
0
Favori
3.324
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • Arkadaşlar ben yeni bir web sitesi yaptım sitemde mail göndermek için bir form bölümü yaptım fakat bu formun içeriğini mail adresine postalayamıyorum hostingi aldığım kişiye söyledim fakat bilmediğini söyledi nasıl bir kod yazmalıyımki gönderme işlemim olsun. Hosting mail adresi veriyor kendine ait gönderme alanı var fakat ben siteme üye olanların mail adresine şifreyi otomatik olarak postalamak istiyorum yardımcı olursanız sevinirim.



  • asp den anlamam
  • önce host hizmeti aldığın serverde hangi mail companenti yüklü onu belirtirsen daha rahat yardımcı olabilirim.
  • PLESK arayüz var var mail companenti ne tam olarak bilmiyorum fakat horde yazısı var inşallah doğru bilgileri katmışımdır.
  • Mail bileşeni persist mi yokca cdonts mu die sor sen ...büyük ihtimalle bu mail bileşenlerinderi kurulu değildir o yuzden yollayamıyordur.
  • Aşağıdaki kodda bir çok mail companentinin kullanımı var.Senin serverinde hangisi olduğunu öğrendiğinde oradan alıp kullanabilirsin 


     
      <% 
      Err_Msg = "" 
      on error resume next 
      select case lcase(MailMode)  
       
      	case "aspmail" 
      		Set objNewMail = Server.CreateObject("SMTPsvg.Mailer") 
      		objNewMail.FromName = strFromName 
      		objNewMail.FromAddress = strSender 
      		'objNewMail.AddReplyTo strSender 
      		objNewMail.RemoteHost = strMailServer 
      		objNewMail.AddRecipient strRecipientsName, strRecipients 
      		objNewMail.Subject = strSubject 
      		objNewMail.BodyText = strMessage 
      		 
      		SendOk = objNewMail.SendMail 
      		If not(SendOk) <> 0 Then  
      			Err_Msg = Err_Msg & "<li>Bir Hata Oluşu, Email Gönderilemedi, Hata : " & objNewMail.Response & "</li>" 
      		End if 
      		 
      	case "aspemail" 
      		Set objNewMail = Server.CreateObject("Persits.MailSender") 
      		objNewMail.FromName = strFromName 
      		objNewMail.From = strSender 
      		objNewMail.AddReplyTo strSender 
      		objNewMail.Host = strMailServer 
      		objNewMail.AddAddress strRecipients, strRecipientsName 
      		objNewMail.Subject = strSubject 
      		objNewMail.Body = strMessage 
      		 
      		objNewMail.Send 
      		If Err <> 0 Then  
      			Err_Msg = Err_Msg & "<li>Bir Hata Oluşu, Email Gönderilemedi, Hata : " & Err.Description & "</li>" 
      		End if 
      		 
      	case "aspqmail" 
      		Set objNewMail = Server.CreateObject("SMTPsvg.Mailer") 
      		objNewMail.QMessage = 1 
      		objNewMail.FromName = strFromName 
      		objNewMail.FromAddress = strSender 
      		objNewMail.RemoteHost = strMailServer 
      		objNewMail.AddRecipient strRecipientsName, strRecipients 
      		objNewMail.Subject = strSubject 
      		objNewMail.BodyText = strMessage 
      		 
      		objNewMail.SendMail 
      		If Err <> 0 Then  
      			Err_Msg = Err_Msg & "<li>Bir Hata Oluşu, Email Gönderilemedi, Hata : " & Err.Description & "</li>" 
      		End if 
      		 
      	case "cdonts" 
      		Set objNewMail = Server.CreateObject ("CDONTS.NewMail") 
      		objNewMail.BodyFormat = 1 
      		objNewMail.MailFormat = 0 
      		 
      		objNewMail.Send strSender, strRecipients, strSubject, strMessage 
      		If Err <> 0 Then  
      			Err_Msg = Err_Msg & "<li>Bir Hata Oluşu, Email Gönderilemedi, Hata : " & Err.Description & "</li>" 
      		End if 
      		 
      	case "chilicdonts" 
      		Set objNewMail = Server.CreateObject ("CDONTS.NewMail") 
      		 
      		objNewMail.Send strSender, strRecipients, strSubject, strMessage 
      		If Err <> 0 Then  
      			Err_Msg = Err_Msg & "<li>Bir Hata Oluşu, Email Gönderilemedi, Hata : " & Err.Description & "</li>" 
      		End if 
       
      	case "geocel" 
      		set objNewMail = Server.CreateObject("Geocel.Mailer") 
      		objNewMail.AddServer strMailServer, 25 
      		objNewMail.AddRecipient strRecipients, strRecipientsName 
      		objNewMail.FromName = strFromName 
      		objNewMail.FromAddress = strFrom 
      		objNewMail.Subject = strSubject 
      		objNewMail.Body = strMessage 
      		 
      		objNewMail.Send() 
      		If Err <> 0 Then  
      			Err_Msg = Err_Msg & "<li>Bir Hata Oluşu, Email Gönderilemedi, Hata : " & Err.Description & "</li>" 
      		End if 
      		 
      	case "iismail" 
      		Set objNewMail = Server.CreateObject("iismail.iismail.1") 
      		MailServer = strMailServer 
      		objNewMail.Server = strMailServer 
      		objNewMail.addRecipient(strRecipients) 
      		objNewMail.From = strSender 
      		objNewMail.Subject = strSubject 
      		objNewMail.body = strMessage 
      		 
      		objNewMail.Send 
      		If Err <> 0 Then  
      			Err_Msg = Err_Msg & "<li>Bir Hata Oluşu, Email Gönderilemedi, Hata : " & Err.Description & "</li>" 
      		End if 
       
      	case "dkqmail" 
      		Set objNewMail = Server.CreateObject("dkQmail.Qmail") 
      		objNewMail.FromEmail = strSender 
      		objNewMail.ToEmail = strRecipients 
      		objNewMail.Subject = strSubject 
      		objNewMail.Body = strMessage 
      		objNewMail.CC = "" 
      		objNewMail.MessageType = "TEXT" 
      		on error resume next '## Ignore Errors 
      		objNewMail.SendMail() 
      		If Err <> 0 Then  
      			Err_Msg = Err_Msg & "<li>Bir Hata Oluşu, Email Gönderilemedi, Hata : " & Err.Description & "</li>" 
      		End if 
       
      	case "ocxmail" 
      		Set objNewMail = Server.CreateObject("ASPMail.ASPMailCtrl.1") 
      		recipient = strRecipients 
      		sender = strSender 
      		subject = strSubject 
      		message = strMessage 
      		mailserver = strMailServer 
      		on error resume next '## Ignore Errors 
      		result = objNewMail.SendMail(mailserver, recipient, sender, subject, message) 
      		If Err <> 0 Then  
      			Err_Msg = Err_Msg & "<li>Bir Hata Oluşu, Email Gönderilemedi, Hata : " & Err.Description & "</li>" 
      		End if 
       
      	case "ocxqmail" 
      		Set objNewMail = Server.CreateObject("ocxQmail.ocxQmailCtrl.1") 
      		mailServer = strMailServer 
      		FromName = strFromName 
      		FromAddress = strSender 
      		priority = "" 
      		returnReceipt = "" 
      		toAddressList = strRecipients 
      		ccAddressList = "" 
      		bccAddressList = "" 
      		attachmentList = "" 
      		messageSubject = strSubject 
      		messageText = strMessage 
      		on error resume next '## Ignore Errors 
      		objNewMail.Q mailServer,      _ 
      			fromName,      _ 
      		        fromAddress,      _ 
      		        priority,      _ 
      		        returnReceipt,      _ 
      		        toAddressList,      _ 
      		        ccAddressList,      _ 
      		        bccAddressList,      _ 
      		        attachmentList,      _ 
      		        messageSubject,      _ 
      		        messageText 
      		If Err <> 0 Then  
      			Err_Msg = Err_Msg & "<li>Bir Hata Oluşu, Email Gönderilemedi, Hata : " & Err.Description & "</li>" 
      		End if 
       
      	case "sa-smtp" 
      		Set objNewMail = Server.CreateObject("SoftArtisans.SMTPMail") 
      		objNewMail.FromName = strFromName 
      		objNewMail.FromAddress = strSender 
      		objNewMail.AddRecipient strRecipientsName, strRecipients 
      		'objNewMail.AddReplyTo strSender 
      		objNewMail.BodyText = strMessage 
      		objNewMail.organization = strForumTitle 
      		objNewMail.Subject = strSubject 
      		objNewMail.RemoteHost = strMailServer 
      		on error resume next 
      		SendOk = objNewMail.SendMail 
       
      		If not(SendOk) <> 0 Then 
      			Err_Msg = Err_Msg & "<li>Bir Hata Oluşu, Email Gönderilemedi, Hata : " & Err.Description & "</li>" 
      		End if 
      		 
      	case "jmail" 
      		Set objNewMail = Server.CreateObject("Jmail.smtpmail") 
      		objNewMail.ServerAddress = strMailServer 
      		objNewMail.AddRecipient strRecipients 
      		objNewMail.Sender = strSender 
      		objNewMail.Subject = strSubject 
      		objNewMail.body = strMessage 
      		objNewMail.priority = 3 
      		 
      		objNewMail.execute 
      		If Err <> 0 Then  
      			Err_Msg = Err_Msg & "<li>Bir Hata Oluşu, Email Gönderilemedi, Hata : " & Err.Description & "</li>" 
      		End if 
      		 
      	case "smtp" 
      		Set objNewMail = Server.CreateObject("SmtpMail.SmtpMail.1") 
      		objNewMail.MailServer = strMailServer 
      		objNewMail.Recipients = strRecipients 
      		objNewMail.Sender = strSender 
      		objNewMail.Subject = strSubject 
      		objNewMail.Message = strMessage 
      		 
      		objNewMail.SendMail2 
      		If Err <> 0 Then  
      			Err_Msg = Err_Msg & "<li>Bir Hata Oluşu, Email Gönderilemedi, Hata : " & Err.Description & "</li>" 
      		End if 
      end select 
       
      Set objNewMail = Nothing 
      %>




  • Arkadaşlar paylaşımınız ve yardımlarınız için teşekkür ederim
    • Yapay Zeka’dan İlgili Konular
    ACİL YARDIM PDF.JS HATASI
    7 yıl önce açıldı
    whatsapp web giriş sorunu acil yardım !!
    3 hafta önce açıldı
    acil yardım!!! ofis word başlık numaralandırma
    10 yıl önce açıldı
    Daha Fazla Göster
  • Arkadaşlar mail companentim cdont muş bna detaylı bilgi verebilirmisiniz bu konu hakkında çok eksiğim var nasıl bir kod yazmalıyım.
  • SiR MaNiaC arkadaşımın vermiş olduğu kodu uyguladım fakat çalışmadı
    kod bloğum aşağıdaki gibiydi:

    <%

    strAlacakMail = "mehmeterisen@mynet.com"

    strYollayan= "bilgi@okyanusgozu.com"

    strBaslik = "Siteden Mail Yollandı"

    strMesaj = strMesaj & "Bu mesajy siteden size yolladylar: "
    %>
    <%
    Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
    objNewMail.BodyFormat = 1
    objNewMail.MailFormat = 0

    objNewMail.Send strYollayan, strAlacakMail, strBaslik, strMesaj
    If Err <> 0 Then
    Err_Msg = Err_Msg & "<li>Bir Hata Oluşu, Email Gönderilemedi, Hata : " & Err.Description & "</li>"
    End if
    %>

    sorun nerede olduğunu bileniniz varmı
  • aşağıdaki kod bloğuda çalışmadı
    <% Dim mailgit, metin
    Set mailgit = Server.CreateObject("CDONTS.NewMail")
    mailgit.To = "donanimhaber@donanimhaber.com"
    mailgit.From = "donanimhaber@donanimhaber.com"

    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.donanimhaber.com>"& Chr(10)

    mailgit.Body = metin
    mailgit.Send
    %>



    < Bu mesaj bu kişi tarafından değiştirildi mehmeterisen -- 6 Ocak 2008; 11:16:35 >
  • Dim objCDOMail


    strFrom = kimden@kime.com

    strTo = sana@sana.com

    strBody =request.form("içerik")

    strSubject = request.form("konu")



    Set objCDOMail = Server.createobject("CDONTS.NewMail")

    objCDOMail.From = strFrom

    objCDOMail.To = strTo

    objCDOMail.Subject = strSubject

    objCDOMail.MailFormat = 0 '(0:Text, 1:HTML, 2:Close HTML)

    objCDOMail.BodyFormat = 0

    objCDOMail.Body = strBody

    objCDOMail.Importance = 1 '(1:Slow , 2:Normal, 3:Fast)

    objCDOMail.Send

    Set objCDOMail = nothing

    %>



    < Bu mesaj bu kişi tarafından değiştirildi youngboy_ugur -- 7 Ocak 2008; 0:50:53 >




  • 1 - Hata olarak ne veriyor.
    Eger mail formatını html olarak belirlediysen strmesaj html olmalı.

    ama orada büyük bir html kullanıorsan bunun düzenlenmesi gerekir.
    Yani 



     
      Dim objMail 
      Dim strSubject 
      Dim strBody 
       
      strSubject = "Bu bir HTML formatında test mailidir." 
       
      strBody = "<HTML>" & _ 
           "<HEAD></HEAD>" & _ 
           "<BODY>" & _ 
           " <Font Face=Arial Size=5><B>" & _ 
           "  TEST EDİLİYORRRRRR" & _ 
           " </B></Font><BR>" & _ 
           " <H3><A Href=http://www.xxxxxx.com>tıklayınız</a>" & _ 
           " www.xxxxxx.com</h3>" & _ 
           "</BODY>" & _ 
           "</HTML>" 
       
      Set objMail = Server.CreateObject("CDONTS.NewMail") 
       
      objMail.From    = "kimden@XXX.com" 
      objMail.To      = "kime@xxx.com" 
      objMail.Subject = strSubject 
      objMail.Body    = strBody 
       
      objMail.MailFormat = 0 
      objMail.BodyFormat = 0 
       
      objMail.Send 
       
      Set objMail = Nothing


    şekilnde kullanmalısın




  • Arkadaşlar yardımınız için teşekkürederim fakat ne yaptıysam bir türlü olmuyor kodları aşağıda yazdım bu sayfa açılınca hata veriyor.

    Birinci deneme için yazılan kod

    <%@LANGUAGE="VBSCRIPT"%>

    <%

    Dim objMail
    Dim strSubject
    Dim strBody

    strSubject = "Bu bir HTML formatında test mailidir."

    strBody = "<HTML>" & _
    "<HEAD></HEAD>" & _
    "<BODY>" & _
    " <Font Face=Arial Size=5><B>" & _
    " TEST EDİLİYORRRRRR" & _
    " </B></Font><BR>" & _
    " <H3><A Href=http://www.xxxxxx.com>tıklayınız</a>" & _
    "www.xxxxxx.com</h3>" & _
    "</BODY>" & _
    "</HTML>"

    Set objMail = Server.CreateObject("CDONTS.NewMail")

    objMail.From = "bilgi@okyanusgozsu.com"
    objMail.To = "mehmeterisen@mynet.com"
    objMail.Subject = strSubject
    objMail.Body = strBody

    objMail.MailFormat = 0
    objMail.BodyFormat = 0

    objMail.Send

    Set objMail = Nothing

    %>
    <html>
    <head>
    </head>
    <body>
    <p>Mesaj gönderildi</p>
    </body>
    </html>

    ikinci deneme

    <%@LANGUAGE="VBSCRIPT"%>

    <%


    Dim objCDOMail, strFrom, strTo, strBody, strSubject


    strFrom = "bilgi@okyanusgozu.com"

    strTo = "mehmeterisen@mynet.com"

    strBody ="Slm"

    strSubject = "nbr"



    Set objCDOMail = Server.createobject("CDONTS.NewMail")

    objCDOMail.From = strFrom

    objCDOMail.To = strTo

    objCDOMail.Subject = strSubject

    objCDOMail.MailFormat = 0 '(0:Text, 1:HTML, 2:Close HTML)

    objCDOMail.BodyFormat = 0

    objCDOMail.Body = strBody

    objCDOMail.Importance = 1 '(1:Slow , 2:Normal, 3:Fast)

    objCDOMail.Send

    Set objCDOMail = nothing

    %>

    <html>
    <head>
    </head>
    <body>
    <p>Mesaj gönderildi</p>
    </body>
    </html>

    her iki kod içinde aşağıdaki hatayı veriyor

    Internal Server Error
    The server encountered an internal error or misconfiguration and was unable to complete your request.
    Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.

    More information about this error may be available in the server error log.

    hostingi aldığım firmaya sordum aşağıdaki yanıtı verdi

    Bu hatayı genelde veritabanı yollarının yanlış yazılmasından dolayı verir,veya herhangi bir yolu yanlış yazmış olabilirsiniz,kodlarınızı kontrol edermisiniz.

    Bu noktada bir çıkmazdayım tekrar bir göz atarsanız sevinirim




  • Yok hojam ne veritabanı ne yolu.Tamamen sallamışlar...Bak arkadasım verdiğimi kodlar ayrı da olsa hepsi dogru test edilmis kodlardır.Ben yinede hosting firmasında bulurdum sucu.Biraz da üstüne gittin mi bence yaparlar.
  • Persits kullanarak nasıl mail göndeririz hostingi aldığım firma Persits yüklediğini söyledi aşağıdaki kodu denedim çalışmadı
    <%@LANGUAGE="VBSCRIPT"%>

    <html>
    <head>
    </head>
    <body>
    <p>Mesaj gönderildi</p>
    <%

    Dim MAIL
    Set MAIL = Server.CreateObject("Persits.MailSender")
    MAIL.Host = "mail.okyanusgozu.com"
    MAIL.From = "bilgi@okyanusgozu.com"
    MAIL.Username = "bilgi@okyanusgozu.com"
    MAIL.Password = "*******"
    MAIL.FromName = "mehmeterisen"
    MAIL.AddAddress "mehmeterisen@mynet.com"
    MAIL.Subject = "Mailin Konusu"
    MAIL.IsHTML = True
    MAIL.Body = "<html><head></head><body>Mailin İçeriği</body></html>"
    MAIL.Send

    If err Then ' hata mesajını alalım Mail Gönderilmemişse..
    Response.Write err.Description & "<br>Mesajınız Gönderilmedi.."
    Else ' Mail Gönderilmiş ise
    Response.Write("<script>alert('İlginize Teşşekkür Ederiz..');location.href='mesaj.htm';</script>" )
    End If


    set MAIL = nothing




    %>

    </body>
    </html>




    • 
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'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
Kabul Ediyorum