GREAT idea, Erik! Maybe you should post the code in the Files section.


>>Erik,
>>
>>Do you know of a method to have "Help" from VFP bring up the UT???? Maybe we can put it in as a Wishlist item. "Internet Help" could be 1 of the bars on the Help Menu.
>>
>
>I can do that. Here's some code. You'll need to put this in a program called startut.prg, and then put a couple of lines of code in your VFP startup program. This code will place a menu item on your VFP menu to "Ask a question on UT". When you click the item, it will launch internet explorer, log you into the Universalthread, and click on the "Create a new message icon".
>
>Startup.prg:
>
>lcUserName = "utusernamehere"
>lcPassword = "utpasswordhere"
>
>oIE = CREATEOBJECT("InternetExplorer.Application")
>oIE.Navigate("www.levelextreme.com")
>
>INKEY(1)
>nStartSeconds = SECONDS()
>DO WHILE oIE.Document.ReadyState <> "complete" AND (SECONDS()-nStartSeconds < 30)
>ENDDO
>
>IF oIE.Document.ReadyState <> "complete"
> MESSAGEBOX("Universalthread is unavailable")
> oie.Visible = .T.
> RETURN .F.
>ENDIF
>
>oie.document.forms(0).Key.Value = lcUsername
>oIE.Document.Forms(0).Password.Value = lcPassword
>
>oIE.Document.Forms(0).Submit()
>
>nStartSeconds = SECONDS()
>DO WHILE oIE.Document.ReadyState <> "complete" AND (SECONDS()-nStartSeconds < 30)
>ENDDO
>IF oIE.Document.ReadyState <> "complete"
> MESSAGEBOX("Universalthread is unavailable")
> oie.Visible = .T.
> RETURN .F.
>ENDIF
>
>oFrame = oIE.Document.Frames(0)
>oFrame.Document.Links(0).Click()
>oIE.Visible = .T.
>
>Next you'll need these 2 lines to in your startup program to add the menu item to your VFP help menu.
>
>DEFINE BAR 8 OF _MSM_SYSTM PROMPT "Ask a question on UT"
>ON SELECTION BAR 8 OF _MSM_SYSTM DO StartUT.prg
>
>How's that?