Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to send email?
Message
 
 
To
07/12/2001 16:56:02
General information
Forum:
Visual FoxPro
Category:
Troubleshooting
Miscellaneous
Thread ID:
00591486
Message ID:
00591520
Views:
29
This message has been marked as a message which has helped to the initial question of the thread.
>I need to send an email from an application without user intervention and without knowing anything about the user's email account, username or password. Is this possible? If so, how?
>
>Thanks!!!

An OutLook way
PROCEDURE EMailr && Essential Path Not Found
        oApp=CreateObject("Outlook.Application")
        NameSpace= oApp.GetNameSpace("MAPI")
        MailItem = oApp.CreateItem(0)
        With MailItem
            .Subject =  "ArkMon Path not found Notification!"
            .body= CHR(10)+" Today "+TTOC(DATETIME( ))+ CHR(10)+CHR(13);
               +cemailline1+ CHR(13);
               +"Error Count "+AllTrim(Str(nERRCNT))+ CHR(13);
               +"I Value "+AllTrim(Str(i))+ CHR(13);
               +"Column Value "+AllTrim(Str(nCol))+ CHR(13);
               +"File Handle #"+AllTrim(Str(gnFile))+ CHR(13);
               +"Program ID "+ cSys16+ CHR(13);
               +"Origin (Path)"+cWhereAt+ CHR(13);
               +"Origin Dir "+cMedSearch+ CHR(13);
               +"Destination "+cDestFolder+ CHR(13);
               +"Destination Dir "+cDestDirect+ CHR(13);
               +"File Extension "+cFileExt+ CHR(13);
               +"Error Message "+gERRMESS+ CHR(13);
               +"Procedure Location "+SYS(5)+SYS(2003)+ CHR(13)
            .Recipients.Add ("whogetsit@location.com")
            .Send
        EndWith
        NameSpace.Logoff
ENDPROC
Edgar L. Bolton, B.S. B.B.A.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform