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

Di solito, quando si inoltra un messaggio di posta elettronica, vengono inclusi sia il corpo del messaggio originale che gli allegati. Tuttavia, in alcuni casi potrebbe essere necessario inoltrare esclusivamente gli allegati, senza il testo del messaggio, in base a determinati criteri e inviarli a un destinatario specifico. Come si può fare in Outlook?

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

---

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

Ad esempio, al ricevimento di un messaggio il cui oggetto contiene il testo «kto feature», tutti gli allegati di quell’email verranno inoltrati automaticamente a una persona specifica, escludendo il corpo del messaggio. I passaggi seguenti ti guideranno: procedi come indicato.

1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Nella finestra di Microsoft Visual Basic for Applications, fai doppio clic su ThisOutlookSession nel riquadro Project1 (VbaProject.OTM) per aprire il modulo, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: Inoltro automatico email senza corpo del messaggio, includendo soltanto 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

Nota: Nel codice riportato sopra, ricordati di sostituire l’oggetto e l’indirizzo del destinatario con i tuoi dati.

3. Salva quindi il codice e riavvia Outlook perché le modifiche abbiano effetto.

4. Da questo momento, ogni volta che nella tua casella di posta arriva una nuova email con il testo specifico nell’oggetto, Outlook inoltrerà automaticamente gli allegati—senza il corpo del messaggio—alla persona desiderata.

Nota: Questo codice è disponibile esclusivamente per l’Account predefinito.