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：上記のコードでは、件名のテキストと受信者のアドレスを自分のものに変更する必要があります。
3。 次に、コードを保存し、Outlookを再起動してコードを有効にします。
4。 これ以降、特定の件名のテキストを含む新しい電子メールがメールボックスに到着するたびに、Outlookはメッセージ本文なしで添付ファイルを目的の人に自動転送します。
Note：このコードは、デフォルトのアカウントでのみ使用できます。
最高のオフィス生産性向上ツール
Kutools for Outlook - Outlook を強化する 100 以上の強力な機能
🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...
📧 自動メール: 不在時 (POP および IMAP で利用可能) / メール送信のスケジュール設定 / メール送信時のルールによる自動CC/BCC / 自動転送 (高度なルール) / あいさつを自動追加 / 複数受信者の電子メールを個別のメッセージに自動的に分割する ...
📨 電子メール管理: メールを簡単に思い出す / 件名などで詐欺メールをブロック / 重複するメールを削除する / 高度な検索 / フォルダーを統合する ...
📁 アタッチメント プロ: バッチ保存 / バッチデタッチ / バッチ圧縮 / 自動保存 / 自動デタッチ / 自動圧縮 ...
🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字 / タブ付きビューで Outlook の生産性を向上 / Outlook を閉じる代わりに最小化する ...
???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する / フィッシングメール対策 / 🕘送信者のタイムゾーンを表示 ...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 / 連絡先グループを個別のグループに分割する / 誕生日のリマインダーを削除する ...
オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。
