>Are there any examples of using VFP to send email through Outlook?
>
>Thanks,
>
>Jerryt
Here is a small example of how I do it:
#DEFINE MAILITEM 0
#DEFINE IMPORTANCELOW 0
#DEFINE IMPORTANCENORMAL 1
#DEFINE IMPORTANCEHIGH 2
oOutLookObject = CreateObject("Outlook.Application")
oEmailItem = oOutLookObject.CreateItem(MAILITEM)
WITH oEmailItem
.To = "myself@mymailaddress.com;someone@somewhere.com"
.Subject = "Sending Email from within Foxpro to multiple recipients and with attachments"
.Importance = IMPORTANCENORMAL
.Body = "I'm now testing sending to multiple recipients in the .To value from within my app and mulitple attachments too."
.Attachments.Add("c:\temp\myfile.txt")
.Attachments.Add("C:\temp\junk.txt")
.Send
ENDWITH
RELEASE oEmailItem
RELEASE oOutLookObject
.·*´¨)
.·`TCH
(..·*
010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"