How to bypass test on blank/empty MailItem.To property?

Question

How do I bypass standard Outlook check function when user doesn't fill the MailItem object's .To property?

If MailItem.To is blank I receive an error message.

My goal is to create a function to check when the .To property is blank to avoid VBA error and show a msg box, stop VBA script until object .To is correctly filled.

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

0m3r · Accepted Answer · 2019-04-22T15:01:53.033

Use vbNullString if its blank

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

You should also use Resolve or ResolveAll methods to resolve the Recipient against the address book.

Recipient.Resolve method (Outlook)

Recipients.ResolveAll method (Outlook)

score 1 · Answer 2 · answered Apr 19 '19 at 12:05

The To property is a string.

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

How to bypass test on blank/empty MailItem.To property?

2 Answers2