#DEFINE olMailItem   0
#define olOriginator 0
#define olTo         1
#define olCC         2
#define olBCC        3

loOutlook = CREATEOBJECT( 'Outlook.Application' )
loMsg = loOutlook.CreateItem( olMailItem )
IF VARTYPE( loMsg ) = 'O'
  WITH loMsg
    *** Set the required message properties
    .Subject = "This is a test message"
    .Body = "Here are some attachments"
    *** Add the recipients
    loRecipient = .Recipients.Add( "someone@somedomain.com" )
    loRecipient.Type = olTo         
    *** And finally, add the attachment 
    .Attachments.Add( "d:\MyFullPath\MyDocument.zip" )
    *** And send it off
    .Send()
  ENDWITH
ENDIF