###前提・実現したいこと
<やりたいこと>
仕事の月間スケジュールが更新されるたびに、
A氏とB氏からメールで”月間スケジュール○○.xls”が送られてきます。
このファイルの更新頻度が非常に多いため、自動的に所定のフォルダに保存したいです。
<やったこと>
outlookの"仕分けルール"で"メール件名=月間"の条件にマッチした時に、仕分けルールの中の"スクリプトを実行する"で下記のマクロを適用しています。
###発生している問題・エラーメッセージ
<問題> ・A氏からは直接メールがくる。この場合は問題なし。 ・B氏からは、B氏のメールを受け取ったC氏から"メールを添付ファイルとして転送"として私宛に.msg形式で転送されてくる。 (B氏から直接わたしがメールをもらうことはNG) この場合、下記のマクロだと.msg形式でメールごと保存されてしまいます。
###該当のソースコード
Public Sub SaveMonthSchedule(objMsg As MailItem) ' 月間月間スケジュール用 Const SAVE_PATH = "D:\attachments\月間スケジュール\" '◆◆保存先 Dim objFSO As Object ' FileSystemObject Dim objAttach As Attachment Dim strFileName As String Dim C As Integer: C = 1 ' Set objFSO = CreateObject("Scripting.FileSystemObject") ' For Each objAttach In objMsg.Attachments With objAttach ' strFileName = SAVE_PATH & objAttach.FileName ' If objFSO.FileExists(strFileName) Then Else .SaveAsFile strFileName End If End With Next Set objMsg = Nothing Set objFSO = Nothing End Sub
###教えて頂きたいこと
outlookVBAで.msgの中に添付された.xls(または.xlsx)の情報へアクセスするにはどうしたら良いのでしょうか。
ご教示を宜しくお願い致します。
###補足情報(言語/FW/ツール等のバージョンなど)
Win7-Excel2007/Win2010-Excel2010
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/12/23 10:44