Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Log In
x
or
x
x
Registrati
x

or

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

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 ai criteri di una persona specifica. Come hai potuto risolvere questo lavoro in Outlook?

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


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

Ad esempio, quando si riceve un'e-mail su quale oggetto contiene il testo "kto feature", 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 segue:

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

2. Nel Microsoft Visual Basic, Applications Edition finestra, doppio clic ThisOutlookSession dal Project1 (VbaProject.OTM) riquadro per aprire la modalità, quindi copiare e incollare il seguente codice nel modulo vuoto.

Codice VBA: Auto forward 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 precedente, è necessario modificare il testo dell'oggetto e l'indirizzo del destinatario.

doc auto forward allegati solo 1

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

4. Da ora in poi, ogni volta che una nuova e-mail contiene il testo dell'oggetto specifico arriva nella casella di posta, Outlook inoltra automaticamente gli allegati senza il corpo del messaggio alla persona desiderata.

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



Kutools for Outlook

Più di 100 Funzioni avanzate per Outlook 2010, 2013, 2016, 2019 e 365

screen shot kutools per outlook minuscolo per banner 201812

Altre caratteristiche | Scarica gratis | Solo $ 39.00 per centinaia di funzioni

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.