Bydd y dull hwn yn cyflwyno VBA i arbed pob e-bost sy'n dod i mewn yn Outlook yn awtomatig fel ffeil HTML unigol i'r ddisg benodol. Gwnewch fel a ganlyn:

1. Gwasgwch Alt + F11 allweddi i agor ffenestr Microsoft Visual Basic for Applications.

2. Ehangu'r Project1, a chlicio ddwywaith SesiwnOutlook i'w agor, ac yna pastiwch islaw cod VBA i mewn i ffenestr ThisOutlookSession. Gweler y screenshot:

VBA: Cadwch e-byst Outlook yn awtomatig fel ffeiliau HTML ar ddisg

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. Cadwch y cod VBA, ac ailgychwynwch eich Microsoft Outlook.

O hyn ymlaen, bydd pob e-bost sy'n dod i mewn yn cael ei gadw fel ffeil HTML unigol i'r ffolder “MyEmails”.

Nodiadau:
(1) Bydd y VBA hwn yn creu ffolder o'r enw “MyEmails” o dan y ffolder Dogfennau. Gallwch ddarganfod yr e-byst a arbedir yn awtomatig gyda'r llwybr ffolder hwn: C: \ Defnyddwyr \ your_user_name \ Documents \ MyEmails
(2) Bydd y VBA hwn yn gweithio gydag e-byst a dderbynnir yn ffolder Mewnflwch y cyfrif e-bost diofyn.

Sut i allforio swmp-e-byst / dethol i ffeil Excel / Text / PST yn Outlook?