Добавьте адрес электронной почты отправителя при сохранении электронной почты Outlook с VBA - PullRequest
Новая
       14

Добавьте адрес электронной почты отправителя при сохранении электронной почты Outlook с VBA

0 голосов
/ 18 декабря 2018

Я нашел этот код в https://www.extendoffice.com/documents/outlook/5092-auto-save-outlook-emails-to-hard-drive.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 = "C:\Users\..."
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 & "\" & Format(Now, "YYYY.MM.DD hh.nn ") & xFileName & ".msg", olMSG
End If
Exit Sub
End Sub

и изменил его, чтобы включить дату.Как добавить адрес электронной почты отправителя (например, name.surname@email.com) в имя файла после даты?

Большое спасибо

...