メインコンテンツへスキップ

Outlookの特定の基準のみに基づいて添付ファイルを自動転送するにはどうすればよいですか?

通常、電子メールを転送するときは、元のメッセージ本文と添付ファイルも含まれます。 ただし、場合によっては、基準に基づいて元のメッセージのない添付ファイルのみを特定の人に転送する必要があります。 Outlookでこの仕事をどのように解決できますか?

特定の基準に基づいた添付ファイルのみをVBAコードを使用して自動的に人に転送する


特定の基準に基づいた添付ファイルのみをVBAコードを使用して自動的に人に転送する

たとえば、件名に「kto feature」というテキストが含まれる電子メールを受信すると、この電子メールのすべての添付ファイルは、メッセージ本文なしで特定の人に自動的に転送されます。 次の手順が役立ちます。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック このOutlookSession Project1(VbaProject.OTM) ペインでモードを開き、次のコードをコピーして空のモジュールに貼り付けます。

VBAコード:メッセージ本文なしで電子メールを自動転送しますが、添付ファイルのみを含めます。

Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
    Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
    Dim xForwardMail As Outlook.MailItem
    Dim xEmail As MailItem
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xEmail = Item
    If InStrRev(UCase(xEmail.Subject), UCase("kto feature")) = 0 Then Exit Sub  'change subject text to your need
    If xEmail.Attachments.Count = 0 Then Exit Sub
    Set xForwardMail = xEmail.Forward
    With xForwardMail
        .HTMLBody = ""
        With .Recipients
            .Add ""    'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End Sub

Note:上記のコードでは、件名のテキストと受信者のアドレスを自分のものに変更する必要があります。

doc自動転送添付ファイルのみ1

3。 次に、コードを保存し、Outlookを再起動してコードを有効にします。

4。 これ以降、特定の件名のテキストを含む新しい電子メールがメールボックスに到着するたびに、Outlookはメッセージ本文なしで添付ファイルを目的の人に自動転送します。

Note:このコードは、デフォルトのアカウントでのみ使用できます。


最高のオフィス生産性向上ツール

Outlook用Kutools - Outlook を強化する 100 以上の強力な機能

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロバッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで Outlook の生産性を向上  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

👩🏼‍🤝‍👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加  /  連絡先グループを個別のグループに分割する  /  誕生日のリマインダーを削除する ...

オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。

 

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is great, but if someone replies to the chain of the email with an attachment it will auto-forward that attachment as well. Is there a way to avoid this? Thanks
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations