• Home
 · 
• Miscellaneous
 · 
• Send an e-mail to a SMTP server without need for IIS/CDONT, in VBScript. Embed attachments, use RTF

Send an e-mail to a SMTP server without need for IIS/CDONT, in VBScript. Embed attachments, use RTF

Send an e-mail to a SMTP server without need for IIS/CDONT, in VBScript. Embed attachments, use RTF HTML formatting, and so on

Rate Send an e-mail to a SMTP server without need for IIS/CDONT, in VBScript. Embed attachments, use RTF

• 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