Any use?
oOutlook=Createobject("outlook.application")
If Type("oOutlook")="O" And Not Isnull(oOutlook)
oNameSpace=oOutlook.getNameSpace("MAPI")
If Type("oNameSpace")="O" And Not Isnull(oNameSpace)
oNameSpace.logon
oMSG=oOutlook.createItem(0)
With oMSG
.subject="Your Quotation from Portable
FloorMaker Ltd"
cbody="Dear
"+Iif(Len(Trim(&cCursor..qh_salutation))=0,&cCursor..qh_salutation,"Sir/Mada
m")+Chr(13)+Chr(10)+Chr(13)+Chr(10)
.body=cbody
.recipients.Add(Rtrim(cEmail))
If File(cPDF)
.attachments.Add(cPDF)
Else
=Messagebox("Unable to open
"+cPDF,16,"PDF Email Error")
Endif
.Display()
Endwith
Release oNameSpace
Endif
Release oOutlook
Endif
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Behalf Of Matthew Jarvis
Sent: 19 December 2007 00:17
To: profox@leafe.com
Subject: Re: outlook e-mail help
Bryant Minard wrote:
> I use the following code inside of VFP. I need to add an attachment like:
> "C:\CEMDATA.ZIP"
> Anyone have any ideas on addinf an attachment?
>
<snip>
Somewhere on the VFUG website (www.vfug.org) should be my series on
Office Automation, and one of the articles should have an example of
doing the attachment.
Can't seem to pull up the website right now, but if I remember when I
get home tonight I'll try and dig up the code....
Matthew S. Jarvis
IT Manager
Bike Friday - "Performance that Packs."
www.bikefriday.com
541/687-0487 x140
[EMAIL PROTECTED]
[excessive quoting removed by server]
_______________________________________________
Post Messages to: ProFox@leafe.com
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message: http://leafe.com/archives/byMID/profox/[EMAIL PROTECTED]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
