<%
sub Jmail(E-Mail)
Dimmen Sie JMail, SendMail
Setze JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.ServerAddress=SMTPServer
JMail.Sender=SystemEmail
JMail.Subject=Thema
JMail.Body=Mailbody
JMail.AddRecipient-E-Mail
JMail.Priority=3
JMail.Execute
Setzen Sie JMail=nothing
Wenn ich mich irre, dann
SendMail=err.description
irr.klar
anders
SendMail="OK"
Ende wenn
end sub
sub Cdonts(email)
dim objCDOMail
Setze objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =SystemEmail
objCDOMail.To =E-Mail
objCDOMail.Subject =thema
objCDOMail.Body =Mailbody
objCDOMail.Send
Setze objCDOMail = Nothing
Wenn ich mich irre, dann
SendMail=err.description
irr.klar
anders
SendMail="OK"
Ende wenn
end sub
sub aspemail(email)
Setze mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
Empfänger=E-Mail
sender=SystemEmail
Betreff=Thema
message=Mailbody
mailserver=SMTPServer
result=mailer.SendMail(Mailserver, Empfänger, Absender, Betreff, Nachricht)
Wenn ich mich irre, dann
SendMail=err.description
irr.klar
anders
SendMail="OK"
Ende wenn
Ende sub
%>