Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Vfp6 Email automation
Message
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
Vfp6 Email automation
Miscellaneous
Thread ID:
00627236
Message ID:
00627236
Views:
51
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
Next
Reply
Map
View

Click here to load this message in the networking platform