send email attachment with foxpro 2

[hodge2]

I found the following code on your site and it works great. How do I add an attachment?

oApp = createObject("Outlook.Application&quot
oMail = oApp.CreateItem(0)
oMail.to = "whoever@wherever.com"
oMail.subject = "Email from VFP"
oMail.body = "Test email sent directly from FoxPro."
oMail.send()
release oApp
release oMail

 

[Mike Gagnon]

Here is another version of the same automation with attachement:

#DEFINE MAILITEM 0
#DEFINE IMPORTANCELOW 0
#DEFINE IMPORTANCENORMAL 1
#DEFINE IMPORTANCEHIGH 2

oOutLookObject = CreateObject("Outlook.Application")
oEmailItem = oOutLookObject.CreateItem(MAILITEM)

WITH oEmailItem
   .Recipients.Add("moe@3stooges.com") && uses the Recipients collection
   .Subject = "Automation sample"
   .Importance = IMPORTANCENORMAL
   .Body = "This is easy!"
   .Attachments.Add("c:\mydir\sample.txt") && Note that the fully qualified path and file is required.
   .Send
ENDWITH

RELEASE oEmailItem
RELEASE oOutLookObject

 

[ramani]

HI
**********************************************************
o=createobject("outlook.application&quot
oitem=o.createitem(0)
oitem.subject="Email From VFP6"
oitem.to="ramani_g@yahoo.com"
oitem.body="This mail was sent from vfp using Outlook98"
[COLOR=/blue]
oitem.Attachments.Add("MyFullPath+MyFile+Ext&quot
[COLOR=/]
oitem.send
o=.null.
**********************************************************
ramani
(Subramanian.G),FoxAcc, ramani_g@yahoo.com

 

[danceman]

try this site

http://www.geocities.com/ResearchTriangle/9834/mainfram.htm

there are two well defined ways to send email with foxpro
1 MAPI
2 using shellexecute mailto Attitude is Everything

 

[Mike Gagnon]

Danceman

When I tried your link, I get to a page, but I see no mention of MAPI or SHELLEXECUTE. Any hints as to where to find the info.

 

[danceman]

when you get to the site select the Q&A section, then select General. At this listing you will see two samples.
Attitude is Everything

 

[Mike Gagnon]

danceman

Thank you.