>Hi
>
>I've just started using (for the first time) the MSMAPI stuff, I've downloaded the code from MSDN. I've managed to use MSMAPI.mapiSession and MSMAPI.mapiMessages to generate a message, with a sunject and attachment.
>
>When I issue the SEND command, what I would like to happen is that the E-mail is generated and appears but then control returns to VFP so that I can quit the application. I dont want VFP to hang around waiting for the SEND to finish or work or otherwise. (for various reasons) Any suggestions on how this can be done ? (It must be possible as lots of apps generate e-mails and then leave them their open while they continue working ?
>
>Also, if I choose Cancel on the e-mail it generates a Foxpro Error, I would prefer if just returned the detail in a Var or something. Is there a way to turn this off or just does it have to be handled in On Error or something.
>
>One last thing, I've noticed that the MSAPI seems to be changing the Defauly Directory, so I have had to re-issue a SET DEFAULT TO command. Any idea why this is happening or is it normal ?
>
>Thanks for any help.
>
>Mike
Mike I'm not quite sure this is what you're looking for...
PROCEDURE SayErrFile
cGenericMess="Errors Occured and Reported in ERR_RPT.TXT"
IF nERRCNT > 0
loWSH=CreateObject("Wscript.Shell")
loWSH.run("command /c net send <loginname> &cGenericMess ",0,1)
loWSH=NULL
oApp=CreateObject("Outlook.Application")
NameSpace= oApp.GetNameSpace("MAPI")
MailItem = oApp.CreateItem(0)
cAutoSubject= "Automatic Err Notification!"
With MailItem
.Subject = cAutoSubject
.body= CHR(10)+" Today "+TTOC(DATETIME( ))+ CHR(10)+CHR(13);
+cemailline1+ CHR(13);
+cemailline2+ CHR(13);
+cemailline3+ CHR(13);
+cemailline4+ CHR(13);
+cemailline5+ CHR(13);
+cemailline6+ CHR(13);
+cemailline7+ CHR(13)
.Recipients.Add ("<emailname>@<eplace>.com")
.Send
EndWith
NameSpace.Logoff
ENDIF
IF SubStr(cDestFolder,1,1)= "C"
MODIFY FILE ERR_RPT.TXT
ENDIF
ENDPROC
Edgar L. Bolton, B.S. B.B.A.