Slik svarer du automatisk med den originale e-posten og en forhåndsdefinert tekst via Outlook VBA

Outlook-løsninger September 29, 2025

Hvis du bruker Outlook-regelen til automatisk svar, vil du oppdage at autosvaret ikke kan inkludere den opprinnelige meldingen i brødteksten. Denne artikkelen vil introdusere en enkel metode, som kan sette inn den originale e-posten og forhåndsdefinerte teksten i hoveddelen av autosvar via Outlook VBA.

I Outlook tillater Exchange-kontoene brukere å angi automatiske svar direkte via "Automatiske svar"-knappen under "Info"-fanen i "Fil"-menyen, som følgende skjermbilde:

Automatiske svar i MS Excahnge-konto

Men hvis du bruker Internett-e-postkontoen, uansett IMAP eller POP3, er det ingen "Automatiske svar"-knappen tilgjengelig. Den eneste måten å aktivere et autosvar på er å lage en autosvarregel, vist som følgende bilde:

Autosvar-regel

Denne typen autosvar via Outlook-regel kan imidlertid ikke automatisk inkludere den opprinnelige meldingen. I virkeligheten vil de fleste gjerne legge ved den opprinnelige e-posten i meldingsteksten i det automatiske svaret. I slike tilfeller kan ikke en autosvarregel gjenkjenne dette. Derfor bør vi bruke Outlook VBA-koder. Hvis du er interessert, les videre for å få de detaljerte trinnene og VBA-kodene.

Autosvar med den opprinnelige e-posten og en forhåndsdefinert tekst

  1. Først bør du gå til "Utvikler" -fanen og klikke på "Visual Basic" -knappen.
  2. Så i det nye "Microsoft Visual Basic for Applications"-vinduet, må du dobbeltklikke på "ThisOutlookSession" -prosjektet på venstre side.
  3. Etter det vil "ThisOutlookSession"-prosjektet åpnes. Nå bør du kopiere og lime inn følgende VBA-koder i den.
Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim olReply As MailItem
 
    If Item.Class = olMail Then
       Set olReply = Item.Reply
    Else
       Exit Sub
    End If
 
    With olReply
         'Type Your Own Auto Reply
         'Change "John Smith" to Your Own Name
         .Body = "This is a test auto reply." & vbCrLf & vbCrLf & "-------Original Message-------" & vbCrLf & "From: " & Item.Sender & "[mailto: " & Item.SenderEmailAddress & "]" & vbCrLf & "Sent: " & Item.ReceivedTime & vbCrLf & "To: YourName" & vbCrLf & "Subject: " & Item.Subject & vbCrLf & Item.Body
         .Send
    End With
End Sub

Autosvar VBA-koder

  1. Deretter bør du signere denne koden som vanlig og fortsette å endre makroinnstillingene til kun å tillate digitalt signerte makroer.
  2. Til slutt, etter å ha fullført trinnene ovenfor, vil Outlook automatisk sende ut et svar med den opprinnelige meldingsinformasjonen i brødteksten. Det vil se ut som bildet nedenfor:Autosvar med den opprinnelige e-posten og en forhåndsdefinert tekst

OBS: Uansett autosvar ved hjelp av regel eller autosvar med VBA-koder, kan begge bare lage effekter når Outlook kjører.

Adresser Outlook-datafeil

Uten tvil kan ikke Outlook være immun mot feil. Derfor er det viktig for vanlige Outlook-brukere å få noen triks for å løse dem. Åpenbart den beste måten å takle Skade på Outlook-data tar en vanlig sikkerhetskopi. Så lenge du får tak i en effektiv sikkerhetskopi, vil du være rolig selv om Outlook krasjer. Selvfølgelig, uten forsikring, bør du også ha et kraftig reparasjonsverktøy tilgjengelig.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparere SQL mdf-fil korrupsjon og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.