Moderator: alorbach
<%@ LANGUAGE="VBSCRIPT" %>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
<title>ASP Sample Mailer</title>
</head>
<body>
<p>Testing mail
<p>
<%
set o = Server.CreateObject("ADISCON.SimpleMail.1") ' create mailer!
o.MailServer = "yourmailserver.com"
o.Sender = "test@test.com"
o.Recipient = "any@one.com"
o.Subject = "test msg"
o.MessageText = "test" + Chr(13) + Chr(10) + "test"
call o.Send
Response.Write("Last status: ")
Response.Write(o.LastStatus)
Response.Write("<br>Last status message: ")
Response.Write(o.LastStatusMessage)
set o = Nothing
%>
</body>
</html>
Set o = CreateObject("ADISCON.SimpleMail.1")
o.MailServer = "mailserver.com" ' Address of SMTP-Server
o.Sender = "your@mail.com"
o.Recipient = "any@one.com"
o.Subject = "test mail"
o.MessageText = "test" + vbCrLf + "test"
Call o.send
msgbox(o.LastStatus)
msgbox(o.LastStatusMessage)
Users browsing this forum: No registered users and 0 guests