PC Toledo

Ola galera
estou tentando fazer o seguinte
usar o SMTPSend ou o Blat
utilizando o clipper
no clipper fiz a funcao

Function fEnvEmail(wDe, wPara, wAssunto, wTexto)

mas nao consigo relacionar com o DOS para aceitar esses 4 parametros com string
eu ja tentei

wBlat = "blat -body wTexto -subject wAssunto -to wPara -p wDe"
ele reconhece tudo como string entao ele manda para o wPara de wDe

Tentei fazer com macro
wBlat = "blat -body" &wTexto "-subject" &wAssunto "-to" &wPara "-server &wServ -f" &wDe "-u" &wDe "-pw $wPass"
reconhece tudo como uma String tb

run Blat -body "%wTexto%" -subject "%wAssunto%" -to "%wPara" -server "%wServ%" -f "%wDe%" -u "%wDe%" -pw "%wPass%"
novamente uma super string

run Blat -body "%wTexto%" -subject "%wAssunto%" -to "%wPara%" -p wDe
mais Stringggg

:'(
auhuahuha
alguem sabe como posso resolver essa minha questao??
tenho um pouco de pressa
att
Derick Conti Pereira
se possivel enviar e-mail para uma mais rapida visualizacao
derickcp@gmail.com

Amiguinho

Voce não poderá comandar programas externos da forma como voce deseja pois o comando RUN foi planejado para executar aplicativos que não peguem parametros.

Nós é que queremos demais e passamos parametros aos comandos, mas na pratica não é o correto.

Na sessão codigo fontes verifique algo sobre envio de mensagens de email e verá que nso exemplos que coloquei todos criar um arquivo externo e eu executo com o RUN.

Tem exemplos para smtpsend, blat, getmail e [mapisend]. Este ultimo envia emails diretamente para a caixa de saida do outlook desta forma seu aplicativo fica isento do controle deixando a cargo do outlook.

Veja em https://pctoledo.org/forum/viewtopic.php?t=3298

acho que estou conseguindo...
ele esta falando que a string eh muito grande
vi uma funcao feita e analisei
a funcar eh de algum morededor daqui

pego os valores, jogo numa bat e executo a mesma

to quase la


function blat( cbody, cserver, cto, cf, csubject, cu, cpw, cattach )
BlatCMD := [ -body "] + alltrim(cbody) + ["] + ;
[ -server ] + alltrim(cserver) + ;
[ -to ] + alltrim(cto) + ;
[ -f ] + alltrim(cf) + ;
[ -subject "] + alltrim(csubject) + ["] + ;
[ -u ] + alltrim(cu) + ;
[ -pw ] + alltrim(cpw) + ;
[ -attach ] + alltrim(cattach)
cMacro="BLAT.EXE" + BlatCMD
memowrit( "put.bat", cMacro )
? cMacro
run put.bat
RETURN .T.

rocinha
sim sim eu vi
unico problema eh que nao reconhece o comando que vc usou na linha

MsgRun( "Enviando a "+LOWER(cServer)+"..." )
WinExec( "put.bat", 7 )

tirei os 2 e coloquei o run

ai veio o erro
Programa muito extenso para ser colocado na memória

ou eu sou muito burro ou nao manjo clipper
ou os 2
ta valendo 19 anos estagiario clipper =D
^^
rs rs
consegui fazer ele preencher a bat correto
tanto que se eu mandar executar a bat do DOS ele executa correto
mas no clipper se eu coloco run put.bat

Programa muito extenso para ser colocado na memória

ai ai alguem sabe??

amigos consegui
se alguem um dia for usar comando do clipper no DOS
eu fiz uma macro
para enviar e-mail e funciona


private wAux
wAux= '-body "mensagem" -subject "Teste" -to teste@teste.com.br -p nick
(lembrando par ausar o -p tem que usar o
blat -install <servidor> <seu email> <tentativas> <porta> <nick> <usuario> <senha> )
? wAux
run blat &wAux

return(.t.)

agora minha duvida eh

tem como eu colocar tipo assim
em um arquivo txt
para quem vai, quem manda, servidor, usuario, senha, mensagem e tals
e dar um comando

blat arquivo.txt?

galera desencana
usei o smtpsend mesmo
fiz um arquivo enviar.txt com todos os parametros
de servidor, usuario, senha, para quem vai e tals
que eh preenchido a partir de um programa clipper

depois fiz um arquivo texto.txt
onde o clipper preenche com a mensagem de erro do programa
quando ouver erro

ai ja era
quando der erro no programa ele grava a mensagem no texto.txt
grava o usuario a hora e tals no enviar.txt
ai fico facil

soh usar o



*****Function fEnvEmail()
private wAux

//clear
//run dir
//wait
*****************TENTATIVAS BLAT**************************
//wAux= '-body "mensagem" -subject "titulo" -server pop.genix.com.br -to tiago@genix.com.br -f derick@genix.com.br -u derick@genix.com.br -pw derickgenix02'
//wAux= 'texto.txt -subject "Teste" -to tiago@genix.com.br -p Derick'
***********************************************************


//FUNCIONAAAA ^^
********************SMTPSend*******************************
wAux= '-@enviar.txt'
************************************************************

? wAux
run SMTPSend &wAux

return(.t.)


abracos a todos

check this 8=)
http://askbritneyspears.info/uncensored/46283
regards, Tenjoad6