   // XEMAILSSL // LOGICAL
   REDEFINE CHECKBOX oLigaSSL VAR lLigaSSL                  ID 101 OF oDlg   ;
      UPDATE COLOR CLR_BLACK, CLR_WHITE

   oLigaSSL:cToolTip := OemToansi( "O Provedor,  SSL?" )

   // XEMAILTLS oLigaSSl, oLigatls
   REDEFINE CHECKBOX oLigatls VAR lLigaTLS                  ID 102 OF oDlg   ;
      UPDATE COLOR CLR_BLACK, CLR_WHITE

   oLigaTLS:cToolTip := OemToansi( "O Provedor,  TLS?" )

   REDEFINE CHECKBOX oLigaLei VAR lLigaLei                  ID 103 OF oDlg   ;
      UPDATE COLOR CLR_BLACK, CLR_WHITE

   oLigaLei:cToolTip := OemToansi( "Pedir Confirmao de Leitura?" )

   REDEFINE BITMAP oBtnEmail ID 120 RESOURCE "EMAILG" TRANSPARENT OF oDlg ADJUST

   oBtnEmail:cToolTip := "Configurar Enviador de Emails Estilo MailCorp(CTI)"

   oBtnEmail:oCursor := oHand


