I am adding selected items to a new email as links. This I can do with no
problem. However, I am trying to group attachments into two sections, one in
the middle of the body text and the other section at the end.

myItem.BodyFormat = olFormatRichText
myItem.Body= "This is the seperating text"
endPos =Len(myItem.Body)
begPos = 1
Set myattachments = myItem.Attachments
Set myOlSel = myOlExp.Selection
For x = 1 To myOlSel.Count
If IsMyUserProps(myOlSel.Item(x).ItemProperties) = True Then
myattachments.Add myOlSel.Item(x), olByReference, endPos

Else
myattachments.Add myOlSel.Item(x), olByReference, begPos

End If
Next x

Problem is, all the attachments show up at the end of the body text.