Email Microsoft Office Outlook邮件搜索

当我创建一个新邮件并希望查找搜索未搜索部分字符串（包含）的邮件地址时，如何可能比查找邮件地址的开头（StartsWith（））更有效

这是不可能的！为什么我不能用部分字符串搜索邮件地址

Stefan

尝试使用

名称空间

类的方法：

Sub ResolveName() 
 Dim myNamespace As Outlook.NameSpace 
 Dim myRecipient As Outlook.Recipient 
 Dim CalendarFolder As Outlook.Folder 
 
 Set myNamespace = Application.GetNamespace("MAPI") 
 Set myRecipient = myNamespace.CreateRecipient("eugene") 
 myRecipient.Resolve 
 
 If myRecipient.Resolved Then 
   Call ShowCalendar(myNamespace, myRecipient) 
 End If 
End Sub 

Sub ShowCalendar(myNamespace, myRecipient) 
 Dim CalendarFolder As Folder 
 Set CalendarFolder = myNamespace.GetSharedDefaultFolder(myRecipient, olFolderCalendar) 
 CalendarFolder.Display 
End Sub

---

该方法还可用于根据通讯簿验证给定姓名。

您的搜索准确程度如何？请显示代码的相关片段。