Tabharfaidh an modh seo VBA isteach chun gach ríomhphost a thiocfaidh isteach in Outlook a shábháil go huathoibríoch mar chomhad HTML aonair ar an diosca ar leith. Déan mar a leanas le do thoil:

1. Brúigh Eile + F11 eochracha chun an fhuinneog Microsoft Visual Basic for Applications a oscailt.

2. Leathnaigh an Tionscadal1, agus cliceáil faoi dhó ThisOutlookSession chun é a oscailt, agus ansin greamaigh faoi bhun chód VBA isteach i bhfuinneog ThisOutlookSession. Féach an pictiúr:

VBA: Sábháil ríomhphoist Outlook go huathoibríoch mar chomhaid HTML ar dhiosca

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. Sábháil an cód VBA, agus déan do Microsoft Outlook a atosú.

As seo amach, sábhálfar gach ríomhphost a thiocfaidh isteach mar chomhad HTML aonair isteach san fhillteán “MyEmails”.

nótaí:
(1) Cruthóidh an VBA seo fillteán darb ainm “MyEmails” faoin bhfillteán Doiciméid. Is féidir leat na ríomhphoist a shábháiltear go huathoibríoch a fháil amach leis an gcosán fillteáin seo: C: \ Úsáideoirí \ your_user_name \ Documents \ MyEmails
(2) Oibreoidh an VBA seo le ríomhphoist a fhaightear i bhfillteán Isteach an chuntais ríomhphoist réamhshocraithe.

Conas mórchóir ríomhphoist / ríomhphoist roghnaithe a onnmhairiú chuig comhad Excel / Text / PST in Outlook?