Uživatel může chtít ukládat e-maily na pevný disk, aby je mohl zobrazit nezávisle na Outlooku nebo sdílet s někým jiným. V tomto článku si představíme, jak to udělat automaticky pomocí VBA.
Exportujte e-maily z aplikace Outlook
Ne každý uživatel internetu používá Outlook jako e-mailového klienta a může používat alternativní. Může také nastat situace, kdy je třeba e-mail s někým sdílet, aniž byste posílali e-mail. E-maily jsou také často předkládány jako důkaz, a to z důvodu dokumentace a kontroly. V takových scénářích Outlook nabízí metodu exportu e-mailu samostatně jako soubor .msg nebo .html. Následující skript VBA automaticky ukládá každý příchozí e-mail na předem definované místo na pevném disku bez zásahu uživatele ve formátu html. Po uložení lze e-mail zobrazit v libovolném internetovém prohlížeči bez nutnosti e-mailového klienta.
Skript aplikace Outlook VBA
Níže je kompletní skript aplikace Outlook VBA:
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
Jak spustit skript
Pro média Alt + F11 Otevřete editor VBA v Outlooku a vložte výše uvedený kód do složky „ThisOutlookSession“. Před spuštěním tohoto skriptu se ujistěte, že složka „C:\MyEmails“ existuje a že uživatel má do ní oprávnění k zápisu. Dále je důležité vědět, že před spuštěním tohoto skriptu by měla být do referencí projektu z nabídky „Nástroje“ přidána knihovna objektů Microsoft Outlook XX, kde XX je verze knihovny.
Pochopte skript
Ve skriptu se rutina „Items_ItemAdd“ spustí pro každou příchozí položku do složky Doručená pošta. Funkce „TypeName“ slouží k zajištění toho, aby rutina pokračovala pouze v případě, že se jedná o e-mail a nikoli o jiný typ objektu Outlooku. Pokud přetáhnete e-mail z jakékoli jiné složky, například „Odeslané položky“, do složky Doručená pošta, rutina bude stále fungovat a provádět svou práci. Je důležité si uvědomit, že „Items_ItemAdd“ se spustí pouze v případě, že je e-mail přidán do hlavní složky Doručená pošta. Pokud jsou v hlavní složce Doručená pošta vnořené složky, kód nebude fungovat, pokud je e-mail přidán do některé z nich. Aby kód fungoval pro jakékoli jiné složky, měl by být „Items_ItemAdd“ propojen s danou složkou v rutině „Application_Startup“. Ve výše uvedeném skriptu lze formát olHTML nahradit formáty olMSG, olRTF, olDoc nebo olTxt. Výchozí formát názvu pro každý ukládaný e-mail je „MůjEmail##“, kde ## je počet počínaje 1 a postupně se zvyšující. Například dvanáctý příchozí e-mail po spuštění tohoto skriptu bude uložen jako „MůjEmail12“.
Obnova dat po selhání aplikace Outlook
Není velmi neobvyklý scénář, aby se aplikace Outlook rozpadla a uživatelé nakonec ztratili velké množství dat. Obnova z takových situací může být velmi těžký a časově náročný úkol. Chcete-li si v takových případech usnadnit život, můžete použít Obnova dat aplikace Outlook nástroj pro efektivní a bezchybné zotavení.
Úvod autora:
Mary Underwood je expertkou na obnovu dat v DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně obnova DWG a rar softwarové produkty pro obnovu. Pro více informací navštivte www.datanumen.com