Multiple Emails And Attachments

[tguenther]

I am having difficulty programming attachments across multiple email
messages. Two ways I've tried programming the attachments:

set oMail = oInspector.CurrentItem
set CCItem = CreateObject("MMOutlook.MMMailItem")

CCItem.Item = oMail
CCItem.Save


1. In this example, objSAtt returns an Attachment object type, but I
can't reference the Fields property because its not a Redemption
object

objAttachments = Item.Attachments

For Each objSAtt IN objAttachments

If Not TypeName(objSAtt) = "Nothing" Then
i = i + 1

strCID = objSAtt.Fields(&H3712001E)
msgbox strCID

2. In this example, objsAtt returns an Attachment object type of
Nothing
when both embedded images and attachments is used in the message. If I
use just embedded images it always returns a CID.

objAttachments = CCItem.Attachments

For Each objSAtt IN objAttachments

If Not TypeName(objSAtt) = "Nothing" Then
i = i + 1

strCID = objSAtt.Fields(&H3712001E)
msgbox strCID


How can I properly determine if an Attachment has a CID and use both
file and embedded images in a message?