Question

我是VBA的新手，我正在尝试插入一个类模块，以将到达收件箱中名为“我的文件夹”的子文件夹的电子邮件保存到共享驱动器上的某个位置。我有下面的代码，并尝试发送电子邮件进行测试，但无法正常工作，无法弄清原因。任何帮助将不胜感激！

Private WithEvents InboxItems As Outlook.Items
Sub Application_Startup()
Dim xNameSpace As Outlook.NameSpace
Set xNameSpace = Outlook.Application.Session
Set InboxItems = xNameSpace.GetDefaultFolder(olFolderInbox)
Set InboxItems = olFolder.Folders("My Folder")
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 & "File Path on Share Drive will be entered here"
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 & ".msg", olMSG
End If
Exit Sub
End Sub

Answer 1

我看到的代码存在一些问题。我正在工作，请确保将其添加到VBA IDE中的let posts = await Post.aggregate([ { $match: { comments: { $exists: true, $ne: [] }, _postedBy: userId } }, { $lookup: { from: "comments", localField: "comments", foreignField: "_id", as: "comments" } }, { $match: { 'comments.created_date': { $gte: todayForEvent } } } ])对象中。

ThisOutlookSession

类模块Outlook VBA问题

1 个答案: