Ha az Outlook-szabályt használja az automatikus válaszadáshoz, akkor rá fog jönni, hogy az automatikus válasz nem tartalmazhatja az eredeti üzenet szövegét. Ez a cikk egy egyszerű módszert mutat be, amellyel az eredeti e-mailt és az előre meghatározott szöveget beillesztheti az automatikus válasz törzsébe az Outlook VBA-n keresztül.
Az Outlookban az Exchange-fiókok lehetővé teszik a felhasználók számára, hogy az automatikus válaszokat közvetlenül a „Fájl” menü „Info” lapján található „Automatikus válaszok” gombbal állítsák be, például a következő képernyőképen:
De ha internetes e-mail fiókot használ, függetlenül attól, hogy IMAP vagy POP3, akkor nem érhető el az „Automatikus válaszok” gomb. Az automatikus válasz engedélyezésének egyetlen módja egy automatikus válaszszabály létrehozása, amely a következő képen látható:
Az Outlook automatikus válaszának ez a fajta szabálya azonban nem tudja automatikusan belefoglalni az eredeti üzenetet. A valóságban a legtöbb ember szeretné csatolni az eredeti e-mailt az automatikus válasz üzenettörzséhez. Ilyen esetekben az automatikus válasz szabálya ezt nem feltétlenül tudja megvalósítani. Ezért az Outlook VBA-kódjait kell használnunk. Ha érdekel, olvass tovább a részletes lépésekért és a VBA-kódokért.
Automatikus válasz az eredeti e-mail-címmel és egy előre meghatározott szöveggel
- Először lépjen a „Fejlesztő” fülre, és kattintson a „Visual Basic” gombra.
- Ezután az új „Microsoft Visual Basic for Applications” ablakban duplán kell kattintania a „ThisOutlookSession” projektre a bal oldalon.
- Ezt követően megnyílik a „ThisOutlookSession” projekt. Most másolja be és illessze be a következő VBA kódokat.
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
- Ezután a szokásos módon alá kell írnia ezt a kódot, és folytatnia kell a makróbeállítások módosítását, hogy csak a digitálisan aláírt makrókat engedélyezze.
- Végül a fenti lépések végrehajtása után az Outlook automatikusan választ küld az eredeti üzenet információival a törzsben. Az alábbi képhez hasonlóan nézne ki:
Jegyzet: Függetlenül attól, hogy a szabályt használó automatikus válasz vagy a VBA kódokat használó automatikus válasz történik, mindkettő csak akkor tud hatást elérni, ha az Outlook fut.
Címezze meg az Outlook adathibáit
Kétségtelenül az Outlook nem lehet immunis a hibákkal szemben. Ezért az Outlook rendszeres felhasználói számára elengedhetetlen, hogy néhány trükköt találjanak a megoldásukra. Nyilvánvalóan a legjobb módja annak, hogy megbirkózzunk vele Outlook adatkárosodás rendszeres biztonsági mentést készít. Mindaddig, amíg birtokában van egy hatékony biztonsági mentésnek, akkor is nyugodt lesz, ha az Outlook összeomlik. Természetesen, ha nincs biztosítás, jobb, ha kéznél tart egy erős javítószerszámot is.
Szerző Bevezetés:
Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve az SQL mdf fájl sérülésének javítása és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com