Kuinka vastata automaattisesti alkuperäisellä sähköpostilla ja ennalta määritetyllä tekstillä Outlook VBA: n kautta

Jos käytät Outlook-sääntöä automaattiseen vastaamiseen, huomaat, että automaattinen vastaus ei voi sisällyttää alkuperäistä viestiä tekstiosaan. Tässä artikkelissa esitellään helppo menetelmä, jolla alkuperäisen sähköpostin ja ennalta määritetyn tekstin voi lisätä automaattisen vastauksen runkoon Outlook VBA: n kautta.

Outlookissa Exchange-tilit sallivat käyttäjien asettaa automaattiset vastaukset suoraan Tiedosto-valikon Tiedot-välilehden Automaattiset vastaukset -painikkeella, kuten seuraava kuvakaappaus:

Mutta jos käytät Internet-sähköpostitiliä, ei väliä IMAP tai POP3, Automaattiset vastaukset -painiketta ei ole käytettävissä. Ainoa tapa ottaa automaattinen vastaus käyttöön on luoda automaattisen vastauksen sääntö, joka näkyy seuraavana kuvana:

Tämäntyyppinen Outlookin automaattinen vastaussääntö ei kuitenkaan voi automaattisesti sisällyttää alkuperäistä viestiä. Todellisuudessa useimmat ihmiset haluavat liittää alkuperäisen sähköpostin automaattisen vastauksen viestitekstiin. Tällaisissa tapauksissa automaattinen vastaussääntö ei pysty tähän varmasti. Siksi meidän tulisi käyttää Outlookin VBA-koodeja. Jos olet kiinnostunut, lue lisää saadaksesi yksityiskohtaiset vaiheet ja VBA-koodit.

Automaattinen vastaus alkuperäisellä sähköpostilla ja ennalta määritetyllä tekstillä

1. Aluksi sinun tulisi kääntyä "Kehittäjä" -välilehteen ja napsauttaa "Visual Basic" -painiketta.
2. Sitten uudessa "Microsoft Visual Basic for Applications" -ikkunassa sinun on kaksoisnapsautettava "ThisOutlookSession" -projektia vasemmalla puolella.
3. Sen jälkeen ”ThisOutlookSession” -projekti avautuu. Nyt sinun pitäisi kopioida ja liittää seuraavat VBA-koodit siihen.

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

4. Seuraavaksi sinun tulee allekirjoittaa tämä koodi tavalliseen tapaan ja jatkaa makroasetusten muuttamista sallimaan vain digitaalisesti allekirjoitetut makrot.
5. Viimeiseksi, edellä mainittujen vaiheiden suorittamisen jälkeen, Outlook lähettää automaattisesti vastauksen alkuperäisen viestin kanssa tekstiosassa. Se näyttäisi olevan alla oleva kuva:

Huomautus: Ei ole väliä automaattinen vastaus säännön avulla tai automaattinen vastaus VBA-koodien avulla, molemmat voivat tehdä vaikutuksia vain, kun Outlook on käynnissä.

Osoite Outlookin datavirheet

Ilman epäilyksiä Outlook ei voi olla immuuni virheille. Siksi on välttämätöntä, että Outlookin säännölliset käyttäjät saavat joitain temppuja heidän vastaamiseensa. Paras tapa selviytyä Outlook-tietojen vaurioituminen tekee säännöllisen varmuuskopion. Niin kauan kuin sinulla on tehokas varmuuskopio, voit levätä helposti, vaikka Outlook kaatuu. Tietysti, pidä vakuutuksesta poissa myös tehokas korjaustyökalu.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjata SQL-mdf-tiedoston vioittuminen ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com