Question

我正在开展一个项目，因为我需要一个Outlook中的宏，它将在收件箱中扫描一个电子邮件，其中包含主题字段中的“参考编号”。如果未检测到电子邮件，则系统可以从excel电子表格转到下一个引用。

如果检测到电子邮件，则会将其解压缩为“MSG”文件，并将实际电子邮件移动到子文件夹中。到目前为止，我有一个用于将电子邮件提取为“MSG”文件的代码，但我无法识别主题字段中的特定字符串（引用号）。到目前为止，我从这个网站获得了以下EXCEL宏代码。

Sub Work_with_Outlook()

Set outlookApp = CreateObject("Outlook.Application")

Dim olNs As Outlook.NameSpace
Dim Fldr As Outlook.MAPIFolder
Dim olMail As Variant
Dim sir() As String

Set outlookApp = New Outlook.Application
Set olNs = outlookApp.GetNamespace("MAPI")
Set Fldr = olNs.GetDefaultFolder(olFolderInbox)
Set myTasks = Fldr.Items

Set olMail = myTasks.Find("[Subject] = ""Macro""")
If Not (olMail Is Nothing) Then
    olMail.Display
End If

End Sub

Outlook在收件箱中扫描主题

0 个答案: