Hello,

I try to send massmail using the following code (for Outlook XP):

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
ENDSCAN

Outlook comes with a message "Another program tries to send mail etc" for each .Send() command.
Is there a way to send massmail using Outlook without getting this message for each single email?

Thanks for help in advance