Paano I-save ang Bawat Papasok na Email sa Hard Drive sa pamamagitan ng Outlook VBA

Maaaring gustuhin ng isang gumagamit na makatipid ng mga email sa hard drive upang tingnan ang mga ito nang nakapag-iisa ng Outlook o upang ibahagi sa ibang tao. Sa artikulong ito, ipakikilala namin kung paano gawin iyon awtomatiko sa pamamagitan ng VBA.

I-export ang Mga Email mula sa Outlook

Hindi lahat ng gumagamit ng internet ay gumagamit ng Outlook bilang isang email client at maaaring gumagamit ng isang kahalili. Maaari ring magkaroon ng isang sitwasyon kung saan kailangang ibahagi ang isang email sa sinuman, nang hindi nagpapadala ng aktwal na email. Para din sa mga layunin ng dokumentasyon at pagsusuri, ang mga email ay madalas na ipinakita bilang katibayan. Para sa mga ganitong sitwasyon, nag-aalok ang Outlook ng isang paraan upang mag-export ng isang email nang nakapag-iisa bilang isang .msg o .html file. Ang sumusunod na script ng VBA ay awtomatikong nai-save ang bawat papasok na email sa isang paunang natukoy na lokasyon sa hard drive nang walang interbensyon ng gumagamit sa format na html. Kapag nai-save na, ang Email ay maaaring matingnan sa anumang Internet browser nang hindi kailangan ng isang email client.

Outlook VBA Script

Nasa ibaba ang kumpletong script ng 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

Paano Patakbuhin ang Script

pindutin Alt + F11 upang buksan ang editor ng VBA ng Outlook at i-paste ang code sa itaas sa "ThisOutlookSession". Bago patakbuhin ang script na ito, tiyaking mayroon ang folder na "C: \ MyEmails" at ang gumagamit ay may pahintulot na sumulat dito. Bukod dito, mahalagang malaman na bago patakbuhin ang script na ito, ang Microsoft Outlook XX Object library dapat idagdag sa mga sanggunian ng proyekto mula sa mga menu na "Mga Tool", kung saan ang XX ang library bersyon

Maunawaan ang Script

Sa script, ang gawain na "Items_ItemAdd" ay mai-trigger sa bawat papasok na item sa folder ng Inbox. Ang pagpapaandar na "TypeName" ay naroon upang higit na matiyak na ang gawain ay nagpapatuloy lamang kung ang item ay isang email at hindi anumang iba pang mga uri ng Outlook object. Kung nag-drag ka ng isang email mula sa anumang iba pang folder, sabihin ang "Mga Naipadala na Item" sa inbox, gagana pa rin ang gawain at gawin ang trabaho. Mahalagang magkaroon ng kamalayan na ang "Items_ItemAdd" ay magti-trigger lamang, kung ang isang email ay naidagdag sa pangunahing folder ng Inbox. Kung may mga pugad na folder sa loob ng pangunahing folder ng Inbox, hindi gagana ang code kung ang isang email ay naidagdag sa alinman sa mga iyon. Upang mapagana ito para sa anumang iba pang mga folder, ang "Items_ItemAdd" ay dapat na nai-hook up sa partikular na folder sa "Application_Startup ”na gawain. Sa script sa itaas, ang format na olHTML ay maaaring mapalitan ng mga format na olMSG, olRTF, olDoc o olTxt. Ang default na format ng pagbibigay ng pangalan para sa bawat email na nai-save ay "MyEmail ##", kung saan ang ## ay ang bilang starting mula sa 1 at incrementally going up. Halimbawa, ang ikalabindalawa na papasok na email pagkatapos patakbuhin ang script na ito ay mai-save bilang "MyEmail12".

Pagbawi ng Data pagkatapos ng pagkabigo ng Outlook

Ito ay hindi isang napaka-hindi pangkaraniwang sitwasyon para sa Outlook na maghiwalay at ang mga gumagamit ay mawawala ang isang mahusay na deal ng data. Ang pag-recover mula sa mga ganitong sitwasyon ay maaaring maging isang napakahirap at gugugol na gawain. Upang gawing madali ang iyong buhay sa mga ganitong kaso, maaari kang gumamit ng Pagbawi ng data ng Outlook tool para sa isang mahusay at libreng pag-recover ng bug.

Panimula ng May-akda:

Si Mary Underwood ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang dwg pagbawi at rar mga produkto ng software sa pag-recover. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa