ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
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

Outlook用100拡張機能2010、2013、2016、2019、および365

バナー201812のための小さい見通しのためのスクリーンショットkutools

より多くの機能 | 無料ダウンロード | 何百もの関数に対して$ 39.00のみ

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.