Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Email
Message
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Email
Miscellaneous
Thread ID:
00950714
Message ID:
00950714
Views:
56
Hi All:
I am using the following code to send an attach file. I get an error. The error is "Class definition MapiSendMail is not found"

What I am doing wrong?

Thanks

**My code below

#DEFINE cret Chr(13)+Chr(10)
#DEFINE dret cret+cret


PRIVATE obj
obj = CreateObject("MSMAPI.MapiSendMail") **I am getting an error here

WITH obj

* though the Sender object is implemented I never managed to make it
* something else but the default address for the local email client

.AddSender("Zahmed", "Zahmed@Nacs.Org")

* add one or more recipients
* note that the following ones will not work, just an example

.AddRecipient("Zahmed Ahmed", "Zahmed@Nacs.Org")

.MsgSubject = "Systrans Invoice"

.MsgBody ="The Excel file attached with this email includes invoices which are in Texhibits and " + dret +;
"Miscbill tables, but without a corresponding charge line in Systrans table."

* adding file attachments
* make sure that all files are available

.AddAttachment("S:\Information Technology\Zack\Camex\Exl\Camex.xls")
.SndMessage
ENDWITH
Next
Reply
Map
View

Click here to load this message in the networking platform