#define olMailItem                                        0
*** Constant Group: OlMailRecipientType
#define olOriginator                                      0
#define olTo                                              1
#define olCC                                              2
#define olBCC                                             3

loNameSpace = oOutlook.GetNameSpace( 'MAPI' )
*** Create a new mail item
loMsg = oOutlook.CreateItem( olMailItem )
IF VARTYPE( loMsg ) = 'O'
  WITH loMsg
    *** Set the required message properties
    .Subject = 'Keep up the good work'
    .Body = 'Hi Ken. Just wanted to tell you that I think you and the Fox team are doing a great job!'
    *** Add the recipients
    .Recipients.Add( 'KLevy@Microsoft.com' )
    .Recipients[ 1 ].Type = olTo
    *** And send it off
    .Send()
  ENDWITH
ENDIF