Hi All,
I would like to create a method to send an email message to large groups in our database.
I'm trying to find the syntax to use for the "From" property so that the recipient sees "
emaillist@hanoverpa.com" rather than my actual name.
Is this possible?
I saw some examples durng my search but when used got an error message.
Here's the basic code so far.
***mlemail.m_email()
with thisform.Hscntemail
with .Hsoptstatus
do case
case .Option1.value = 1
mstatus = " type <> ' ' " &&&& type = newsletter
case .Option2.value = 1
mstatus = " group <> ' ' " &&&& group = advertising
endcase
endwith
#define olfolderdisplaynormal 0
loOutlook = createobject("outlook.application")
lonamespace = loOutlook.getnamespace("mapi")
set filter to e_mail <> " "
go top
scan for &mstatus
wait window at 25,50 "Please be patient..." nowait
mfrom = "
emaillinglist@hanoverpa.com"
memailaddress = e_mail
loemailitem = loOutlook.createitem(0)
loemailitem.to = memailaddress
loemailitem.from = "
emaillist@hanoverpa.com" && error received
loemailitem.subject = .Hstxtsubject.value
loemailitem.body = .Hsedtbody.value
loemailitem.send
endscan
wait clear
messagebox("Click to close","DONE")
looutlook = .null.
release looutlook
endwith
thisform.refresh
********************************
Any ideas would be appreciated.
Jim Harvey