当我显示附带附件的消息时，我可以点击它们并在Excel中打开它们
Set objInsp = MailDoc.GetInspector
Set objDoc = objInsp.WordEditor
Set objSel = objDoc.Windows(1).Selection
objSel.InlineShapes.AddOLEObject ClassType:="Excel.Sheet", FileName _
:=strPath & strFile _
, LinkToFile:=False, _
DisplayAsIcon:=True, _
IconLabel:=strFile
但在我将此消息发送给某人后，嵌入式电子邮件附件将不再打开，只能在点击时选择 .
如何制作可打开的嵌入式电子邮件附件？