vba-嵌入时保存附件时出错

我正在保存Outlook附件（作为副本的一部分）。

我从电话里收到一条错误信息objAtt.SaveAsFile strFile当附件是嵌入图像时。

代码（非常感谢复制！）是：

Sub CopyAttachments(objSourceItem, objTargetItem)
    Dim objAtt As Outlook.Attachment
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fldTemp = fso.GetSpecialFolder(2) ' TemporaryFolder
    strPath = fldTemp.Path & "\"
    For Each objAtt In objSourceItem.Attachments
        strFile = strPath & objAtt.FileName
        objAtt.SaveAsFile strFile
        objTargetItem.Attachments.Add strFile, , 1, objAtt.DisplayName
        fso.DeleteFile strFile
    Next

    Set fldTemp = Nothing
    Set fso = Nothing
End Sub

完整的错误消息是：

我不需要嵌入图像，所以跳过它们也可以。