En bruker vil kanskje lagre e-poster på harddisken for å se dem uavhengig av Outlook eller for å dele med noen andre. I denne artikkelen vil vi introdusere hvordan du gjør det automatisk via VBA.
Eksporter e-post fra Outlook
Ikke alle Internett-brukere bruker Outlook som en e-postklient og bruker kanskje en alternativ. Det kan også være en situasjon der en e-post må deles med noen, uten å sende over selve e-posten. Også for dokumentasjons- og granskningsformål presenteres e-poster ofte som bevis. For slike scenarier tilbyr Outlook en metode for å eksportere en e-post uavhengig som en .msg- eller .html-fil. Følgende VBA-skript lagrer hver innkommende e-post automatisk til et forhåndsdefinert sted på harddisken uten brukerintervensjon i html-format. Når e-posten er lagret, kan den vises i hvilken som helst nettleser uten behov for en e-postklient.
Outlook VBA-skript
Nedenfor er det komplette Outlook VBA-skriptet:
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
Hvordan kjøre skriptet
Press Alt + F11 for å åpne Outlook VBA-editoren og lime inn koden ovenfor i «ThisOutlookSession». Før du kjører dette skriptet, må du sørge for at mappen «C:\MyEmails» finnes og at brukeren har skrivetillatelse til den. Videre er det viktig å vite at før du kjører dette skriptet, bør Microsoft Outlook XX-objektbiblioteket legges til prosjektreferansene fra «Verktøy»-menyene, der XX er bibliotekversjonen.
Forstå manuset
I skriptet vil rutinen «Items_ItemAdd» utløses for hvert innkommende element i innboksmappen. Funksjonen «TypeName» er der for å sikre at rutinen bare fortsetter hvis elementet er en e-post og ikke andre typer Outlook-objekter. Hvis du drar en e-post fra en annen mappe, sier «Sendte elementer» til innboksen, vil rutinen fortsatt fungere og gjøre jobben. Det er viktig å være klar over at «Items_ItemAdd» bare skal utløses hvis en e-post legges til hovedmappen i innboksen. Hvis det er nestede mapper i hovedmappen i innboksen, vil ikke koden fungere hvis en e-post legges til noen av disse. For at den skal fungere for andre mapper, bør «Items_ItemAdd» kobles til den aktuelle mappen i rutinen «Application_Startup». I skriptet ovenfor kan olHTML-formatet erstattes med olMSG-, olRTF-, olDoc- eller olTxt-formater. Standard navneformat for hver e-post som skal lagres er «MinE-post##», der ## er antallet som starter fra 1 og går trinnvis oppover. For eksempel skal den tolvte innkommende e-posten etter at dette skriptet er kjørt, lagres som «MinE-post12».
Datagjenoppretting etter Outlook-feil
Det er ikke et veldig uvanlig scenario for Outlook å bryte opp og brukere ender opp med å miste mye data. Å komme seg fra slike situasjoner kan være en veldig tøff og tidkrevende oppgave. For å gjøre livet ditt enkelt i slike tilfeller kan du bruke en Outlook datagjenoppretting verktøy for en effektiv og feilfri gjenoppretting.
Forfatterintroduksjon:
Mary Underwood er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert dwg-gjenoppretting og rar programvare for gjenoppretting. For mer informasjon besøk www.datanumen. Med