USE Promo IF !USED("Promo") RETURN .F. ENDIF oOutLook = CREATEOBJECT("Outlook.Application") lcBody = FILETOSTR("mailtext.htm") SCAN oMailItem = oOutlook.createitem(0) WITH oMailItem .Subject = "Version 3.1 Available NOW" .HtmlBody = lcBody .Recipients.Add(ALLTRIM(Promo.Email)) .Save() .Send() ENDWITH ENDSCANOutlook comes with a message "Another program tries to send mail etc" for each .Send() command.