I have a routine which loops through a group of emails. If the emails
meet a specific criteria, I want to add them to a new email. I do not
know how to add an email as an attachment.

The following is parts of my code:
'----------------------------------------------------------------------
Set mItemCollection = mItemCollection.Restrict("[SentOn] > '" &
Format(dteStart, "yyyy-mm-dd hh:nn:ss") & "' AND [SentOn] < '" &
Format(dteEnd, "yyyy-mm-dd hh:nn:ss") & "'")

For lMailItem = 1 To mItemCollection.Count
Set myItem = mItemCollection(lMailItem)
Set SafeMail = CreateObject("Redemption.SafeMailItem")
SafeMail.Item = myItem

'If Criteria is true then add attachment
'If email is not already created then
Set objOutlookMsg = Outlook.CreateItem(olMailItem)
'Set recipients, subject, body

'else if email is already created
objOutlookMsg.Attachments.Add SafeMail.item
'----------------------------------------------------------------------

This does not work, but I really didn't expect it to. How do I attach
the emails to this new email?