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

or

Cum să răspundeți automat cu mesajul de e-mail original în Outlook?

În mod normal, atunci când creăm o regulă pentru a ne baza automat pe e-mail în afara biroului, dar mesajul original din corp nu va fi inclus. Cum ați putea să vă bazați automat pe e-mailurile cu mesaj original în Outlook? În acest articol, voi vorbi despre un cod VBA pentru a vă ajuta să finalizați acest job cât mai repede posibil în Outlook.

Răspuns automat la e-mailuri cu mesaj original în Outlook cu cod VBA


Răspuns automat la e-mailuri cu mesaj original în Outlook cu cod VBA

Regula Outlook normală nu vă poate ajuta să faceți față jobului, dar, cu următorul cod VBA, puteți finaliza acest lucru rapid și ușor. Vă rugăm să faceți acest lucru:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți dublu clic ThisOutlookSession de la Project1 (VbaProject.OTM) pentru a deschide modul, apoi copiați și lipiți următorul cod în modulul gol.

Cod VBA: Răspuns automat la e-mailuri cu mesajul original:

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. Apoi salvați și închideți fereastra de cod, închideți sau reporniți Outlook pentru a face efectul codului VBA. Acum, când primiți e-mailuri, Outlook va trimite un răspuns automat cu mesajul original, după cum se arată în următoarea captură de ecran:


Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!

  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
  • Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
  • E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.
shot kutools outlook kutools tab 1180x121
shot 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.

Be the first to comment.