ana sayfa > ASP Bileşenleri > Persist ASPmail kodu

Persist ASPmail kodu

Çarşamba, 29 Tem 2009 yorum ekle yorumlara git

örnek bileşen 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
%>

—————————————————————————
Form ile kodun tamamını indirmek için tıklayınız. Aspmail.zip

Categories: ASP Bileşenleri Tags:
  1. şimdilik yorum yok.
  1. şimdilik geri bağlantı yok