(Classic ASP) Send HTML Email with Image Downloaded from URL

Demonstrates how to compose an HTML email with an embedded image where the image data is downloaded from a URL.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' First download the image we'll be adding to the HTML "img" tag.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bdJpg = Server.CreateObject("Chilkat.BinData")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = Server.CreateObject("Chilkat.Http")
success = http.QuickGetBd("https://www.chilkatsoft.com/images/starfish.jpg",bdJpg)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
    Response.End
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.MailMan")
set mailman = Server.CreateObject("Chilkat.MailMan")

' Use your SMTP server..
mailman.SmtpHost = "smtp.yourserver.com"
mailman.SmtpPort = 587
mailman.StartTLS = 1

' Set the SMTP login/password
mailman.SmtpUsername = "my_login"
mailman.SmtpPassword = "my_password"

' Create an HTML email.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Email")
set email = Server.CreateObject("Chilkat.Email")
email.Subject = "HTML Email with Image"
email.From = "Dave <somebody@mydomain.com>"
success = email.AddTo("Chilkat","info@chilkatsoft.com")

html = "<html><body><p>This is an HTML email with an embedded image.</p><p><img src=""starfish.jpg"" /></p></body></html>"
email.SetHtmlBody html

' Note: The "starfish.jpg" here must match the name in the "img" tag's "src" attribute in the HTML above.
success = email.AddRelatedBd2(bdJpg,"starfish.jpg")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( email.LastErrorText) & "</pre>"
    Response.End
End If

success = email.SaveEml("qa_output/out.eml")

' success = mailman.SendEmail(email);
' if (success == ckfalse) {
'     println mailman.LastErrorText;
'     return;
' }
' 
' ignore = mailman.CloseSmtpConnection();

Response.Write "<pre>" & Server.HTMLEncode( "Success.") & "</pre>"

%>
</body>
</html>