If This.IsBlank Then
Set olapp = CreateObject("Outlook.Application")
Set oitem = olapp.CreateItem(0)
oitem.Subject = "OCR for AnyDoc"
oitem.To = "jsmith@hyland.com"
oitem.Body = "Phone field is empty"
oitem.Send
End If
Set oitem = Nothing
Set olapp = Nothing