Clipper On Line • Ver Tópico - RMAIL.PRG Enviador de Emails

RMAIL.PRG Enviador de Emails

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

 

RMAIL.PRG Enviador de Emails

Mensagempor Kapiaba » 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
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1560
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 296 vezes
Mens.Curtidas: 99 vezes

RMAIL.PRG Enviador de Emails

Mensagempor MSDN » 02 Mai 2019 17:18

Vc tá velho hein Kapiaba...rssss....não se usa mais CONFIG.NT faz tempo !
MSDN
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 740
Data de registro: 28 Nov 2003 14:55
Cidade/Estado: CWB
Curtiu: 159 vezes
Mens.Curtidas: 105 vezes

RMAIL.PRG Enviador de Emails

Mensagempor Kapiaba » 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.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1560
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 296 vezes
Mens.Curtidas: 99 vezes

RMAIL.PRG Enviador de Emails

Mensagempor JoséQuintas » 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.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14354
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 859 vezes

RMAIL.PRG Enviador de Emails

Mensagempor JoséQuintas » 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.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14354
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 859 vezes

RMAIL.PRG Enviador de Emails

Mensagempor JoséQuintas » 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
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14354
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 859 vezes

RMAIL.PRG Enviador de Emails

Mensagempor MSDN » 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...
MSDN
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 740
Data de registro: 28 Nov 2003 14:55
Cidade/Estado: CWB
Curtiu: 159 vezes
Mens.Curtidas: 105 vezes

RMAIL.PRG Enviador de Emails

Mensagempor JoséQuintas » 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.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14354
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 859 vezes

RMAIL.PRG Enviador de Emails

Mensagempor Kapiaba » 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.
:TextBody = Alltrim( ::aCampos[ "cMENSAGEM_PADRAO" ] )


Vamos lá...

   //-> 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



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 )
*/



   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.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1560
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 296 vezes
Mens.Curtidas: 99 vezes

Anterior



Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro