在outlook中访问Item.To VBA

Question

在宏中，我需要在输入电子邮件时访问Item.To中的名称。
例如，在输入电子邮件时转到工具菜单并从“宏”子菜单运行宏。

当代码尝试使用Item.To时出现调试异常，调试工具告诉我“Object required”。

我可以访问Item.To执行Application_ItemSend，所以我有一部分权利。

感谢您考虑它，我被困在这一个！

Answer 1

我已经能够访问要使用类似下面的代码在过去行：

With Application.ActiveInspector 
    If TypeOf .CurrentItem Is Outlook.MailItem Then 
     Debug.Print "To: " & .CurrentItem.To 

     'If you want to access each recipient 
     Set myRecipients = .CurrentItem.Recipients 
     Dim myRecipient As recipient 
     Dim recipientToList As New Collection 

     For Each myRecipient In myRecipients 
       recipientToList.Add myRecipient.Name     
     Next 

    End If 
End With 

我已经装了一个ArrayList与每个收件人用于排序等