by Dr. Andrew Gaskell (1 Submission)
Category: Complete Applications
Compatability: Visual Basic 3.0
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: 
(6 Votes)
This code is ideal for sending a large number of formatted e-mails to a distribution list.
Mark Wilson's submission of Automailer v1.0 inspired me to write this. It uses the same principle of sending e-mails to addresses in a database. I re-wrote the project to use CDO rather than MAPI controls. I have extended the code significantly in the following ways:
1) You can mail using RTF (not possible with the MAPI Controls).
2) Full error handling for MAPI errors eg logon failure.
3) Code will stop at EOF in the db, not continue in a loop as in Mark's.
4) No need to write your messages as HTML.
5) No need to have Outlook running for this to work
Assumes
The zip archive includes an Acces Database, containing 2 fields. Add e-mail addresses to the 1st field, and a flag of 1(send) or 0 (don't send) to the second field.
NB The MS MAPIRTF.DLL file is needed. This is an official DLL from the MS web site. I have included it in the zip archive. Copy this file to your Windows\System directory (for Windows 95) or the Winnt\System32 directory (for
Windows NT.
MAPIRTF includes - "writertf" writes RTF formatted text to a message created by Active Messaging, when passed the profile name, entry ID of the message, entry ID of the message store, and the RTF text. Also contains "readrtf" (not used here)
Download Automailer version 2.00 (15 KB)
VBcoders