CompuMaster.Network.Smtp

SMTP messaging with support for alternative body and embedded images

Simple download/installation using NuGet

Install-Package CompuMaster.Network.Smtp

Sample: Quick initialization of SMTP component

C#

using System.Collections.Generic; using CompuMaster.Net.Smtp; ... SmtpWorker MySmtpWorker = new SmtpWorker(); MySmtpWorker.SmtpServerName = "localhost"; MySmtpWorker.SmtpServerPort = 465; MySmtpWorker.SmtpAuthType = SmtpWorker.SmtpAuthTypes.LoginSsl; MySmtpWorker.SmtpUserName = "user"; MySmtpWorker.SmtpPassword = "password";

VB.NET

Imports System.Collections.Generic Imports CompuMaster.Net.Smtp ... Dim MySmtpWorker As New SmtpWorker() MySmtpWorker.SmtpServerName = "localhost" MySmtpWorker.SmtpServerPort = 465 MySmtpWorker.SmtpAuthType = SmtpWorker.SmtpAuthTypes.LoginSsl MySmtpWorker.SmtpUserName = "user" MySmtpWorker.SmtpPassword = "password"

Sample: Prepare a message with alternative message parts and attachment for embedded image

C#

EMailAttachment MyAttachment = new EMailAttachment("logo_64x64.png", "logo"); List<EMailAttachment> Attachments = new List<EMailAttachment>(new EMailAttachment[] { MyAttachment }); EMailAddress Recipient = new EMailAddress(My.Settings.TestRecipientName, My.Settings.TestRecipientAddress); EMailAddress Sender = new EMailAddress(My.Settings.TestSenderName, My.Settings.TestSenderAddress); EMailAddress ReplyToAddress = Sender; EMailMessage MyMessage = new EMailMessage( Recipient, "TestSubject", "Plain body", "<h1>HTML body with embedded image</h1><img src=\"cid:" + MyAttachment.PlaceholderInMhtmlToBeReplacedByContentID + "\">", Sender, ReplyToAddress, System.Text.Encoding.UTF8, Attachments, EMails.Priority.High, EMails.Sensitivity.Normal, false, false, (System.Collections.Specialized.NameValueCollection)null );

VB.NET

Dim MyAttachment As New EMailAttachment("logo_64x64.png", "logo") Dim Attachments As New List(Of EMailAttachment)(New EMailAttachment() {MyAttachment}) Dim Recipient As New EMailAddress(My.Settings.TestRecipientName, My.Settings.TestRecipientAddress) Dim Sender As New EMailAddress(My.Settings.TestSenderName, My.Settings.TestSenderAddress) Dim ReplyToAddress As EMailAddress = Sender Dim MyMessage As New EMailMessage(Recipient, "TestSubject", "Plain body", "<h1>HTML body with embedded image</h1><img src=""cid:" & MyAttachment.PlaceholderInMhtmlToBeReplacedByContentID & """>", Sender, ReplyToAddress, System.Text.Encoding.UTF8, Attachments, EMails.Priority.High, EMails.Sensitivity.Normal, False, False, CType(Nothing, Specialized.NameValueCollection) )