Այս մեթոդը կներկայացնի VBA ՝ Outlook- ում յուրաքանչյուր մուտքային էլփոստը ավտոմատ կերպով պահպանելու համար ՝ որպես անհատական ​​HTML ֆայլ որոշակի սկավառակի վրա: Խնդրում ենք անել հետևյալը.

1. Մամուլ ալտ + F11 Microsoft Visual Basic հավելվածների համար պատուհանը բացելու ստեղները:

2, Ընդլայնել Project1- ը և կրկնակի սեղմել ԱյսOutlookSession- ը այն բացելու համար, այնուհետև VBA կոդի ներքևում տեղադրեք ThisOutlookSession պատուհանում: Տեսեք,

VBA. Ավտոմատ պահեք Outlook- ի էլփոստերը որպես HTML ֆայլեր սկավառակի վրա

Private WithEvents InboxItems As Outlook.Items
Sub Application_Startup()
Dim xNameSpace As Outlook.NameSpace
Set xNameSpace = Outlook.Application.Session
Set InboxItems = xNameSpace.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub InboxItems_ItemAdd(ByVal objItem As Object)
Dim FSO
Dim xMailItem As Outlook.MailItem
Dim xFilePath As String
Dim xRegEx
Dim xFileName As String
On Error Resume Next
xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)
xFilePath = xFilePath & "\MyEmails"
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(xFilePath) = False Then
FSO.CreateFolder (xFilePath)
End If
Set xRegEx = CreateObject("vbscript.regexp")
xRegEx.Global = True
xRegEx.IgnoreCase = False
xRegEx.Pattern = "\||\/|\<|\>|""|:|\*|\\|\?"
If objItem.Class = olMail Then
Set xMailItem = objItem
xFileName = xRegEx.Replace(xMailItem.Subject, "")
xMailItem.SaveAs xFilePath & "\" & xFileName & ".html", olHTML
End If
Exit Sub
End Sub

3, Պահպանեք VBA կոդը և վերագործարկեք ձեր Microsoft Outlook- ը:

Այսուհետ յուրաքանչյուր մուտքային նամակ կպահվի որպես անհատական ​​HTML ֆայլ «MyEmails» պանակում:

Notes:
(1) Այս VBA-ն Փաստաթղթերի թղթապանակի տակ կստեղծի «MyEmails» անունով թղթապանակ: Դուք կարող եք պարզել ինքնաբերաբար պահպանված նամակները այս թղթապանակի ճանապարհով. C:\Users\your_user_name\Documents\MyEmails
(2) Այս VBA-ն կաշխատի լռելյայն էլփոստի հաշվի Inbox պանակում ստացված նամակների հետ:

Ինչպե՞ս արտահանել զանգվածային / ընտրված էլփոստերը Excel / Text / PST ֆայլ Outlook- ում: