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 )