Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Error message
Message
From
21/09/2000 11:02:31
 
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Miscellaneous
Thread ID:
00418944
Message ID:
00419054
Views:
25
Hey Bret,

Here's the code:

** NOW BEGINNING FAXING VIA OUTLOOK PROCEDURE **
*cAddress = "[fax:404-371-5423]"
cAddress = "jkt6@cdc.gov"
cSubject = "Testing AutoFaxing Error Reports"
cBody1 = "This is a test, this is only a test. "
cAttachment1 = "C:\MY DOCUMENTS\" + of2w.doc_filename

*!* oOutlook = CREATEOBJECT("Outlook.Application")
oMailItem = oOutlook.CreateItem(0)

WITH oMailItem

.To = cAddress
.Body = cBody1
.Subject = cSubject
.Attachments.Add(cAttachment1)
*.Attachments.Add(cAttachment2)
.Send()

ENDWITH
Thanks in Advance.

J. Turner
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform