README.md

December 5, 2022 · View on GitHub

Email with Attachments

This code once compiled to an ocx, can be added as a user control to any VB6 form.

It allows you the user to send an mail via an smtp server, but where this code shines is the ability to add an attachment to your Email.

Email1.MailMessage = "This is a test"

Email1.MailSubject = "This is a test"

Email1.PortNumber = 25

Email1.ServerName = "your smtp server"

Email1.Attachment = "C:\Newsletter-v1.jpg"

Email1.SendMail

An event is raised MailFailed

this returns a number but there is a public variable within the routine that returns as text

the actual Text, this can be an error message or a message to say Mail Sent Successfully