RMAIL.PRG Enviador de Emails

[Kapiaba]

COUNTRY=country code,

Código: Selecionar todos

[,][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

[MSDN]

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

[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.

[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.

[JoséQuintas]

aqui

https://superuser.com/questions/387569/ ... -windows-7

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

[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.

[MSDN]

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

[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.

[Kapiaba]

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

https://pctoledo.org/forum/downlo ... hp?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: Selecionar todos

:TextBody = Alltrim( ::aCampos[ "cMENSAGEM_PADRAO" ] )

Vamos lá...

Código: Selecionar todos

   //-> 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: Selecionar todos

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: Selecionar todos

   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.

[ricardomouramarques]

Nem lembrava mais deste rmail. rs
Bins tempos!