Set Mail = Server.CreateObject("Persits.MailSender")
persits mailsender bileşeni ile çalışıyor
yanlız benim sistemde yani hostta bu bileşen yüklü olmadığından ben bunu
Set ObjSendMail1 = Server.CreateObject("CDO.Message")
bleşeni yapmak istiyorum. bu konuda bana yardım edebilirmisiniz aslında ben yaptım ama forumdaki doldurduğum alanlar gelmiyor. forum altta.
<%
mailto="......." ' mailin gönderileceği adres. virgül ile ayırarak birden fazla adres girebilirsiniz.
strHost = "......" ' email sunucumuzun adresi
kullanici = "....." ' pop3 email hesabımızın kullanıcı adı
sifre = "........." ' ' pop3 email hesabımızın sifresi
konu= "Adwords için yeni sipariş alındı." ' Adresimize gelecek email için konu
%>
<%if sendemail="gonder" then%>
<%
getOdeme = request.QueryString("o")
if getOdeme<>"" then
if getOdeme = "0" then odemesekli="Banka Havalesi / EFT"
if getOdeme = "1" then odemesekli="Posta Çeki"
else
odemesekli ="Kredi Kartı"
end if
html=html&"<span><font face='Verdana, Arial, Helvetica, sans-serif' size='-1'>"
html=html&"------------------ "
html=html&"<br><b>Müşteri Bilgileri</b><br>"
html=html&"------------------"
html=html&"<br><b>Adı Soyadı :</b> "&session("ad")
html=html&"<br><b>Firma Adı :</b> "&session("firma")
html=html&"<br><b>Sabit Telefon :</b> "&session("sabit_tel")
html=html&"<br><b>GSM :</b> "&session("gsm")
html=html&"<br><b>E-posta Adresi :</b> "&session("email")
html=html&"<br><b>Web Sitesi :</b> "&session("websitesi")
html=html&"<br><b>Ev/İş Adresi :</b> "&session("isadresi")
html=html&"<br>"
html=html&"------------------ "
html=html&"<br><b>Fatura Bilgileri</b><br>"
html=html&"------------------ "
html=html&"<br><b>Ticari Ünvanı :</b> "&session("unvan")
html=html&"<br><b>Vergi Numarası :</b> "&session("vergino")
html=html&"<br><b>Vergi Dairesi :</b> "&session("vergidairesi")
html=html&"<br><b>Fatura Adresi :</b> "&session("faturaadresi")
html=html&"<br>"
html=html&"------------------ "
html=html&"<br><b>Sipariş Bilgileri</b><br>"
html=html&"------------------ "
html=html&"<br><b>Paket Adı :</b> "&session("sp_paket")
html=html&"<br><b>Toplam Tutarı :</b> "&session("sp_toplamucret")
html=html&"<br><b>Ödeme Şekli :</b> "&odemesekli
html=html&"<br>"
html=html&"------------------ "
html=html&"<br><b>İlan Bilgileri</b><br>"
html=html&"------------------ "
html=html&"<br><b>Başlık :</b> "&session("sp_baslik")
html=html&"<br><b>Hedef URL :</b> "&session("sp_hedefurl")
html=html&"<br><b>Açıklama Satırı 1 :</b> "&session("sp_aciklama1")
html=html&"<br><b>Açıklama Satırı 2 :</b> "&session("sp_aciklama2")
html=html&"<br><b>Seçilen Ülkeler :</b><br> "&replace(session("sp_ulkeler"),",","<br>")
html=html&"<br><b>Anahtar Kelimeler :</b><br> "&replace(session("sp_kelimeler"),vbNewLine,", ")
html=html&"<br><b>Müşterinin Notu :</b><br> "&session("sp_mesaj")
html=html&"</font></span>"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.Charset = "Windows-1254"
Mail.From = session("email") ' From address
Mail.FromName = session("ad") &" - "& session("firma")
Mail.AddAddress mailto
Mail.Username = kullanici
Mail.Password = sifre
Mail.Port = 25
Mail.Subject = konu
Mail.IsHTML = True
Mail.Body = html
strErr = ""
bSuccess = False
'On Error Resume Next
Mail.Send
If Err <> 0 Then
strErr = Err.Description
else
bSuccess = True
End If
If bSuccess = false Then
response.Write("Hata Oluştu:"& strErr)
response.Write("<br> Lütfen siparis@xxxxx.com adresine email gönderek veya 0(xxxx) 449 44 xx nolu telefondan arayarak ödeme yaptığınızı teyit ettiriniz.")
End If
%>
<%=strErr%>
<%end if%>bunu nasıl düzenleriz bi yardım ederseniz cok sevinirim.
