Note: The other languages of the website are Google-translated. Back to English
ログイン  \/ 
x
or
x
今すぐ登録  \/ 
x

or

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

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

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


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

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

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

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック ThisOutlookSession から 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 "skyyang@addin88.com"    'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End Sub

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

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

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

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

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


Kutools for Outlook-100の高度な機能をOutlookにもたらし、作​​業をはるかに簡単にします!

  • 自動CC / BCC メール送信時のルールによる。 自動転送 カスタムによる複数の電子メール。 自動返信 Exchangeサーバーなし、およびより多くの自動機能...
  • BCC警告 -全員に返信しようとするとメッセージを表示する メールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
  • メール会話のすべての添付ファイルで(すべて)返信; 多くのメールに返信する すぐに; あいさつを自動追加 返信するとき; 件名に日付を追加...
  • 添付ファイルツール:すべてのメールのすべての添付ファイルを管理し、 自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、 選択したメールを数える...
  • 強力な迷惑メール 習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。
ショットkutoolsの見通しkutoolsタブ1180x121
ショットkutoolsの見通しkutoolsプラスタブ1180x121
 

 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Guest · 1 years ago
    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