Persits.MailSender CDONTS

teneke · 12 Ağustos 2007

<%
For Each x In Request.Form
message=message & x & ": " & Request.Form(x) & " "
Next

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "127.0.0.1"
Mail.addAddress "[email protected]"
Mail.Subject = "Rooxy - Web Hosting Siparişi"
Mail.From = ""&email&""
Mail.FromName = ""&adsoyad&""
Mail.Charset = "windows-1254"
Mail.IsHTML = True

Mail.Body = "Yeni bir web hosting siparişi ;" & _
"" &_
"Gönderen Hakkında bilgilendirme; " &_
"" &_
"Seçilen paket : "&paket&"" &_
"" &_
"İlgili domain : "&domain&"" &_
"" &_
"Tercih edilen kullanıcı adı : "&kullanici&"" &_
"" &_
"Tercih edilen parola : "&parola&"" &_
"" &_
"" &_
"Kişi hakkında bilgiler; " &_
"" &_
"Adsoyad : "&adsoyad&"" &_
"" &_
"Telefon numarası : "&tel&"" &_
"" &_
"Adres : "&adres&"" &_
"" &_
"Şehir : "&sehir&"" &_
"" &_
"Açıklama : "&aciklama&"" &_
""

On Error Resume Next
if err.number <> 0 then
response.write "Bir hata oluştu."
response.write ""&err.number &""
end if
Mail.Send
%>
<%
End if
%>

bu kodu cdonts nasıl çevirebilirim yardımcı olabılecek coder aranıyor

teneke · 12 Ağustos 2007

<%
'//// Include for CDONTS ////

emailcomponent="CDONTS"

sub sendmail(recipient,replyto,subject,message)
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = recipient
objCDO.From = mailadmin
if replyto<>"" then objCDO.Value("Reply-To") = replyto
objCDO.Subject = subject
objCDO.Body = message
objCDO.Send
Set objCDO = Nothing
end sub

%>

cdonts yapılışı bu şekılde ama nasıl olucak

Darkart · 13 Ağustos 2007

persits ---> cdonts çevirisi diye bişi yok dostum. örnek bir cdont scriptini kendine göre uyarlaman lazım...
aynen aşağıdaki gibi

<%
'declare variables for the mail object (oMail) and the email body (strEmailBody)
Dim oMail, strEmailBody

'Create the CDO object
Set oMail = Server.CreateObject("CDONTS.NewMail")

'places body of the email into the variable strEmailBody, formatted using 'HTML
strEmailBody = "<html><head><h3>CDONTS Example</h3></head>" _
&"<body>This request was submitted at " & Time & " on " & Date _
&"From: " & Request.Form("name") & "Email: " _
&Request.Form("email") & "Comments: " & Request.Form("Comments") _
&"</body></html>"

'creates the email using the oMail object and the string strEmailBody
oMail.To = "[email protected]"
oMail.From = "[email protected]"
'oMail.Bcc = " "
'oMail.Cc = " "
oMail.Subject = "CDONTS example"
oMail.BodyFormat = 0
oMail.MailFormat = 0
oMail.Body = strEmailBody
oMail.Send

'Resets the oMail object to Nothing
Set oMail = Nothing

%>

Persits.MailSender CDONTS

teneke

0

teneke

0

Darkart

0

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5