Note: The other languages of the website are Google-translated. Back to English
Accedi  \/ 
x
or
x
Registrati  \/ 
x

or

Come rispondere automaticamente con il messaggio di posta elettronica originale in Outlook?

Normalmente, quando creiamo una regola per affidare automaticamente l'e-mail fuori sede, ma il messaggio originale nel corpo non verrà incluso. Come puoi fare affidamento automatico sulle e-mail con il messaggio originale in Outlook? In questo articolo, parlerò di un codice VBA per aiutarti a completare questo lavoro il più rapidamente possibile in Outlook.

Email di risposta automatica con messaggio originale in Outlook con codice VBA


Email di risposta automatica con messaggio originale in Outlook con codice VBA

La normale regola di Outlook non può aiutarti a gestire il lavoro, ma, con il seguente codice VBA, puoi completarlo rapidamente e facilmente. Per favore, fai come segue:

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 QuestoOutlookSession dal Progetto1 (VbaProject.OTM) riquadro per aprire la modalità, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: email di risposta automatica con messaggio originale:

Public WithEvents xlItems As Outlook.Items
Private Sub Application_Startup()
    Set xlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xlItems_ItemAdd(ByVal objItem As Object)
Dim xlReply As MailItem
Dim xStr As String
If objItem.Class <> olMail Then Exit Sub
Set xlReply = objItem.Reply
With xlReply
     xStr = "<p>" & "Hi, Your email has been received. Thank you!" & "</p>"
     .HTMLBody = xStr & .HTMLBody
     .Send
End With
End Sub 

3. Quindi salva e chiudi la finestra del codice, chiudi o riavvia Outlook per rendere effettivo il codice VBA. Ora, quando ricevi le e-mail, Outlook invierà una risposta automatica con il messaggio originale come mostrato nella seguente schermata:


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto ... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 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.
    Josh · 3 months ago
    How can you modify this to only run if there is a keyword in the message of the body?

    • To post as a guest, your comment is unpublished.
      Keith Nichols · 2 months ago
      I have the same question, did you figure it out?