AE MS Access Tools

SMTP Library

Description

A simple interface to send emails with no need to know about sockets, TCP/IP or the complexity of CDOSYS which is unsupported since MS Office 2k10 ( Collaboration Data Objects (CDO) 1.2.1 is not supported with Outlook 2010 and later versions ). Our library does what you can expect from an SMTP Libray, plus some other features that lets you to easily integrate the SMTP functionality in your projects.

Features:

HTML predefined format
Support for SSL.
Attachments
Multiple “To” Recipients.
Multiple “Cc” Recipients.
Multiple “Bcc” Recipients.
Message Priority.
Support for 1 or more embedded Images*.
Auto-Email address validation.
HTML Font-Size.
Easy to use.

*When a single image is added is considered as the company logo. Multiple images can be added as an html web page. To make this possible, the image path must be set as UNC path like “src=’c:\myimage.jpg’” or “src=’file:///c:/MyImage.jpg’” instead of URI. These are not not supported.

Properties

Object	Type	Category	Defaults/Returns
Subject	WriteOnly String	Message
From	WriteOnly String	Message
Priority	WriteOnly ENUM	Message
Message	WriteOnly string	Message
htmlFontSize	WriteOnly Integer	HTML
AddImagePath	WriteOnly Array String
SMTP Object
Smtp_Server	WriteOnly String	smtp	Any valid smpt server.
Smtp_User	WriteOnly String	smtp	User for the stmp server
Smtp_Password	WriteOnly String	smtp
Smtp_Port	WriteOnly String	smtp	Default= 25
SSLEnabled	Read/Write boolean	smtp	Default is False
Exception	ReadOnly String	Commun	Err Handler
EmailAddressesExcluded	ReadOnly String	Commun	Collection of rejected/invalid e-mail addresses

Methods

Add	Array	Message	To,Cc,Bcc
Send	Boolean	smtp	True if success
Dispose		smtp	Clean variables from memory

Send Simple Text Message

    Private Sub btnSend_Click()
   Dim smtp As New AE_SMTP
          
    With smtp
        .Smtp_Server = "mail.yourmailserver.com"
        .Smtp_Password = "********"
        .Smtp_User = "user name"
        .Priority = Importance_low
        .Add.To (recipient1@domain.com")
'        .Add.Cc("mailcc@any.com")
'        .Add.BCc("mailbcc@any.com")
'        .Add.To ("mailto1@any.com")
'        .Add.To ("mailto2@any.com")
'               OR
'         For e = 1 To rst.RecordCount
'            .Add.BCc (rst("ContactAddress"))
'            dst.MoveNext
'         Next e
        .From = "yourcompany@domain.com"
        .Subject = "Hello"
        .HTMLBody = "plain or html text here"
        .AddAttachment = "c:\myattachment.txt"
        If .Send = True Then
            VBA.MsgBox "Message has been succesfully sent ", vbInformation, "Sent message"
        Else
             VBA.MsgBox .Exception, vbCritical, "Oops!"
        End If
        If VBA.Len(.EmailAddressesExcluded) > 0 Then
             VBA.MsgBox "Excluded Addresses" & VBA.vbCrLf & .EmailAddressesExcluded, vbInformation, "Info"
        End If
    End With
 End Sub

Send Email with Image Logo

  Private Sub btnSend_Click()
   Dim smtp As New AE_SMTP
          
    With smtp
         .Smtp_Server = "mail.yourmailserver.com"
        .Smtp_Password = "********"
        .Smtp_User = "username here"
        .Priority = Importance_low
        .From = "yourcompany@domain.com"
        .Add.To ("anymail@domain.com")
        .Subject = "Hello"
        .HTMLBody = "plain or html text here"
        .AddImagePath ="c:\CompanyLogo.png"
        If .Send = True Then
            VBA.MsgBox "Message has been succesfully sent ", vbInformation, "Sent message"
        Else
             VBA.MsgBox .Exception, vbCritical, "Oops!"
        End If
        If VBA.Len(.EmailAddressesExcluded) > 0 Then
             VBA.MsgBox "Excluded Addresses" & VBA.vbCrLf & .EmailAddressesExcluded, vbInformation, "Info"
        End If
    End With
 End Sub

Send Newsletter

  Private Sub btnSend_Click()
   Dim smtp As New AE_SMTP
          
    With smtp
        .Smtp_Server = "mail.yourmailserver.com"
        .Smtp_Password = "********"
        .Smtp_User = "username here"
        .Priority = Importance_low
        .From = "yourcompany@domain.com"
        .Add.To ("anymail@domain.com")
        .Subject = "Hello"
        .HTMLBody = "Your full html code here. Images UNC path must be like src=’c:\myimage.jpg’ or src=’file:///c:/MyImage.jpg’
       If .Send = True Then
            VBA.MsgBox "Message has been succesfully sent ", vbInformation, "Sent message"
        Else
            VBA.MsgBox .Exception, vbCritical, "Oops!"
        End If
        If VBA.Len(.EmailAddressesExcluded) > 0 Then
            VBA.MsgBox "Excluded Addresses" & VBA.vbCrLf & .EmailAddressesExcluded, vbInformation, "Info"
        End If
    End With
 End Sub

Remarks

Please note that all properties defined as array can hold up to 2^31-1 items as total size. This number is far beyond the number of recipients are allowed by most of mail servers.
Newsletter
We strongly advice to never exceed the 255 recipients per round, unless you administer your own mail server.