Előfordulhat, hogy a felhasználó az e-maileket merevlemezre szeretné menteni, hogy az Outlooktól függetlenül megtekinthesse, vagy megoszthassa őket valaki mással. Ebben a cikkben bemutatjuk, hogyan lehet ezt automatikusan megtenni VBA-n keresztül.
E-mailek exportálása az Outlookból
Nem minden internetfelhasználó használja az Outlookot e-mail kliensként, és lehet, hogy egy másikat is használ. Előfordulhat olyan helyzet is, amikor egy e-mailt meg kell osztani valakivel anélkül, hogy átküldené a tényleges e-mailt. Az e-maileket gyakran bizonyítékként is bemutatják dokumentációs és vizsgálati célokra. Az ilyen esetekre az Outlook lehetőséget kínál az e-mailek .msg vagy .html fájlként történő exportálására. A következő VBA-szkript minden bejövő e-mailt automatikusan elment egy előre meghatározott helyre a merevlemezen, felhasználói beavatkozás nélkül html formátumban. Mentés után az e-mail bármely internetböngészőben megtekinthető e-mail kliens nélkül.
Outlook VBA Script
Alább látható a teljes Outlook VBA szkript:
Private WithEvents Items As Outlook.Items
Private Count As Integer
Private Sub Application_Startup()
Dim objApp As Outlook.Application
Dim objNameSpace As Outlook.NameSpace
' Get the items in the Inbox folder
Set objApp = Outlook.Application
Set objNameSpace = objApp.GetNamespace("MAPI")
Set Items = objNameSpace.GetDefaultFolder(olFolderInbox).Items
' Initialize count
Count = 1
End Sub
Private Sub Items_ItemAdd(ByVal objItem As Object)
On Error GoTo ShowError
Dim objMail As Outlook.MailItem
' Check if the item is a mail. If yes, then save it as a HTML file and update Count
If TypeName(objItem) = "MailItem" Then
Set objMail = objItem
objMail.SaveAs "C:\MyEmails\MyEmail" & CStr(Count), olHTML
Count = Count + 1
End If
Exit Sub
ShowError:
MsgBox Err.Number & " - " & Err.Description
End Sub
A szkript futtatása
Sajtó Alt + F11 Nyissa meg az Outlook VBA szerkesztőjét, és illessze be a fenti kódot a „ThisOutlookSession” mappába. A szkript futtatása előtt győződjön meg arról, hogy a „C:\MyEmails” mappa létezik, és a felhasználónak írási jogosultsága van hozzá. Fontos tudni azt is, hogy a szkript futtatása előtt a Microsoft Outlook XX objektumkönyvtárat hozzá kell adni a projekthivatkozásokhoz az „Eszközök” menüből, ahol XX a könyvtár verzióját jelöli.
Értsd meg a forgatókönyvet
A szkriptben az „Items_ItemAdd” rutin minden bejövő elemnél elindul a Beérkezett üzenetek mappába. A „TypeName” függvény további biztosítására szolgál, hogy a rutin csak akkor folytatódjon, ha az elem egy e-mail, és nem más típusú Outlook objektum. Ha egy másik mappából, például az „Elküldött elemek” mappából húzunk egy e-mailt a Beérkezett üzenetek mappába, a rutin továbbra is működni fog és elvégzi a feladatát. Fontos tudni, hogy az „Items_ItemAdd” csak akkor indul el, ha egy e-mailt hozzáadunk a fő Beérkezett üzenetek mappához. Ha a fő Beérkezett üzenetek mappán belül beágyazott mappák vannak, a kód nem fog működni, ha ezek bármelyikéhez hozzáadunk egy e-mailt. Ahhoz, hogy más mappáknál is működjön, az „Items_ItemAdd” rutint az adott mappához kell csatolni az „Application_Startup” rutinban. A fenti szkriptben az olHTML formátum lecserélhető olMSG, olRTF, olDoc vagy olTxt formátumra. Az egyes mentendő e-mailek alapértelmezett elnevezési formátuma „MyEmail##”, ahol a ## az 1-től kezdődő és növekvő számot jelöli. Például a szkript futtatása után a tizenkettedik bejövő e-mail „MyEmail12” néven lesz mentve.
Adat-helyreállítás Outlook-hiba után
Nem túl ritka, hogy az Outlook felbomlik, és a felhasználók rengeteg adatot veszítenek. Az ilyen helyzetekből való kilábalás nagyon nehéz és időigényes feladat lehet. Hogy ilyen esetekben megkönnyítse az életét, használhat egy Outlook adatok helyreállítása eszköz a hatékony és hibamentes helyreállításhoz.
Szerző Bevezetés:
Mary Underwood 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 dwg helyreállítás és a rar helyreállítási szoftver termékek. További információért látogasson el www.datanumen.com