This example displays the mail system installed on the host machine.
ms = Application.MailSystem
If ms <> wdNoMailSystem Then
MsgBox "This machine has a mail system installed."
Else
MsgBox "This machine has no mail system installed."
End If