Clipper On Line • Ver Tópico - RMAIL.PRG Enviador de Emails
Página 1 de 2

RMAIL.PRG Enviador de Emails

MensagemEnviado: 02 Jul 2015 10:25
por Kapiaba
Gratuito com fontes. Autor: Ricardo de Moura Marques.

http://www.4shared.com/zip/9wQ0A3UHce/RMAIL.html

Precisa ter uma conta no www.4shared.com

Obg. abs.

RMAIL.PRG Enviador de Emails

MensagemEnviado: 10 Dez 2018 11:38
por Kapiaba
www.4shared.com reportando virus.

RMAIL.PRG Enviador de Emails

MensagemEnviado: 30 Abr 2019 13:51
por Kapiaba
Nova versão, agora funcionando com gmail.com, yahoo.com, bol.com.br, uol.com.br, terra.com.br, etc.

Abs.

RMAIL.PRG Enviador de Emails

MensagemEnviado: 30 Abr 2019 13:55
por Kapiaba
Imagem:

Imagem

RMAIL.PRG Enviador de Emails

MensagemEnviado: 30 Abr 2019 18:35
por JoséQuintas
Chamou a atenção isto:

          MsgStop( OemToAnsi( "Atenção Usuário:                      " )+CRLF+;
                   OemToAnsi( "Banco de Dados Está Vazio, Cadastre   " )+CRLF+;
                   OemToAnsi( "os Elementos Para Esta Operação.      " )+CRLF+;
                   OemToAnsi( "Acesso Não Permitido ao Banco de Dados" )+CRLF+;
                   OemToAnsi( "Entre em <Ferramentas> - <Provedores> " ),     ;
                   OemToAnsi( "Mensagem de Erro Para o Usuário.      " ) )


Se alguém usa OemToAnsi() tá na hora de rever os conceitos, porque algo está errado.
Isso foi a primeira coisa que me preocupei antes de usar qualquer lib gráfica: NADA de converter.

RMAIL.PRG Enviador de Emails

MensagemEnviado: 01 Mai 2019 13:25
por MSDN
O Fivewin possibilita fazer sistemas fantásticos, mas se o programador estiver com a cabeça lá nos tempos em que usava Fivewin+Clipper, dai não tem o que fazer.

RMAIL.PRG Enviador de Emails

MensagemEnviado: 01 Mai 2019 17:28
por JoséQuintas
MSDN escreveu:mas se o programador estiver com a cabeça lá nos tempos em que usava Fivewin+Clipper, dai não tem o que fazer.


Não precisa ir tão longe...
Harbour 3.0 era mais limitado pra codepage, e não sei dizer sobre XHarbour.
A GTWVW também era, ou talvez ainda seja no 3.2.

RMAIL.PRG Enviador de Emails

MensagemEnviado: 02 Mai 2019 09:06
por Kapiaba
Srs. Eu uso editor modo console. Não gosto de editores for windows. É por isso que eu gosto do Fivewin, eu faço do jeito que eu gosto, ou quero. Abs.

RMAIL.PRG Enviador de Emails

MensagemEnviado: 02 Mai 2019 09:45
por JoséQuintas
Mas codepage não tem nada a ver com editor DOS/Windows.
Pode até usar o EDIT, tudo depende da codepage.

Kapiaba escreveu:É por isso que eu gosto do Fivewin, eu faço do jeito que eu gosto, ou quero


Pode fazer do jeito que quiser, desde que seja do jeito do Fivewin kkkkkkkkkkkkkkkkk
A moda anterior do Fivewin foi VSCODE.
Coincidência? a moda atual do Fivewin é novamente console.

RMAIL.PRG Enviador de Emails

MensagemEnviado: 02 Mai 2019 10:20
por Kapiaba
Mister Quintas, o sr. usa FIVEWIN?

RMAIL.PRG Enviador de Emails

MensagemEnviado: 02 Mai 2019 13:31
por JoséQuintas
Meu padrão mínimo de trabalho é Harbour 3.4 + mingw 7.1.
É mais antigo que meu padrão atual, mas tudo bem.

RMAIL.PRG Enviador de Emails

MensagemEnviado: 02 Mai 2019 15:17
por Kapiaba
Meu padrão mínimo de trabalho é Harbour 3.4 + mingw 7.1. -> Não conheço. Não tenho opinião.

