2017-10-26 21 views
0

オンラインでスクリプトを見つけました。これは1人の送信者から1つの添付ファイルを自動的に保存するために機能します。 複数の送信者からの添付ファイルを別々のフォルダに自動的にダウンロードするようにスクリプトを調整する必要があります。私は、コードを複製し、 "findinMail"を追加して、ダウンロード対象の対象を認識させようとしました。私は惨めに失敗しました。誰でも助けてくれますか? PS:私はプロのレベルでプログラマーではなくコーディングについて何も知らない。一緒にすべてを作ろうとしている。Outlook:添付ファイルを複数のフォルダに自動的に保存します

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem) 
Dim oAttachment As Outlook.Attachment 
Dim sSaveFolder As String 
Dim findInMail As String 

findInMail = "Abc" 
sSaveFolder = "c:\temp\abc\" 
For Each oAttachment In MItem.Attachments 
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName 
Next 

findInMail = "xyz" 
sSaveFolder = "c:\temp\xyz\" 
For Each oAttachment In MItem.Attachments 
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName 
Next 

End Sub 
+3

[本文のテキストをチェックするには、Outlookのスクリプト]の可能な重複(https://stackoverflow.com/questions/9831012/outlook-script-to-check-for-text -in-体) – niton

+0

は、InStr関数(MI​​tem.Subject、「いくつかの文字列」)> 0の場合は、次に – niton

+0

'miserably'は、あなたがコードを実行するときに何が起こるかを説明していません失敗しました。 ...削除しようとしている問題の説明を含めてください – jsotola

答えて

0

これは、VBA &マクロによって実行できます。 How To Save All Attachments From Multiple Emails To Folder In Outlook

ダウンロードフォルダの内容を別のフォルダにコピーするためのコードを追加してください。 SUMITが答えを共有同様

+0

投稿する前にこれを見ました。メールの添付ファイルは削除したくありません。削除文字列を削除しようとしましたが動作しませんでした。 – Issac

0

要するにこのLink

を参照してくださいが、これを成し遂げるためのユーティリティの多くは、すでに存在し、利用できる準備ツールは、コンパイルされたコードがあります、すでにそこにあります。

PS:ホイールを改造するのはなぜですか?

Nirsoft's outlook attach view

Solution for your problem by MS

関連する問題