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

Moderador: Moderadores
:TextBody = Alltrim( ::aCampos[ "cMENSAGEM_PADRAO" ] )
//-> 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 )
Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes