Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
Send Email with Minimal Header
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. ' The mailman object is used for sending and receiving email. Dim mailman As New Chilkat.MailMan() ' Any string argument automatically begins the 30-day trial. Dim success As Boolean success = mailman.UnlockComponent("30-day trial") If (success <> true) Then MsgBox("Component unlock failed") Exit Sub End If ' Set the SMTP server. mailman.SmtpHost = "smtp.comcast.net" ' Create a MIME message that has a minimal header, ' followed by two CRLF's, followed by the body. Dim mime As String mime = "subject: test\r\nfrom: support@chilkatsoft.com\r\n\r\nHello World\r\n" Dim fromEmail As String fromEmail = "support@chilkatsoft.com" Dim recipients As String recipients = "admin@chilkatsoft.com, matt@chilkatsoft.com" success = mailman.SendMime(fromEmail,recipients,mime) If (success <> true) Then MsgBox(mailman.LastErrorText) Else MsgBox("Mail Sent!") End If |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.