- Home
·
- Internet/HTML
·
- E-mail sample code : connnect to a SMTP server from Windows 95 platform or higher.
E-mail sample code : connnect to a SMTP server from Windows 95 platform or higher.
E-mail sample code : connnect to a SMTP server from Windows 95 platform or higher.
Rate E-mail sample code : connnect to a SMTP server from Windows 95 platform or higher.
(2(2 Vote))
' Download it from http://www.vahland.com/pub/aemail.dll
' and register it on your machine.
' Read http://www.vahland.com/pub/aemail.htm for more info
WScript.Echo "Be sure to have the FREEWARE AEmail.dll registered on your system"
WScript.Echo "Check out the code header about how to obtain the component."
Set aeObj = CreateObject("ActivXperts.SmtpMail")
Wscript.Echo "ActivEmail " & aeObj.Version & " demo."
aeObj.HostName = "smtp.myserver.com"
aeObj.FromAddress = "[email protected]"
aeObj.FromName = "My Name"
aeObj.AddTo "[email protected]", "My friend Roger"
aeObj.Subject = "Sample 02 - first email"
aeObj.Body = "Hello my friend," & vbCrLf & "How are you doing?" & vbCrLf & "Regards."
aeObj.Send
Wscript.Echo "Result: " & aeObj.LastError
aeObj.Clear
aeObj.HostName = "smtp.myserver.com"
aeObj.FromAddress = "[email protected]"
aeObj.FromName = "My Name"
aeObj.AddTo "[email protected]", "My friend Denise"
aeObj.Subject = "Sample 02 - second email"
aeObj.Body = "Hello my friend," & vbCrLf & "How are you doing?" & vbCrLf & "Regards."
aeObj.Send
Wscript.Echo "Result: " & aeObj.LastError
E-mail sample code : connnect to a SMTP server from Windows 95 platform or higher. Comments
No comments yet — be the first to post one!
Post a Comment