Page 1 of 1

e-mailadresses

Posted: Sun Feb 07, 2010 9:25 am
by 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?

Re: e-mailadresses

Posted: Mon Feb 08, 2010 9:47 am
by 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

Re: e-mailadresses

Posted: Tue Feb 09, 2010 7:50 pm
by 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.

Re: e-mailadresses

Posted: Tue Feb 09, 2010 8:31 pm
by Antonio Linares
jds,

This is an example:

Code: Select all

#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
 

Re: e-mailadresses

Posted: Tue Feb 09, 2010 8:34 pm
by Antonio Linares
In case that you want to use a GET:

Code: Select all

#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
 

Re: e-mailadresses

Posted: Mon Feb 15, 2010 4:23 pm
by jds
Thank you Antonio ! But it is necessary to put "outlook.exe" between "open" and "mailto:"
Hasta luego !

Re: e-mailadresses

Posted: Tue Feb 16, 2010 9:47 am
by Antonio Linares
Jds,

Thanks for your feedback :-)

Re: e-mailadresses

Posted: Thu Mar 04, 2010 7:00 pm
by jds
Sorry Antonio, it also works without referencing to outlook
josé

Re: e-mailadresses

Posted: Fri Mar 05, 2010 5:44 pm
by Antonio Linares
Jds,

Thanks again :-)