vba - Outlook vbaを使用して、Windowsの指定したフォルダにOutlookメッセージのExcel添付ファイルを保存する

Question

重複の可能性:
Outlook 2007 の受信トレイに定義されたサブ フォルダーで受信した電子メールに添付された Excel ファイルを Windows のフォルダーに保存する方法は?

Excel の添付ファイルを Daily という特定の受信トレイ サブフォルダーに自動的に保存する Outlook vba 関数が本当に必要です。Windows の宛先フォルダーには C:/daily reports というパスがあるので、あなたの側からの助けとサポートに感謝します。

ありがとう、

Answer 1

enter code here以下のスクリプトを使用して、Outlook のルールとアラートから実行し、必要なユーザーまたはアイテムに適用できます。

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "E:\Attachments\"
    For Each objAtt In itm.Attachments
        objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
        Set objAtt = Nothing
    Next
End Sub

ありがとう、