最新のメールの添付ファイルを保存する

Question

Outlookメールの添付ファイルを特定のフォルダにダウンロードするVBAコードを使用しています。

私はこのコードを "スクリプトを実行する"というOutlookルールで呼び出しています。ここでは、これが有効なメールを定義しています。

コードは新しいものから古いものまで、最も古いものを提供し、最新のものは提供しません。これは、すべてのメールに同じ名前の添付ファイル用です。

古い添付ファイルをダウンロードして同じ名前の古い添付ファイルを上書きするように、古いものから新しいものに移動するには、以下のコードに何を追加しますか。 itm's添付ファイルのコレクションを見てみると

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

Answer 1

、それは添付ファイルの数を保持しているcount性質を持っています。カウントを得ることができますし、forループのステップでcountを後ろに移動します。あなたのforループの中では、attachmentsオブジェクトを参照して添付ファイルオブジェクト内の個々の添付ファイルアイテムを参照します：

Dim attachmentCount as integer  
Dim saveFolder As String 
saveFolder = "E:\Projects\Takeda\Data\Zipped Incremental data\incremental\" 
attachmentCounter = itm.Attachments.count  
For i = attachmentCounter to 1 Step -1   
    itm.Attachments(i).SaveAsFile saveFolder & "\" & itm.Attachments(i).DisplayName   

Next