在Outlook VBA中访问Item.To

Question

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

当代码尝试使用Item时。有一个调试异常，调试工具告诉我“需要对象”。

我可以访问Item.To在Application_ItemSend，所以我有一部分是正确的。

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

Answer 1

我以前使用类似的代码访问了To行：

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以用于排序等。