多くのユーザーは、Outlookが添付ファイル名の特定の単語を自動的に検索し、特定の添付ファイルをコンピューターのローカルフォルダーに保存できることを望んでいます。 この記事では、OutlookVBAでそれを実現する方法を説明します。
私の日常業務では、受信した電子メールの添付ファイルがそれほど重要でない場合は、ローカルディスクに保存せず、Outlookで直接読み取るだけです。 ただし、人事規則や月次作業報告書など、添付ファイルが重要な場合は、コンピューターの特定のフォルダーに保存します。 このような場合、名前に特定の単語が含まれている電子メールの添付ファイルを特定のフォルダーに自動的に保存するようにOutlookを構成したいと思います。 そこで、OutlookVBAでそれを実現するための簡単な方法を見つけました。 手の込んだVBAコードと手順は次のとおりです。
特定の電子メールの添付ファイルを自動保存
- まず、Outlookを起動し、[開発者]タブに移動する必要があります。
- 続いて、「コード」グループの「VisualBasic」ボタンをクリックします。
- 次に、「Visual Basic」ウィンドウで、「ThisOutlookSession」プロジェクトを開き、次のコードをコピーする必要があります。
Public WithEvents olItems As Outlook.Items
Private Sub Application_Startup()
Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub olItems_ItemAdd(ByVal Item As Object)
Dim NewMail As Outlook.MailItem
Dim Atts As Attachments
Dim Att As Attachment
Dim strPath As String
Dim strName As String
If Item.Class = olMail Then
Set NewMail = Item
End If
Set Atts = Item.Attachments
If Atts.Count > 0 Then
For Each Att In Atts
'Replace "test" with what you want to look for in attachment name
If InStr(LCase(Att.FileName), "test") > 0 Then
'Use your wanted destination folder path to save the attachments
strPath = "C:\Attachments\"
strName = NewMail.Subject & " " & Chr(45) & " " & Att.FileName
Att.SaveAsFile strPath & strName
End If
Next
End If
End Sub
- その後、このコードに署名する必要があります。
- まず、VBAプロジェクトのデジタル証明書を使用して証明書を作成します。
- 次に、次の図に示すように、このコードに証明書を割り当てます。
- その後、現在の「Visual Basic」ウィンドウを終了し、「開発者」タブの「コード」グループにある「マクロ設定」ボタンをクリックします。
- 今後、Outlookは、名前に特定の単語が含まれる添付ファイルを、指定されたローカルフォルダーに自動的に保存します。
深刻な見通しの腐敗から回復する
複数の機能を誇っていますが、Outlookは依然として破損しがちです。 したがって、次のようなOutlookで発生する可能性のあるすべての問題を監視する必要があります。 PSTメールエラー、Outlookが応答しないなど。 エラーが発生した場合は、Outlookの組み込みの修復ツールであるScanPST.exeを使用してエラーを修正できます。 それが失敗した場合は、より強力なツールに頼ってください。
著者紹介：
Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 修理 SQL Server mdfファイルの問題 と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com