asp ile mail adresine form

Web tabanlı uygulama geliştirme araçları(PHP, ASP vb...) ile ilgili konuları buraya yazabilirsiniz.
Cevapla
menderes

asp ile mail adresine form

Mesaj gönderen menderes »

Herkese kolay gelsin. Benim sorunum asp ile hazırladığım sipariş formunu bir türlü mail adresine gönderememem. Bu konuda bana lütfen acil yardım. Yazdığım kod şu;

Kod: Tümünü seç

email="yenihaber@yenihabernet.com"
adsoyad=isim & " " & soyisim
addresstoemail= email 
addressto=isim & " " & soyisim 

konu= "Siparis Formu" 
emailbody= Body   
Dim mail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.yenihabernet.com"
Mail.From = email
Mail.FromName = adsoyad
Mail.AddAddress addresstoemail, addressto
Mail.AddReplyTo email
Mail.Subject = konu
Mail.Body = emailbody

On Error Resume Next
Mail.Send
If Err <> 0 Then
  Response.Write "Hata Var: " & Err.Description
Else
  Response.Write "Siparişiniz Başarıyla Gönderilmiştir."
End If
ALDIĞIM CEVAP İSE ŞU;
Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/nokshop/yolla.asp, line 91

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.

Şimdiden herkese teşekkür ederim.

*****Kodlarınızı yazarken kod bloklarınızı kullanınız. HUSONET
En son menderes tarafından 11 Eyl 2004 01:14 tarihinde düzenlendi, toplamda 2 kere düzenlendi.
Kullanıcı avatarı
vkamadan
Kıdemli Üye
Mesajlar: 1935
Kayıt: 17 Mar 2004 03:52
Konum: Adapazarı
İletişim:

Mesaj gönderen vkamadan »

Merhaba ,
Kullandığın nesneyi server ın desteklemiyor büyük ihtimalle,
ben mail göndermede "CDO" nesnesini kullanırım ;örnek incelemeni tavsiye ederim
Başarılar.
Volkan KAMADAN
www.polisoft.com.tr
menderes

asp ile mail adresine form

Mesaj gönderen menderes »

ilgine teşekkür ederim yalnız
Bir şeyler yaptım ama şu mesaj karşıma çıktı ve
aşağıdaki mesajın anlamını alamadım
Message ARE NO LONGER BEING SENT because of all the abuse the system was receiving! mesajı aldım. Eksik birşeyler yaptım herhalde
Kullanıcı avatarı
husonet
Admin
Mesajlar: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet »

Sunucu ASPMAIL ı destekliyorsa
Mail.Host kısmına local ip adresini vermek yeterli olacaktır.

Kod: Tümünü seç

Mail.Host = "127.0.0.1"
Kolay Gelsin...

Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.
menderes

asp ile mail gönderme

Mesaj gönderen menderes »

Herkese kolay gelsin sunucum CDONTS destekli imiş
ona göre aşağıdaki kodu düzenledim, "Siparişiniz Başarıyla Gönderilmiştir." yazısı geliyor. Ancak e-mail adrese gitmiyor.
Lütfen bana bu konuda bir yardım edin. Teşekkür ederim

Kullanılan kod:

email="adnanyildiz81@hotmail.com"
adsoyad=isim & " " & soyisim
addresstoemail= email
addressto=isim & " " & soyisim

konu= "Siparis Formu"
emailbody= Body
Dim mail
Set Mail = Server.CreateObject("CDONTS.Newmail")

Mail.From=adsoyad
Mail.To=email
Mail.MailFormat=0
Mail.Importance=1
Mail.BodyFormat=1
Mail.Subject = konu
Mail.Body = emailbody

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Hata Var: " & Err.Description
Else
Response.Write "Siparişiniz Başarıyla Gönderilmiştir."
End If
Kullanıcı avatarı
husonet
Admin
Mesajlar: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet »

Mail.Host = "127.0.0.1" Bu satırıda ekle


Kolay gelsin....

Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.
menderes

mail göndermede sorun

Mesaj gönderen menderes »

ilginize teşekkür ederim
dediğiniz satırı ekledim ancak şöyle bir hata çıktı bu sefer

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Host'

/nokshop/yolla.asp, line 102
Kullanıcı avatarı
husonet
Admin
Mesajlar: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet »

Kod: Tümünü seç

Set mailmsg = Server.CreateObject("CDONTS.NewMail")
mailmsg.From = "admin@husonet.com" 'mail'da gözükecek adres
mailmsg.To = Email 
mailmsg.Bcc = "admin@husonet.com" 'bana gönder
mailmsg.Subject = "HUSONET BİLİŞİM HİZMETLERİ"
mailmsg.Charset = "windows-1254"
mailmsg.Body = "Sayın " & request("Name_First") & "," & chr(13) & chr(10)
mailmsg.Body = mailmsg.Body & "Mail listemize üye olduğunuz tespit edilmiştir. " & chr(13) & chr(10)
mailmsg.Body = mailmsg.Body & "Üyeliğiniz boyunca yaptığımız çalışmalardan haberdar olacaksınız." & chr(13) & chr(10)
mailmsg.Body = mailmsg.Body & "İlginize teşekkür ederiz." & chr(13) & chr(10)
mailmsg.Body = mailmsg.Body & chr(13) & chr(10)
mailmsg.Body = mailmsg.Body & chr(13) & chr(10)
mailmsg.Body = mailmsg.Body & chr(13) & chr(10)
mailmsg.Body = mailmsg.Body & "HUSONET BİLİŞİM HİZMETLERİ" & chr(13) & chr(10)
mailmsg.Host = "mail.husonet.com"
mailmsg.Send
Yukarıda Yazdığım Scripti kendi Sitemde kullanıyorum.

Kolay Gelsin...

Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.
mania
Üye
Mesajlar: 16
Kayıt: 21 Haz 2004 04:40

Mesaj gönderen mania »

CDONTS'un Host şeklinde bir parametresi yok. Default olarak IIS in SMTP server ını kullanıyor. Ancak ASP de mail gönderimi konusunda en sorunlu bileşen bana göre CDONTS. Bir çok sorun çıkarabilir. Listedeki herkese gönderememe veya gönderdiği mesajını verip mesajların ulaşmaması geç ulaşması gibi. Bu sebep ile en iyisi ASP Mail bileşeninin yüklenmesini sağlamak. Ancak buda olmuyor ise IIS ile beraber gelen CDO ile mail göndermek.
Cevapla