Attachment.Type (Outlook)
Returns an OlAttachmentType constant indicating the type of the specified object. Possible return values are olByReference - This value is no longer supported since Microsoft Outlook 2007. Use olByValue to attach a copy of a file in the file system, olByValue - The attachment is a copy of the original file and can be accessed even if the original file is removed, olEmbeddeditem - The attachment is an Outlook message format file (.msg) and is a copy of the original message, olOLE - The attachment is an OLE document.
Dim oatType As OlAttachmentType
oatType = Session.CreateSharingItem.Move.GetStorage.Attachments(1).Type