Fatal编程技术网
  • vba/
  • Vba 无法循环浏览Outlook项目中的folder.description变量

Vba 无法循环浏览Outlook项目中的folder.description变量

vba outlook

Vba 无法循环浏览Outlook项目中的folder.description变量,vba,outlook,Vba,Outlook,由于folder.description值，我正在准备查找outlook文件夹的代码 在folder.description中，我希望有多个值，并且宏在运行时应该只取一个值 文件夹搜索后，将有代码保存指定的项目，但我想我会处理这个问题 代码如下： Private Sub CLemailbackupsaved_Click() Dim olApp As Outlook.Application Dim olNS As Outlook.Namespace Dim olFldr As Outlook.MA

由于folder.description值，我正在准备查找outlook文件夹的代码

在folder.description中，我希望有多个值，并且宏在运行时应该只取一个值

文件夹搜索后，将有代码保存指定的项目，但我想我会处理这个问题

代码如下：

Private Sub CLemailbackupsaved_Click()
Dim olApp As Outlook.Application
Dim olNS As Outlook.Namespace
Dim olFldr As Outlook.MAPIFolder
Dim objfolder As Outlook.MAPIFolder
Dim olItem As Object
Dim olMailItem As Outlook.MailItem
Dim intx As Long
'Dim reportid As String

Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set olFldr = olNS.Folders("a@a.com")
Set olFldr = olFldr.Folders("Inbox")
Debug.Print olFldr.Name
For intx = 1 To olFldr.Folders.Count
 If olFldr.Folders.Item(intx).Description = "* MR090 *" Then
  Set objfolder = olFldr.Folders.Item(intx)

  Exit For
 End If
Next

Debug.Print objfolder.Name

Set olNS = Nothing
Set objfolder = Nothing
Set olFldr = Nothing
Set olApp = Nothing


End Sub
Folder.description示例值： MR091 MR090

If InStr（olFldr.Folders.Item（intx）.Description，“MR090”）>0则
If InStr（olFldr.Folders.Item（intx）.Description，“MR090”）>0则