Merhaba Arkadaşlar Ben Sitede Yeniyim ve Size Danışmak İstediğim Birşey Vardı.
Mail Göndermek İçin Aşağıdaki Kodları Kullanıyorum Aşağıdaki Kodlara Bakabilirmiyiz Mail Gitti Diyor Ama Bana Mail Gelmiyor. Yardımcı Olabilirseniz Sevinirim.
Mail Göndermek İçin Aşağıdaki Kodları Kullanıyorum Aşağıdaki Kodlara Bakabilirmiyiz Mail Gitti Diyor Ama Bana Mail Gelmiyor. Yardımcı Olabilirseniz Sevinirim.
Kod:
<%
Sub SendMail(konu,mesaj,kime,bilgi,gizli,gonderen,gonderen_mail,mail_host,mail_kullaniciadi,mail_sifre,form_kontrol,uyari)
mail_bileseni="3" 'Persists(1) Cdonts(2) Jmail(3)
if form_kontrol = "" or form_kontrol = 1 then
if kime = "" then
%><p>Kime bilgisi yok!</p><%
end if
if konu= "" then
%><p>Konu yazlmam!</p><%
end if
if mesaj = "" then
%><p>Mesaj yazlmam!</p><%
end if
if mail_host = "" then
%><p>Mail Host tanml deil!</p><%
end if
end if
select case mail_bileseni
case "1"
strHTML = "<p>"
strHTML = strHTML & mesaj
strHTML = strHTML & "<br>"
strHTML = strHTML & "</p>"
Set smail = server.CreateObject("Persits.MailSender")
smail.Host = mail_host
smail.From = gonderen_mail
smail.FromName = gonderen
smail.Username = mail_kullaniciadi
smail.Password = mail_sifre
smail.AddAddress kime
smail.AddReplyTo kime
if bilgi <> "" then smail.AddCc bilgi
if gizli <> "" then smail.AddBcc gizli
' smail.AddAttachment Server.MapPath("dosyalar/dosyam.txt")
smail.Subject = konu
smail.IsHTML = True
smail.Body = "<HTML><HEAD><style>body,table{font:12px tahoma} A {text-decoration:none;}</style></HEAD><BODY>" & strHTML & "</BODY></HTML>"
smail.Charset = "windows-1254"
bSuccess = False
smail.Send
mailhata=""
If Err <> 0 Then
hata = Err.Description
End If
set smail = nothing
case "2"
DIM strReason, strComments, Mailer
strReason = konu
Set Mailer = Server.CreateObject("CDONTS.NewMail")
'Mailer.SetLocaleIDs(1252)
Mailer.From = gonderen&" <"&gonderen_mail&">"
Mailer.Subject = konu
Mailer.To = kime
if bilgi <> "" then Mailer.Cc = bilgi
if gizli <> "" then Mailer.BCC = gizli
Mailer.BodyFormat=0
Mailer.MailFormat=0
Mailer.Body = "<HTML><BODY>" & _
"" & mesaj & _
"</BODY></HTML>"
Mailer.Send
Set Mailer = nothing
If Err <> 0 Then
hata = Err_Msg & " " & Err.Description
End if
case "3"
Set smtp = Server.CreateObject("JMail.Message" )
'smtp.SimpleLayout = true
smtp.ISOEncodeHeaders = false
smtp.Logging = true
smtp.Silent = true
smtp.ContentType = "text/html"
smtp.CharSet = "windows-1254"
smtp.AddRecipientCc bilgi
smtp.AddRecipientBcc gizli
smtp.AddRecipient kime
smtp.from = gonderen_mail
smtp.ReplyTo = gonderen_mail
smtp.fromname = gonderen
smtp.MailServerUserName = mail_kullaniciadi
smtp.MailServerPassWord = mail_sifre
smtp.Priority = 3
smtp.Subject = konu
smtp.body = "<HTML><BODY>"&mesaj&"</BODY></HTML>"
smtp.Send(mail_host)
If err<>0 Then
hata = err.Description
End If
Set smtp = Nothing
case "4"
Dim strBody
Dim CDONTSMail
Set CDONTSMail = CreateObject("CDONTS.NewMail")
'CDONTSMail.SetLocaleIDs(1252)
CDONTSMail.BodyFormat=0
CDONTSMail.MailFormat=0
CDONTSMail.Body=HTML
CDONTSMail.From = gonderen & " <" & gonderen_mail & ">"
CDONTSMail.To = kime
'CDONTSMail.Bcc = "[email protected]"
'if bilgi <> "" then smail.AddCc bilgi
'if gizli <> "" then smail.AddBcc gizli
CDONTSMail.Value("Reply-To") = gonderen_mail
CDONTSMail.Subject=konu
CDONTSMail.Body = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"&chr(13)&"<HTML><head><meta http-equiv=""Content-Type"" content=""text/html; charset=ISO-8859-9""><style>body { font:12px arial; }</style></head><BODY>" & _
"" & mesaj & _
"</BODY></HTML>"
CDONTSMail.Send
If err<>0 Then
'hata = Err.Number & " / " & Err.Source & " / " & Err.Description
hata = " " & Err.Description
End If
set CDONTSMail=nothing
end select
if uyari <> 0 then
if hata = "" then %>
<%=bilgi_header%>Mesajnz kaydedilmitir. Teekkr ederiz.<%=bilgi_footer%><%
else %>
<%=hata_header%>Hata Olutu!!!<br><%=hata%><%=hata_footer%><%
end if
end if
on error GoTo 0
end sub
%>