Send Email with Minimal Header

Download Chilkat Email ActiveX

Send an email with a minimal header. Note: Anti-SPAM filters may block this email because it's possible that normal headers that are expected to be found are not present.. This example was provided in response to a customer's issue with sending SMS messages via email.

LOCAL loMailman
LOCAL lnSuccess
LOCAL lcMime
LOCAL lcFromEmail
LOCAL lcRecipients

*  The mailman object is used for sending and receiving email.
loMailman = CreateObject('Chilkat.MailMan2')

*  Any string argument automatically begins the 30-day trial.

lnSuccess = loMailman.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("Component unlock failed")
    QUIT
ENDIF

*  Set the SMTP server.
loMailman.SmtpHost = "smtp.comcast.net"

*  Create a MIME message that has a minimal header,
*  followed by two CRLF's, followed by the body.

lcMime = "subject: test\r\nfrom: support@chilkatsoft.com\r\n\r\nHello World\r\n"

lcFromEmail = "support@chilkatsoft.com"

lcRecipients = "admin@chilkatsoft.com, matt@chilkatsoft.com"

lnSuccess = loMailman.SendMime(lcFromEmail,lcRecipients,lcMime)
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loMailman.LastErrorText)
ELSE
    =MESSAGEBOX("Mail Sent!")
ENDIF