Adding custom headers

The sample sends plain-text e-mail with "Organization:" field set in the headers.

SMTP.AddHeader is a key method of the sample.

For simplicity, SMTP authentication is not used and no error-checking is performed.

Dim objSMTP

' Create mailer component
Set objSMTP = CreateObject("MailBee.SMTP")

' Unlock SMTP component
objSMTP.LicenseKey = "put your license key here"

' Set SMTP server name
objSMTP.ServerName = "mail.server.com"

' Set message properties
objSMTP.FromAddr = "me@mydomain.com"
objSMTP.ToAddr = "you@yourdomain.com"
objSMTP.Subject = "Hi"
objSMTP.BodyText = "This is test message with custom headers"

' Add "Organization" header
objSMTP.AddHeader "Organization", "Corporation, Inc."

' Send it!
objSMTP.Send

<%
Dim objSMTP

' Create mailer component
Set objSMTP = Server.CreateObject("MailBee.SMTP")

' Unlock SMTP component
objSMTP.LicenseKey = "put your license key here"

' Set SMTP server name
objSMTP.ServerName = "mail.server.com"

' Set message properties
objSMTP.FromAddr = "me@mydomain.com"
objSMTP.ToAddr = "you@yourdomain.com"
objSMTP.Subject = "Hi"
objSMTP.BodyText = "This is test message with custom headers"

' Add "Organization" header
objSMTP.AddHeader "Organization", "Corporation, Inc."

' Send it!
objSMTP.Send
%>

See Also:

AddHeader Method