With this class object you can send Email using the SMTP protoclol. In general it works like this: Set the properties then call the send method. You can add multiple attachments to the email and it is possible to send HTML formatted mail
There are much more properties, methods and events available than the demo below will show you. Some of the available properties are: Importance, Priority, MSMailPriority, ExpiryDate, Sensitivity, MessageFlag and ReplyBy
Attachments are seperated by a ; You can make these attachments visible inside your HTML email by giving them a name. You can do that by putting a | in front of it and the name before that. sample: attachmentname|attachment.gif You can then show that file (image) in your HTML email with a tag like: <img src=”cid:attachmentname”> This way you can send email messages with embeded pictures without the need for the recipient to click on the download pictures warning.
Click here to download the complete source code, the compiled DLL and the demo.
Here is some sample code:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
Public WithEvents SMTPMail As EVICT_SMTP.SMTP Private Sub cmdSend_Click() Set SMTPMail = New EVICT_SMTP.SMTP SMTPMail.SMTPHost = "smtp.myprovider.com" SMTPMail.SMTPPort = 25 SMTPMail.From = "me@hotmail.com" SMTPMail.FromDisplayName = "Edwin Vermeer" SMTPMail.Recipient = "you@hotmail.com" SMTPMail.RecipientDisplayName = "It's You" SMTPMail.CcRecipient = "other@hotmail.com" SMTPMail.CcDisplayName = "Someone else" SMTPMail.BccRecipient = secret@hotmail.com SMTPMail.ReplyToAddress = "bitbucket@hotmail.com" SMTPMail.AsHTML = Me.chkHTML SMTPMail.Attachment = "image|c:\windows\Greenstone.bmp" SMTPMail.Subject = "this is just a test" SMTPMail.Message = "<html><h1>Hello</h1><br/><img src="cid:\image"></html>" On Error Resume Next SMTPMail.Send If Err.Number <> 0 Then MsgBox "Error:" & Err.Number & _ vbCrLf & Err.Description, vbCritical, "Could not send mail" On Error GoTo 0 End Sub |