次のスニペットを使用して Outlook に添付ファイルを保存するための小さな VBA マクロがあります。
For Each objAtt In objSourceItem.Attachments
strFile = strPath & objAtt.FileName
objAtt.SaveAsFile strFile
Next
これは、ChemDraw 添付ファイルを除くすべての種類の添付ファイルで機能します。「Outlook はこのタイプの添付ファイルに対してこのアクションを実行できません」というエラーが表示されます。これが ChemDraw に固有のものかどうかはわかりませんが、ファイル拡張子と Outlook がファイル形式を認識していないことに関係している可能性があります。とにかく、このhttp://www.cambridgesoft.com/services/documentation/sdk/chemdraw/cdx/General.htmには、ChemDraw タイプのファイルに関する情報があります。どんな助けでも大歓迎です。ありがとう!