質問: "本文です。" 'パス指定だと添付できる nMail.Attachments.Add "C:\Users\test.pdf" '1度ローカルへ保存しようとするがエラーになる 'mITEM.Attachments.Item(1).SaveAsFile "C:\Users\jushintemp.pdf" '受信メールの添付ファイルが新規作成メールに添付できない nMail.Attachments.Add vAttachments '←ここでエラー '送信 nMail.Send
回答: AttachmentオブジェクトをAttachments.Addするのは、こちらで実行してみてもエラーになりました。 申し訳ないですが、原因は分かりません。(動いていたとの事なので、OfficeのUpdateでNGになったのでしょうか・・・) とりあえず、ローカルに保存するアイデアで問題ないと思います。 保存に失敗するのは”C:\Users”フォルダの書き込み権限がないからです。 ですので、代わりにユーザー別の一時ファイルフォルダ等を使用すればよいです。 以下、参考までに添付ファイルコピー関数を貼っておきます。 ``` '添付ファイルをコピー Sub CopyAttachments(oSourceMail, oTargetMail) Set FSO = CreateObject("Scripting.FileSystemObject") '一時ファイルフォルダ取得 Set fldTemp = FSO.GetSpecialFolder(2) '添付ファイルコピー開始 For Each oItem In oSourceMail.Attachments '一時ファイル保存 sFile = FSO.BuildPath(fldTemp.Path, oItem.FileName) oItem.SaveAsFile sFile '添付ファイル追加 oTargetMail.Attachments.Add sFile, , , oItem.DisplayName '一時ファイル削除 FSO.DeleteFile sFile Next Set fldTemp = Nothing Set FSO = Nothing End Sub ```