• 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.

• 1
• 2
• 3
• 4
• 5

(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