Alaska Software Inc. - tdallbrow()
Username: Password:
AuthorTopic: tdallbrow()
Don Keating tdallbrow()
on Sat, 10 Jun 2017 15:43:26 -0400
Someone please tell me why this code is creating two emails.

This is in tdallbrow().
oEMAILBTN:= tdpshbtn(1,nCOLCOUNT,3,oDLG:oTOPBAR,1005       ,;
        {|u1,u2,self|postappevent(xbeP_Keyboard,xbeK_F10,,oBROW)},tdWG)
oEMAILBTN:cTIP:= "Send selected member an email message - F10"


This is in allbrowkeys().
elseif nKEY== xbeK_F10   Added 5/25/17 Vers 5.06.08
    if empty((cALIAS)->EMAIL) 
      tdmsg(if(cALIAS= "CLB","Club","Member")+" has no email address.",,;
             tdWARN,{tdBLK,tdYEL})
    else
      oOUTLOOK:= createobject("Outlook.Application")
      if empty(oOUTLOOK)// .or. isdebug()
        makeemail({{trim((cALIAS)->EMAIL) ,;
                  if(cALIAS= "CLB",trim(CLB->CNAME)  ,;
                  dbsname((cALIAS)->FNAME,(cALIAS)->MI,(cALIAS)->LNAME))}})
      else
        shellopenfile("mailto:"+ trim((cALIAS)->EMAIL)+ "?subject=OptiDist"+   ;
                        "&body=Please change subject to one of your choosing.")
      endif
    endif
Raymond FischbachRe: tdallbrow()
on Sun, 11 Jun 2017 22:13:44 +0200
Hi Don,

Maybe you should try to udr oDlg instead of OBROW in

> oEMAILBTN:= tdpshbtn(1,nCOLCOUNT,3,oDLG:oTOPBAR,1005       ,;
>         {|u1,u2,self|postappevent(xbeP_Keyboard,xbeK_F10,,oBROW)},tdWG)


Best regards,
Raymond


> Someone please tell me why this code is creating two emails.
>
> This is in tdallbrow().
> oEMAILBTN:= tdpshbtn(1,nCOLCOUNT,3,oDLG:oTOPBAR,1005       ,;
>         {|u1,u2,self|postappevent(xbeP_Keyboard,xbeK_F10,,oBROW)},tdWG)
> oEMAILBTN:cTIP:= "Send selected member an email message - F10"
>
>
> This is in allbrowkeys().
> elseif nKEY== xbeK_F10   Added 5/25/17 Vers 5.06.08
>     if empty((cALIAS)->EMAIL) 
>       tdmsg(if(cALIAS= "CLB","Club","Member")+" has no email address.",,;
>              tdWARN,{tdBLK,tdYEL})
>     else
>       oOUTLOOK:= createobject("Outlook.Application")
>       if empty(oOUTLOOK)// .or. isdebug()
>         makeemail({{trim((cALIAS)->EMAIL) ,;
>                   if(cALIAS= "CLB",trim(CLB->CNAME)  ,;
>                   dbsname((cALIAS)->FNAME,(cALIAS)->MI,(cALIAS)->LNAME))}})
>       else
>         shellopenfile("mailto:"+ trim((cALIAS)->EMAIL)+ "?subject=OptiDist"+  
>  ;                         "&body=Please change subject to one of your 
> choosing.")       endif
>     endif
Raymond FischbachRe: tdallbrow()
on Sun, 11 Jun 2017 22:14:37 +0200
Raymond Fischbach a pensé très fort :
> udr

*use of course
Don Keating Re: tdallbrow()
on Sun, 11 Jun 2017 20:24:31 -0400
Thanks, Raymond - didn't help.

  >don<

On Sun, 11 Jun 2017 22:14:37 +0200, Raymond Fischbach wrote:

>Raymond Fischbach a pensé très fort :
>> udr
>
>*use of course