0

特定のフォルダーに添付ファイルを自動的に保存できるこのコードをインターネットで見つけました。

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

添付ファイルを別のフォルダに保存する方法はありますか?

ありがとう

4

1 に答える 1

2

サンプル コードは、saveAttachtoDiskサブの宛先フォルダーをハードコーディングします。パラメータを介してこの情報をこのサブ (のバリエーション) に渡すことができます。

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

次のように呼び出します。

Dim saveFolder As String
saveFolder = "C:\Some\Where\Else"
saveAttachtoDisk itm, saveFolder
...
saveAttachtoDisk otheritm, "d:\why\not\here"

もちろん、問題は次のとおりです。これらの「その他のフォルダ」をどのように決定する必要があるのでしょうか。ユーザーの操作によって？一部の Outlook/User/Main/System プロパティに適用される関数によって?

于 2013-01-11T13:59:31.260 に答える