Come inoltrare automaticamente gli allegati solo in base a criteri specifici in Outlook?

Autore: Xiaoyang Ultima modifica: 2024-08-21

Normalmente, quando si inoltra un'e-mail, vengono inclusi anche il corpo del messaggio originale e gli allegati. Ma, a volte, è sufficiente inoltrare solo gli allegati senza il messaggio originale in base a criteri a una persona specifica. Come hai potuto risolvere questo lavoro in Outlook?

Inoltra automaticamente solo gli allegati in base a criteri specifici a una persona con codice VBA

Inoltra automaticamente solo gli allegati in base a criteri specifici a una persona con codice VBA

Ad esempio, quando si riceve un'e-mail il cui oggetto contiene il testo "funzione kto", tutti gli allegati di questa e-mail verranno inoltrati automaticamente alla persona specifica senza il corpo del messaggio. I seguenti passaggi possono aiutarti, per favore fai come questo:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa sessione di Outlook dal Progetto1 (VbaProject.OTM) riquadro per aprire la modalità, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: inoltro automatico dell'email senza corpo del messaggio ma include solo gli allegati:

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

Note:: Nel codice sopra, dovresti cambiare il testo dell'oggetto e l'indirizzo del destinatario con i tuoi.

3. Quindi salvare il codice e riavviare Outlook per ottenere l'effetto del codice.

4. D'ora in poi, ogni volta che una nuova email contiene il testo dell'oggetto specifico arriva nella tua casella di posta, Outlook inoltrerà automaticamente i suoi allegati senza il corpo del messaggio alla persona desiderata.

Note:: Questo codice è disponibile solo per l'account predefinito.