Thank you Doug.
I think I understand what needs to be done, but I get an error when running
the macro.
Compile Error:
User-defined type not defined
Dim oOutlookApp As Outlook.Application
From this section of code:
Dim Source As Document, Maillist As Document
Dim Datarange As Range
Dim Counter As Integer, i As Integer
Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem
Dim mysubject As String, message As String, title As String
Again, thank you for your assistance.