如何绕过对空白/空 MailItem.To 属性的测试？

Question

当用户未填写 MailItem 对象的.To属性时，如何绕过标准 Outlook 检查功能？

如果MailItem.To为空，我会收到一条错误消息。

我的目标是创建一个函数来检查.To属性何时为空以避免 VBA 错误并显示消息框，停止 VBA 脚本直到 object.To 被正确填充。

Dim objMail As Outlook.MailItem
Dim objWho As String

objWho = objMail.To

If objMail.To xxxEpmty.something Then
    MsgBox ("Object To is blank")
Else
    objWho = objMail.To

Answer 1

如果为空，则使用 vbNullString

Option Explicit
Public Sub Example()
    Dim objMail As Outlook.MailItem
    Set objMail = Application.CreateItem(0)

    Dim objWho As String
        objWho = ""

        If objWho = vbNullString Then
            MsgBox "Error objwho is blank"
            Exit Sub
        End If

    With objMail
        .To = objWho
        .Send
    End With

End Sub

您还应该使用 Resolve 或 ResolveAll 方法根据地址簿解析收件人。

Recipient.Resolve 方法 (Outlook)

Recipients.ResolveAll 方法 (Outlook)

Answer 2

To 属性是一个字符串。

Sub forceTo()

    Dim objMail As MailItem
    Dim strWho As String

    ' first create mail
    Set objMail = ActiveInspector.CurrentItem

    If objMail.To = "" Then
        MsgBox ("To field is blank")
    Else
        strWho = objMail.To
        MsgBox ("To field contains this text: " & strWho)
    End If

End Sub