Käyttäjä saattaa haluta tallentaa sähköpostit kiintolevylle nähdäkseen ne Outlookista riippumatta tai jakaakseen ne jonkun muun kanssa. Tässä artikkelissa esittelemme, kuinka se tehdään automaattisesti VBA:n kautta.
Vie sähköpostit Outlookista
Kaikki Internetin käyttäjät eivät käytä Outlookia sähköpostiohjelmana ja saattavat käyttää vaihtoehtoista. Saattaa myös olla tilanne, jossa sähköposti täytyy jakaa jonkun kanssa lähettämättä varsinaista sähköpostia. Myös dokumentointia ja valvontaa varten sähköpostit esitetään usein todisteina. Tällaisia tilanteita varten Outlook tarjoaa menetelmän sähköpostin viemiseen itsenäisesti .msg- tai .html-tiedostona. Seuraava VBA-skripti tallentaa jokaisen saapuvan sähköpostin automaattisesti ennalta määritettyyn paikkaan kiintolevylle ilman käyttäjän toimia html-muodossa. Kun sähköposti on tallennettu, sitä voi tarkastella missä tahansa Internet-selaimessa ilman sähköpostiohjelmaa.
Outlookin VBA-komentosarja
Alla on täydellinen Outlook VBA -skripti:
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
Skriptin suorittaminen
lehdistö Alt + F11 Avaa Outlook VBA -editori ja liitä yllä oleva koodi kansioon ”ThisOutlookSession”. Ennen skriptin suorittamista varmista, että kansio ”C:\MyEmails” on olemassa ja käyttäjällä on siihen kirjoitusoikeudet. Lisäksi on tärkeää tietää, että ennen skriptin suorittamista Microsoft Outlook XX -objektikirjasto tulee lisätä projektiviittauksiin ”Työkalut”-valikoista, joissa XX on kirjaston versio.
Ymmärrä käsikirjoitus
Skriptissä "Items_ItemAdd"-rutiini käynnistyy jokaisesta Saapuneet-kansioon saapuvasta kohteesta. "TypeName"-funktio varmistaa, että rutiini jatkuu vain, jos kohde on sähköposti eikä mikään muu Outlook-objektityyppi. Jos vedät sähköpostin mistä tahansa muusta kansiosta, esimerkiksi "Lähetetyt", Saapuneet-kansioon, rutiini toimii silti. On tärkeää huomata, että "Items_ItemAdd" käynnistyy vain, jos sähköposti lisätään Saapuneet-kansion pääkansioon. Jos Saapuneet-kansion sisällä on sisäkkäisiä kansioita, koodi ei toimi, jos sähköposti lisätään johonkin niistä. Jotta se toimisi muiden kansioiden kanssa, "Items_ItemAdd" tulee kytkeä kyseiseen kansioon "Application_Startup"-rutiinissa. Yllä olevassa skriptissä olHTML-muoto voidaan korvata olMSG-, olRTF-, olDoc- tai olTxt-muodoilla. Kunkin tallennettavan sähköpostin oletusarvoinen nimeämismuoto on ”OmaSähköpostiosoite##”, jossa ## on laskuri, joka alkaa yhdestä ja kasvaa asteittain. Esimerkiksi kahdestoista saapuva sähköposti tämän komentosarjan suorittamisen jälkeen tallennetaan nimellä ”OmaSähköpostiosoite12”.
Tietojen palautus Outlookin epäonnistumisen jälkeen
Ei ole kovin harvinainen skenaario, että Outlook hajoaa ja käyttäjät menettävät paljon tietoja. Tällaisista tilanteista toipuminen voi olla erittäin vaikeaa ja aikaa vievää tehtävää. Helpottaaksesi elämääsi tällaisissa tapauksissa voit käyttää Outlookin tietojen palautus työkalu tehokkaaseen ja virheettömään palautukseen.
Tekijän esittely:
Mary Underwood on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien dwg-palautus ja rar palautusohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com