...
.Display()
>I have developed the code below for sending an email from VFP using Outlook:>#DEFINE OLMAILITEM 0 >#DEFINE CR CHR(13) >#DEFINE OLCC 2 >OOUTLOOK = CREATEOBJECT("outlook.application") >OMAILITEM = OOUTLOOK.CREATEITEM( OLMAILITEM) > >WITH OMAILITEM > .SUBJECT = "News" > .BODY = "The quick brown fox jumped over the lazy dog" + CR +; > "The quick brown fox jumped again." > * add recipients > WITH .RECIPIENTS > .ADD ("Mike Smith") > > * ADD COPIES > ORECIP = .ADD("Mike Smith") > ORECIP.TYPE = OLCC > > * get outlook to add all the email addresses > LRESOLVED = .RESOLVEALL() > ENDWITH > .ATTACHMENTS.ADD ("C:\TEMP\TEST.JPG") > > * save and send > .SAVE() > *.SEND() >ENDWITH >>