#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