相关疑难解决方法(0)

我的目标是每当我收到特定主题的邮件时更新excel表(我设置了将相关邮件移动到文件夹的规则).

我在这个网站上看到过类似的帖子,但是给出的代码并不完整.不是'专业'或'技术'是非常难以编码的.

邮件包含:

文件名:所有者名称:上次更新日期:文件位置(这将是共享驱动器路径):

我每天都会收到这封邮件,需要在excel表中更新这些信息.(我会一直开到月末)

请帮我.提前致谢

我将编写一个VBA代码,该代码将根据某些条件从Outlook中检索电子邮件.我的问题是我必须在我的代码中表示某个文件夹(在下面的示例中,表示的文件夹是"PRE Costumer".我想从我的"收件箱"中查找所有电子邮件,或者更好地从所有outlook文件夹中查找问题是我的收件箱包含许多子文件夹(因为规则0.我的问题是我可能不知道所有的子文件夹名称(因为许多用户将使用宏,甚至有人可以在个人文件夹中有电子邮件) .
能否请您指教,有没有办法解决这个问题吗？
请让我知道,如果这个问题是模糊的(因为我是新人)

请找到我有问题的标有评论的行.

Sub GetFromInbox()

Dim olApp As Outlook.Application
Dim olNs As Namespace
Dim Fldr As MAPIFolder
Dim olMail As Variant
Dim i As Integer

Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
'Below is the line I have problem with
Set Fldr = olNs.GetDefaultFolder(olFolderInbox).Folders("PRE Customer") 

i = 1
x = Date

For Each olMail In Fldr.Items
    If InStr(olMail.Subject, "transactions") > 0 _
    And InStr(olMail.ReceivedTime, x) > 0 Then  
        ActiveSheet.Cells(i, 1).Value = olMail.Subject
        ActiveSheet.Cells(i, 2).Value = …