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

or

Hur svarar jag automatiskt med originalt e-postmeddelande i Outlook?

Normalt när vi skapar en regel för att automatiskt förlita e-postmeddelandet utanför kontoret, men det ursprungliga meddelandet i kroppen kommer inte att inkluderas. Hur kan du förlita e-postmeddelandena automatiskt med det ursprungliga meddelandet i Outlook? Den här artikeln kommer jag att prata om en VBA-kod som hjälper dig att avsluta det här jobbet så snabbt som möjligt i Outlook.

Autosvar e-postmeddelanden med originalmeddelande i Outlook med VBA-kod


Autosvar e-postmeddelanden med originalmeddelande i Outlook med VBA-kod

Den normala Outlook-regeln kan inte hjälpa dig att hantera jobbet, men med följande VBA-kod kan du avsluta detta snabbt och enkelt. Gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer dubbelklicka ThisOutlookSession från Project1 (VbaProject.OTM) rutan för att öppna läget och sedan kopiera och klistra in följande kod i den tomma modulen.

VBA-kod: E-post med autosvar med originalmeddelande:

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. Spara och stäng sedan kodfönstret, stäng eller starta om Outlook så att VBA-koden träder i kraft. Nu, när du får e-postmeddelanden, kommer Outlook att skicka ett autosvar med det ursprungliga meddelandet enligt följande skärmdump:


Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
  • Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
  • Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
shot kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus flik 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.