Note: The other languages of the website are Google-translated. Back to English
English English
  • Documenti
  • Outlook
  • Come rispondere automaticamente con il messaggio di posta elettronica originale in Outlook?

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
 
Commenti (6)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Come puoi modificarlo in modo che venga eseguito solo se è presente una parola chiave nel messaggio del corpo?
Questo commento è stato fatto dal moderatore sul sito
Ho la stessa domanda, hai risolto?
Questo commento è stato fatto dal moderatore sul sito
prova thisDim olMail As oggetto
If (olMail.Subject Like "*Place_Keyword_here(Leave_doublequotes_and_asteriscs)*") Allora
CodeEnd se
Questo commento è stato fatto dal moderatore sul sito
Salve, ho la stessa domanda: come applico questa regola solo al mittente selezionato? br
Questo commento è stato fatto dal moderatore sul sito
Ciao, Damien, per specificare alcuni mittenti durante la risposta automatica, applica il codice seguente:

Pubblico WithEvents xlItems come Outlook.Items
Sottotitolo privato Application_Startup ()
Imposta xlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Sub privato xlItems_ItemAdd(ByVal objItem As Object)
Dim xl Rispondi come MailItem
Dim xStr come stringa
Dim xSenderAddr come stringa
On Error Resume Next
Se objItem.Class <> olMail, quindi esci da Sub
xSenderAddr = "497300722@qq.com,yy@addin99.com" 'digita qui i tuoi emial mittente, separali con virgole.
Se objItem.Sender.Type = "EX" Allora
Se InStr(xSenderAddr, objItem.Sender.GetExchangeUser.PrimarySmtpAddress) = 0 Quindi esci da Sub
Altro
Se InStr(xSenderAddr, objItem.Sender.Address) = 0 Quindi esci da Sub
End If
Imposta xlReply = objItem.Reply
Con xlReply
xStr = " " & "Ciao, la tua email è stata ricevuta. Grazie!" & " "
.HTMLBody = xStr e .HTMLBody
.Spedire
Fine Con
End SubPer favore prova, spero che possa aiutarti!
Questo commento è stato fatto dal moderatore sul sito
Ciao, ho provato questo, ma non funzionerebbe (:
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL