oApp = CreateObject( 'Outlook.application' )
oSpace = oApp.GetNameSpace( 'MAPI' )
oMess = oSpace.GetDefaultFolder( 6 )
oNew = oApp.CreateItem( 0 )
oNew.Subject = 'This is a line'
oNew.Recipients.Add( 'me@myself.com' )
oCopy = oNew.Copy()
=oCopy.Move( oMess )