Clipper On Line • Ver Tópico - RMAIL.PRG Enviador de Emails
Mudar para estilo Clássico
Discussão sobre a biblioteca Fivewin - O Clipper para Windows.
Postar uma resposta

RMAIL.PRG Enviador de Emails

02 Mai 2019 17:14

???

COUNTRY=country code,[code page][,][d:][filename]

Como ficaria no CONFIG.NT do Windows 7 para o Brasil?

Se bem que eu acho que o meu editor é tão velho que não vai respeitar isso nem a PAU Juvenal. kkkkkkk

RMAIL.PRG Enviador de Emails

02 Mai 2019 17:18

Vc tá velho hein Kapiaba...rssss....não se usa mais CONFIG.NT faz tempo !

RMAIL.PRG Enviador de Emails

02 Mai 2019 17:32

kkkkkkkkkk,

Marcelo, acho que você se enganou. Não se usa o CONFIG.SYS, no windows 7 é CONFIG.NT, no windows 10, I dont no.

kkkkkkkkkkkkkkkkkk

Abs.

RMAIL.PRG Enviador de Emails

02 Mai 2019 20:23

No W7 não tem o CHCP ?
colocaria no mesmo lugar aonde entram as coisas do autoexec.

Mas comparado com o Windows, que vém dando uns pipinos... nossos aplicativos até que fazem milagre, de um jeito ou de outro kkkk

msconfig talvez?

No W10 dava pra configurar em propriedades, neste novo já não sei mais onde.

RMAIL.PRG Enviador de Emails

02 Mai 2019 20:26

aqui

https://superuser.com/questions/387569/how-do-i-permantly-set-the-command-prompt-codepage-in-windows-7

w7code.png


ATENÇÃO: 1252 é para o que perguntaram, não sei se serve pra PT-BR.

RMAIL.PRG Enviador de Emails

02 Mai 2019 20:41

Propriedades da janela aberta mostra codepage, mas do atalho não.
Provavelmente porque a configuração não é "por atalho", mesmo assim, porque não mostrar?

Coisas da Microsoft...
Pelo menos mostra que o default do console alterou, agora segue o Windows/GUI.

w10.png

RMAIL.PRG Enviador de Emails

02 Mai 2019 22:31

Kapiaba, que brahma vc tá tomando homem de Deus....nem config.nt se usa mais faz tempo, isso é coisa do EPA...

RMAIL.PRG Enviador de Emails

03 Mai 2019 00:43

Não lembro qual era config.nt e autoexec.nt, talvez XP/2000.

Lembrando que Windows Vista é considerado mais atual que Windows XP, acho esquisito mas.... é assim.

RMAIL.PRG Enviador de Emails

06 Fev 2020 11:24

Macs, respondi aqui, pois o forum do fivewin tá uma b... para postar:

http://www.pctoledo.com.br/forum/download/file.php?id=7301

Veja se entende, senão, só Jesus na causa. kkkkkkkkkkkkkkkkkk

// ISTO E PARA COLOCAR UMA ASSINATURA(BITMAP) NO RODADE DO EMAIL.
Código:
:TextBody = Alltrim( ::aCampos[ "cMENSAGEM_PADRAO" ] )


Vamos lá...

Código:
   //-> Corpo do Email
   cNoteText := CORPO_DO_EMAIL()

   // Email direto
   cTxt := cNoteText   //-> Corpo do Email
   cMsgType        := "C"
   cConversationID := ""
   dDate           := DATE()
   cTime           := TIME()
   lReceipt        := .F.
   lFromUser       := .T.
   aOrigin         := {""}  //-> Email de quem enviou, nao precisa informar

            //-> Envia o Email - Disparo para o Windows Live Mail.
            oMail := TMail():New( cSubject       , ;
                                  cNoteText      , ;
                                  cMsgType       , ;
                                  cConversationID, ;
                                  dDate          , ;
                                  cTime          , ;
                                  lReceipt       , ;
                                  lFromUser      , ;
                                  aOrigin        , ;
                                  aRecipients    , ;
                                  aFiles )

            oMail:Activate()  // ATIVA O WINDOWS LIVE MAIL



Código:
FUNCTION CORPO_DO_EMAIL( )

   LOCAL cTextoEmail

   PUBLIC cEMailCli

   IF EMPTY( cEMailCli )

      cEMailCli :=  "Veja Email do Remetente."

   ENDIF

   //-> Corpo do Email
   cTextoEmail     := "Prezado Cliente:"                       +CRLF+CRLF+;
                      ALLTRIM( CADCLIEN->CLIENTE )             +CRLF+CRLF+;
                      "Bla, bla, bla...                "       +CRLF+CRLF+;          ;
                      "Atenciosamente,"                        +CRLF+CRLF+;
                      ALLTRIM(wNomeEmpresa)                    +CRLF+CRLF+;

RETURN( cTextoEmail )
*/


Código:

   cTxt := "Segue convocação para assembleia geral extraordinária tendo como pauta negociação da convenção coletiva."

   @ 113,006 GET oGet[8] VAR cTxt OF oDlgIni SIZE 292, 59                    ;
             COLOR CLR_BLACK, CLR_WHITE PIXEL UPDATE MEMO FONT oFont1

   @ 235, 065 BUTTONBMP oBtn[1] PROMPT "&Testar Email"  OF oDlgIni   ;
              SIZE 55, 12 PIXEL                                      ;
              ACTION ( cTime := "AGUARDE, TENTANDO ENVIAR.",         ;
                       oSay[6]:Refresh(),                            ;
                       IF( lRet := CONFIG_MAIL(LOWER(ALLTRIM(cUser)),;
                                               ALLTRIM(cPass),       ;
                                               LOWER(ALLTRIM(cRemt)),;
                                               LOWER(ALLTRIM(cDest)),;
                                               LOWER(ALLTRIM(cCC)),  ;
                                               LOWER(ALLTRIM(cCCO)), ;
                                               cTxt, cAssunto ),     ;
                       MsgInfo( "Mensagem Enviada Com Sucesso! ",    ;
                                "Atenção "),), cTime := "",          ;
                                               oSay[6]:Refresh(),    ;
                                               XFOCUS( oGet[1] ) )

   oBtn[1]:cToolTip := OemToAnsi( "Enviar o Email ao Destinat rio " )

FUNCTION Config_Mail( _cUser, cPass, _cRemt, cDest, cCC, cCCO, cTxt, cSubject )

            MsgRun( "Email com Anexo da "+ALLTRIM( cTexto ),    ;
                    "Favor Esperar, Pode Demorar um Pouco - "+  ;
                    "Tentando Enviar Email -  Não Tecle <ESC>", ;
                    { || lRet := Envia_Mail(oCfg, cRemt, cDest, cCC, cCCO, cTxt, cSubject) } )

FUNCTION Envia_Mail( oCfg, cFROM, cTo, cCC, cBCC, cMsg, cSubject )

          oMsg:TextBody      := ALLTRIM( cMsg )


Duvidas, grite, pois estou usando fones de ouvido e num "ovo" nada. kkkkkkkk

Abs.

RMAIL.PRG Enviador de Emails

04 Mai 2022 01:41

Nem lembrava mais deste rmail. rs
Bins tempos!
Postar uma resposta