Mister Quintas quem usa Fivewin sabe o que fazer neste caso:


   Usando EDITOR FOR DOS(Modo console). Meu gosto pesssoal:

   MsgStop( OemToAnsi( "Aten‡Æo Usu rio:                      " )+CRLF+;
            OemToAnsi( "Banco de Dados Est  Vazio, Cadastre   " )+CRLF+;
            OemToAnsi( "os Elementos Para Esta Opera‡Æo.      " )+CRLF+;
            OemToAnsi( "Acesso NÆo Permitido ao Banco de Dados" )+CRLF+;
            OemToAnsi( "Entre em <Ferramentas> - <Provedores> " ),     ;
            OemToAnsi( "Mensagem de Erro Para o Usu rio.      " ) )

   Usando EDITOR FOR WINDOWS:

   MsgStop( "Atenção Usuário:                      " +CRLF+;
            "Banco de Dados Está Vazio, Cadastre   " +CRLF+;
            "os Elementos Para Esta Operação.      " +CRLF+;
            "Acesso Não Permitido ao Banco de Dados" +CRLF+;
            "Entre em <Ferramentas> - <Provedores> ",      ;
            "Mensagem de Erro Para o Usuário.      " )


Saludos.

RMAIL.PRG Enviador de Emails

MensagemEnviado: 02 Mai 2019 15:25
por Kapiaba
E Mister Quintas, só estou postando aqui, por causa da área de downloads do pctoledo, que é excelente, já o meu www.4shared.com, estão reclamando, que está com bírus.

como o pessoal do www.fivewin.com.br estava reclamando que não conseguia enviar emails via gmail ou yahoo com a versão anterior, eu gentilmente e gratuitamente, sem cobrar um centavos deles, modifiquei.

Se algum FiveWinner quiser melhor, que faça ou que me pague pelo trabalho. Não foi fácil consertar.

Tópico gerador da nova versão aqui:

http://fivewin.com.br/index.php?/topic/28072-e-mail-n%C3%A3o-envia-mas-envia-antes/

Abs.

RMAIL.PRG Enviador de Emails

MensagemEnviado: 02 Mai 2019 16:39
por JoséQuintas
Kapiaba escreveu:Se algum FiveWinner quiser melhor, que faça ou que me pague pelo trabalho.


Comentei do uso da conversão, isso não significa que todos achem isso.

Sobre a conversão:
Sinto muito ter dado a notícia de 30 anos atrás, do DOS 3.1
Só não diga que isso é limitação console/DOS.

RMAIL.PRG Enviador de Emails

MensagemEnviado: 02 Mai 2019 16:47
por JoséQuintas
Descobri uma nova: Nem precisava mais do COUNTRY.SYS, basta o comando CHCP.
Texto de 2008, 11 anos atrás.

https://www.mercurial-scm.org/wiki/CharacterEncodingOnWindows

Typical Windows systems operate with two character sets. On typical US systems, for example, most applications use a character set called cp1252 that is close to Latin-1. At the same time, the console ("DOS box") uses the legacy PC character set called cp437.


set your console code page to match your system code page
This will also eliminate all the problems, at the expense of getting some garbled output from legacy applications. To query the current console code page within cmd.exe on Windows NT, issue the command:
chcp
To change the code page, supply an encoding number as an argument. For example, to switch to Windows-1251 (a Cyrillic codec also known in Python as cp1251), use:
chcp 1251


DOS 3.0 e superior: (setembro/1984 - 35 anos atrás)

http://www.easydos.com/country.html

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


Não se trata de usar editor DOS, e sim de configurar.

RMAIL.PRG Enviador de Emails

MensagemEnviado: 02 Mai 2019 17:14
por Kapiaba
???

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

MensagemEnviado: 02 Mai 2019 17:18
por MSDN
Vc tá velho hein Kapiaba...rssss....não se usa mais CONFIG.NT faz tempo !

RMAIL.PRG Enviador de Emails

MensagemEnviado: 02 Mai 2019 17:32
por Kapiaba
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

MensagemEnviado: 02 Mai 2019 20:23
por JoséQuintas
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

MensagemEnviado: 02 Mai 2019 20:26
por JoséQuintas
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

MensagemEnviado: 02 Mai 2019 20:41
por JoséQuintas
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

MensagemEnviado: 02 Mai 2019 22:31
por MSDN
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

MensagemEnviado: 03 Mai 2019 00:43
por JoséQuintas
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

MensagemEnviado: 06 Fev 2020 11:24
por Kapiaba
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.

RMAIL.PRG Enviador de Emails

MensagemEnviado: 04 Mai 2022 01:41
por ricardomouramarques
Nem lembrava mais deste rmail. rs
Bins tempos!