Korisnik bi mogao poželjeti spremiti e-poštu na tvrdi disk kako bi je pregledao neovisno o programu Outlook ili kako bi je podijelio s nekim drugim. U ovom ćemo članku predstaviti kako to učiniti automatski putem VBA.
Izvoz e-pošte iz Outlooka
Ne koristi svaki korisnik interneta Outlook kao klijent e-pošte i možda koristi alternativni. Također može postojati situacija u kojoj e-poštu treba podijeliti s nekim, bez slanja preko stvarne e-pošte. Također u svrhu dokumentacije i pregleda, e-pošta se često predstavlja kao dokaz. Za takve scenarije Outlook nudi metodu za neovisni izvoz e-pošte kao .msg ili .html datoteke. Sljedeća VBA skripta automatski sprema svaku dolaznu e-poštu na unaprijed definiranu lokaciju na tvrdom disku bez intervencije korisnika u html formatu. Nakon spremanja, e-pošta se može pregledavati u bilo kojem internetskom pregledniku bez potrebe za klijentom e-pošte.
Outlook VBA skripta
Ispod je kompletna Outlook VBA skripta:
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
Kako pokrenuti skriptu
Press Alt + F11 Otvorite Outlook VBA editor i zalijepite gornji kod u "ThisOutlookSession". Prije pokretanja ove skripte, provjerite postoji li mapa "C:\MyEmails" i ima li korisnik dopuštenje za pisanje u nju. Nadalje, važno je znati da prije pokretanja ove skripte, biblioteku objekata Microsoft Outlook XX treba dodati referencama projekta iz izbornika "Alati", gdje je XX verzija biblioteke.
Razumjeti skriptu
U skripti će se rutina „Items_ItemAdd“ pokrenuti za svaku dolaznu stavku u mapu Pristigla pošta. Funkcija „TypeName“ dodatno osigurava da se rutina nastavlja samo ako je stavka e-pošta, a ne bilo koja druga vrsta Outlook objekta. Ako povučete e-poštu iz bilo koje druge mape, recimo „Poslane stavke“, u pristiglu poštu, rutina će i dalje raditi i obavljati posao. Važno je imati na umu da će se „Items_ItemAdd“ pokrenuti samo ako se e-pošta doda u glavnu mapu Pristigla pošta. Ako postoje ugniježđene mape unutar glavne mape Pristigla pošta, kod neće raditi ako se e-pošta doda u bilo koju od njih. Da bi radio za bilo koje druge mape, „Items_ItemAdd“ treba biti povezan s tom određenom mapom u rutini „Application_Startup“. U gornjem skriptu, format olHTML može se zamijeniti formatima olMSG, olRTF, olDoc ili olTxt. Zadani format imenovanja za svaku spremljenu e-poštu je „MojEmail##“, gdje je ## broj koji počinje od 1 i postupno se povećava. Na primjer, dvanaesta dolazna e-pošta nakon pokretanja ovog skripta bit će spremljena kao „MojEmail12“.
Oporavak podataka nakon kvara Outlooka
Nije neuobičajen scenarij da se Outlook pokvari i da korisnici na kraju izgube mnogo podataka. Oporavak od takvih situacija može biti vrlo težak i dugotrajan zadatak. Da biste si olakšali život u takvim slučajevima, možete koristiti Outlook oporavak podataka alat za učinkovit oporavak bez grešaka.
Uvod za autora:
Mary Underwood stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporavak dwg-a i rar softverski proizvodi za oporavak. Za više informacija posjetite www.datanumen.com