VB.NET Examples

ChilkatHOMEAndroid™ASPVisual BasicVB.NETC#iOS (IPhone)Objective-CC++CUnicode C++Unicode CMFCDelphi DLLDelphi ActiveXFoxProJavaPerlPHP ExtensionPHP ActiveXPythonPowerShellRubySQL ServerVBScript

VB.NET Examples

Bounced Mail
Bz2
Character Encoding
CSV
Digital Certificates
Digital Signatures
Email
FTP
HTML Conversion
HTTP
IMAP
Encryption
MHT / HTML Email
POP3
PFX
RSA
S/MIME
SMTP
Socket
Spider
SSH
SSH Tunnel
SSH Key
SFTP
Tar Archive
Upload
XML
XMP
Zip Compression
Misc

More Examples...
Amazon S3
Email Object
DKIM / DomainKey
NTLM
FileAccess
RSS
Atom
Self-Extractor
Service
PPMD
Deflate
DH Key Exchange
DSA
Bzip2
LZW

Byte Array
VB.NET FTPS
System.IO

 

 

 

 

 

 

Send HTML Mail with Embedded Image

Download: Chilkat .NET Assemblies

VB.NET source code example showing how to send an HTML mail with images embedded within the HTML.


        ' Create a mailman object for sending email.
        Dim mailman As New Chilkat.MailMan()

        ' Any string passed to UnlockComponent automatically begins a 30-day trial.
        Dim success As Boolean
        success = mailman.UnlockComponent("Hello World")
        If (success <> true) Then
            MsgBox(mailman.LastErrorText)
            Exit Sub
        End If

        ' Set the SMTP server.
        mailman.SmtpHost = "smtp.earthlink.net"

        ' Create an email object
        Dim email As New Chilkat.Email()

        ' Add an embedded image to the HTML email.
        Dim cid As String = email.AddRelatedFile("dude.gif")
        If cid Is Nothing Then
            MessageBox.Show(email.LastErrorText)
            Return
        End If

        ' Update the HTML to reference the image using the CID
        Dim htmlBody As String = "<html><body>Embedded Image:<br><img src=""cid:IMAGE_CID""></body></html>"
        htmlBody = htmlBody.Replace("IMAGE_CID", cid)

        ' Set the basic email stuff: HTML body, subject, "from", "to"
        email.SetHtmlBody(htmlBody)
        email.Subject = "This is an HTML email with an embedded image."
        email.AddTo("Chilkat Support", "support@chilkatsoft.com")
        email.From = "Programmer <programmer@chilkatsoft.com>"

        success = mailman.SendEmail(email)
        If Not success Then
            MessageBox.Show(mailman.LastErrorText)
            Return
        End If


 

© 2000-2013 Chilkat Software, Inc. All Rights Reserved.