oOutlook=CREATEOBJECT("Outlook.Application") oNS = oOutlook.GetNameSpace("MAPI") oItem = oOutlook.CreateItem(2) WITH oItem .FullName = <fill in name here> .Email1Address = <fill in email here> * populate other properties as needed ENDWITH oItem.Save()