Error saving attachments when they are embedded
问题 I'm saving Outlook attachments (as part of a copy). I get an error message from the line objAtt.SaveAsFile strFile when the attachment is an embedded image. The code (gratefully copied!) is: 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