Používateľ môže chcieť ukladať e-maily na pevný disk, aby si ich mohol prezerať nezávisle od programu Outlook alebo ich zdieľať s niekým iným. V tomto článku vám predstavíme, ako to urobiť automaticky cez VBA.
Exportujte e-maily z programu Outlook
Nie každý používateľ internetu používa Outlook ako e-mailového klienta a môže používať alternatívneho klienta. Môže nastať aj situácia, keď je potrebné s niekým zdieľať e-mail bez toho, aby sa odoslal skutočný e-mail. Aj na účely dokumentácie a kontroly sa e-maily často predkladajú ako dôkaz. Pre takéto scenáre ponúka Outlook metódu na nezávislý export e-mailu ako súboru .msg alebo .html. Nasledujúci skript VBA ukladá každý prichádzajúci e-mail automaticky na preddefinované miesto na pevnom disku bez zásahu používateľa vo formáte html. Po uložení je možné e-mail zobraziť v akomkoľvek internetovom prehliadači bez potreby e-mailového klienta.
Outlook VBA skript
Nižšie je uvedený kompletný skript 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
Ako spustiť skript
Pre médiá Alt + F11 otvorte editor Outlook VBA a vložte vyššie uvedený kód do „ThisOutlookSession“. Pred spustením tohto skriptu sa uistite, že priečinok „C:\MyEmails“ existuje a používateľ má doň oprávnenie na zápis. Okrem toho je dôležité vedieť, že pred spustením tohto skriptu je Microsoft Outlook XX Object library by sa malo pridať do referencie na projekt z menu „Nástroje“, kde XX je library verzia.
Pochopte skript
V skripte sa rutina „Items_ItemAdd“ spustí pri každej prichádzajúcej položke do priečinka Doručená pošta. Funkcia „TypName“ je tu na to, aby ďalej zaistila, že rutina bude pokračovať iba v prípade, že položka je e-mail a nie akékoľvek iné typy objektov programu Outlook. Ak presuniete e-mail z akéhokoľvek iného priečinka a povedzte „Odoslané položky“ do priečinka doručenej pošty, rutina bude stále fungovať a vykoná svoju úlohu. Je dôležité si uvedomiť, že „Items_ItemAdd“ sa spustí iba vtedy, ak je e-mail pridaný do hlavného priečinka Doručená pošta. Ak sú v hlavnom priečinku doručenej pošty vnorené priečinky, kód nebude fungovať, ak sa do niektorého z nich pridá e-mail. Aby to fungovalo pre všetky ostatné priečinky, „Items_ItemAdd“ by mal byť pripojený k tomuto konkrétnemu priečinku v „Application_S“tartup“ rutina. Vo vyššie uvedenom skripte možno formát olHTML nahradiť formátmi olMSG, olRTF, olDoc alebo olTxt. Predvolený formát pomenovania pre každý e-mail, ktorý sa má uložiť, je „MyEmail##“, kde ## je počet starod 1 a postupne nahor. Napríklad dvanásty prichádzajúci e-mail po spustení tohto skriptu sa uloží ako „MyEmail12“.
Obnova dát po zlyhaní programu Outlook
Nie je to veľmi nezvyčajný scenár, že sa Outlook rozpadne a používatelia nakoniec stratia veľké množstvo údajov. Zotavovanie sa z takýchto situácií môže byť veľmi náročná a časovo náročná úloha. Aby ste si v takýchto prípadoch uľahčili život, môžete použiť an Obnova dát z Outlooku nástroj na efektívnu obnovu bez chýb.
Úvod autora:
Mary Underwood je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane dwg zotavenie a rar softvérové produkty na obnovenie. Pre viac informácií navštívte www.datanumen. S