Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Need to signal the Users desktops (VFP6 to WIN2000)
Message
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00655196
Message ID:
00658285
Views:
12
This message has been marked as the solution to the initial question of the thread.
>Hi,
>
>An application determines that a particular user needs to participate in processing. We want an Email like signal to appear on their desktop. The user can participate whenever they choose, but they must be informed that participation is required.
>
>Is there a simple way for a VFP6 application to make something appear (or change appearance) on a particular users WIN2000 desktop? I will appreciate any help or advice.
>
>Bob Pahus
>PetroflexNA
Hello Bob,
Depending on the network, You might want to try Network automation NET SEND
PROCEDURE SayErrFile
    cGenericMess="Errors Occured and Reported in I:\BBS\DATA\Error\ERR_RPT.TXT"
    IF cTYPE= "C"  && If Testing
        @ 7,35 SAY  "*"
    ENDIF    
    IF nERRCNT > 0 
        loWSH=CreateObject("Wscript.Shell")    && Eliminate DOS Window Flash!
        loWSH.run("command /c net send YOURNETNAME &cGenericMess ",0,1)
        loWSH= NULL
...
        oApp=CreateObject("Outlook.Application")
        NameSpace= oApp.GetNameSpace("MAPI")
        MailItem = oApp.CreateItem(0)
        cAutoSubject= "Automatic 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 ("YOURNAME@DOMAIN.com")
            .send
Immediate notification occurs as long as the is online
In addition to immediate notification an email is sent via outlook
HTH
Edgar L. Bolton, B.S. B.B.A.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform