|
<% ' ASP Script Created by GlobalDevelop for GlobalDevelop Users ' you are free to use. ' http://www.GlobalDevelop.com
dim result dim Namee,FromE,TOe,SubjectE,BodyE Response.write("Send Email ASPMAIL - GlobalDevelop.com<br><br>")
Namee=request.querystring("namee") FromE=request.querystring("frome") ToE=request.querystring("toe") SubjectE=request.querystring("subjecte") BodyE=request.querystring("bodye")
Result=ASPMAILSendEmail(NameE,FromE,ToE,SubjectE,BodyE)
Function ASPMAILSendEmail(NameE,FromE,ToE,SubjectE,BodyE) Dim Ehost Dim MailOBJ
' EMail Address Host Ehost="mail.yourdomain.com"
Set MailOBJ = Server.CreateObject("Persits.MailSender") with MailOBJ .host=Ehost .From = FromE .FromName = NameE .Addaddress ToE .Subject = SubjectE .Body = BodyE .IsHTML = True .Send End With
set MailOBJ=Nothing End Function %> |