Hi All,
Below is the code I use to send our email newsletter to 2,000 customers. This works fine with Win98 and Outlook 2000.
It is not okay when I run it on a WinXP pc, it stops on each send and asks if you really want to send this email.
Is there a way around this security setting somehow?
Thanks,
Jim
***************************************************
#define olfolderdisplaynormal 0
looutlook = createobject("outlook.application")
lonamespace = looutlook.getnamespace("mapi")
scan
wait window at 25,50 "Please be patient..." nowait
memailaddress = e_mail
loemailitem = looutlook.createitem(0)
loemailitem.to = memailaddress
loemailitem.subject = .hstxtsubject.value
loemailitem.body = .hsedtbody.value
loemailitem.send()
endscan
wait clear
looutlook = .null.
release looutlook
***************************************************