CDONTS ile email gönderme

<%
  On Error resume Next
  Dim TBdy
  Dim MyCDO
  CR = Chr(13)
  Set MyCDO = Server.CreateObject("CDONTS.NewMail")
  If IsObject (MyCDO) Then
   MyCDO.From = "mail@mail.com (Kimden)"
   MyCDO.To = "mail@mail.com (Kime)"
   MyCDO.Subject = "Mesaj konusunu buraya yazınız"
   TBdy = "sayın Yetkili" & VBCRLF & VBCRLF & "Burası mesaj metnidir" & VBCRLF
   TBdy = TBdy & "Teşekkürler"
   MyCDO.Body = TBdy
   MyCDO.Importance = 2 (High)
   MyCDO.value("Reply-to")="reply@mail.com"
   ' --- Dosya eklemek isteniyorsa aşağıdaki satırı da kullanabilirsiniz.
   ' --- MyCDO.AttachFile = "e:\files\catalog.zip"
   MyCDO.Send
   Set MyCDO = nothing
   Response.Write("Mesaj gönderilmiştir.")
  Else
   Response.Write("Mesaj Gönderilmedi")
  End If
%>