Persist ASPmail kodu

<%
 ’ SMTP Host Adresiniz
 strHost = “localhost”

 If Request(”Send”) <> “” Then
  
  Set Mail = Server.CreateObject(”Persits.MailSender”)
  ’ enter valid SMTP host
  Mail.Host = strHost

  Mail.From = Request(”From”) ‘ From address
  Mail.FromName = Request(”FromName”) ‘ optional
  Mail.AddAddress Request(”To”)
  
  ’ message subject
  Mail.Subject = Request(”Subject”)
  ’ message body
  Mail.Body = Request(”Body”)

  strErr = “”
  bSuccess = False
  On Error Resume Next ‘ catch errors
  Mail.Send ’ send message
  If Err <> 0 Then ‘ error occurred
   strErr = Err.Description
  else
   bSuccess = True
  End If
 End If
%>
 

Bu cevap yeterince yardımcı oldu mu?

Benzer Diğer Makaleler