e-mailadresses

[jds]

e-mail adresses
Can anyone tell me if it is possible to incorporate and use e-mailadresses from Xbase++ fields (with FWH) iand if yes how to do it?

[Detlef Hoefner]

Sorry, i can't help because i don't understand your question.

Please provide some more details about your problem.
What data do you have and what you want to do with them?

Regards,
Detlef

[jds]

I want to put f.e. an emailadres in a field of an adres file and by clicking on the emailadres open the outlook program f.e.

[Antonio Linares]

jds,

This is an example:

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   local oDlg, oSay, oCursor

   DEFINE CURSOR oCursor HAND

   DEFINE DIALOG oDlg

   @ 2, 2 SAY oSay PROMPT "test@gmail.com"

   oSay:lWantClick = .T.
   oSay:bLClicked  = { || ShellExecute( oDlg, "Open", "mailto:" + oSay:GetText(),,, 0 )
   oSay:oCursor    = oCursor

   ACTIVATE DIALOG oDlg CENTERED

return nil
 

[Antonio Linares]

In case that you want to use a GET:

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   local oDlg, oGet, oCursor, cEmail := "test@gmail.com      "

   DEFINE CURSOR oCursor HAND

   DEFINE DIALOG oDlg

   @ 2, 2 GET oGet VAR cEmail

   oGet:bLClicked  = { || ShellExecute( oDlg, "Open", "mailto:" + oGet:GetText(),,, 0 ) }
   oGet:oCursor    = oCursor

   ACTIVATE DIALOG oDlg CENTERED

return nil
 

[jds]

Thank you Antonio ! But it is necessary to put "outlook.exe" between "open" and "mailto:"
Hasta luego !

[Antonio Linares]

Jds,

Thanks for your feedback

[jds]

Sorry Antonio, it also works without referencing to outlook
josé

[Antonio Linares]

Jds,

Thanks again