オンラインでスクリプトを見つけました。これは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
[本文のテキストをチェックするには、Outlookのスクリプト]の可能な重複(https://stackoverflow.com/questions/9831012/outlook-script-to-check-for-text -in-体) – niton
は、InStr関数(MItem.Subject、「いくつかの文字列」)> 0の場合は、次に – niton
'miserably'は、あなたがコードを実行するときに何が起こるかを説明していません失敗しました。 ...削除しようとしている問題の説明を含めてください – jsotola