OFF TOPIC - Servidor SMTP com SMTPSEND

[carlos_dornelas]

Olá Amigos!

Alguém já conseguiu utilizar o SMTPSEND com algum servidor SMTP? Podereriam me dar alguma dica de algum gratuito, de preferência?

Obrigado por qualquer informação.

[]s

Antonio Carlos

[carlos_dornelas]

Esclarecendo melhor: Esse servidor seria através de um programa no micro local e não aquele do BOL ou IG, por exemplo.

Antonio Carlos

[carlos_dornelas]

Ninguém pode compartilhar uma dica??

Antonio Carlos

[Clipper]

Prezado Colega

Não sei se é o que você quer, mas lá vai uma dica :

A sintaxe do uso é a seguinte :

SMTPSEND -@ARQUIVO

Onde ARQUIVO é o arquivo de comandos a serem enviados, abaixo segue um exemplo de um arquivo de paramentros :

-fmarcelo @ sistemabr.com.br
-tmmendeso @ ig.com.br
-sTeste do SMTPSEND
-aTESTE.ABC
-iMSG.TXT
-hsmtp.sistemabr.com.br

Neste caso

F = Remetente
T = Destinatário
S = Assunto
A = Arquivo a ser anexado (são permitidos caracteres coringas)
I = Mensagem do email
H = Nome do servidor SMTP

Para usar auytenticação :

-umarcelo
-p123456

Onde :

U = Nome do usuário para autenticação
P = Senha

Existem outras opções mas não vou entrar em detalhes.

Marcelo

[Augusto]

Parceiro... o código abaixo funciona perfeitamente comigo. Trata-se de um pedaço do meu sistema que coloco a sua disposição.

Código: Selecionar todos

orig=space(40)
dest=space(40)
cc  =space(40)
cco =space(40)
assu=space(40)
serv=space(40)   
txt0=space(30)
txt1=space(30)
txt2=space(30)
txt3=space(30)
txt4=space(30)
txt5=space(30)
txt6=space(30)
txt7=space(30)
txt8=space(30)
txt9=space(30)
anex=space(30)
do while .t.
   @ 04,19 get orig valid empty(orig)=.f.
   @ 05,19 get dest valid empty(dest)=.f.
   @ 06,19 get cc
   @ 07,19 get cco
   @ 08,19 get assu valid empty(assu)=.f.
   @ 09,19 get serv valid empty(serv)=.f.  // IP ou o nome do servidor SMTP
   @ 10,19 get txt0
   @ 11,19 get txt1
   @ 12,19 get txt2
   @ 13,19 get txt3
   @ 14,19 get txt4
   @ 15,19 get txt5
   @ 16,19 get txt6
   @ 17,19 get txt7
   @ 18,19 get txt8
   @ 19,19 get txt9
   @ 20,19 get anex
   read
   if lastkey()=27
      return
   endif
*--------------------------> Rotina de CONFIRMAÇÃO
   if conf='N'
      loop
   endif
   @ 24,01 say 'Aguarde... Enviando mensagem'

   mtxt=txt0+txt1+txt2+txt3+txt4+txt5+txt6+txt7+txt8+txt9

   arqm='texto'
   arqt='texto.txt'

   criaarq()

   use &arqm
   appe blan
   repl txt with rtrim(mtxt)
   commit
   copy to &arqt sdf
   use

   mail=     '-f'+alltrim(orig)+' '
   mail=mail+'-t'+alltrim(dest)+' '
   if empty(cc)=.f.
      mail=mail+'-c'+alltrim(cc)+' '
   endif
   if empty(cco)=.f.
      mail=mail+'-b'+alltrim(cco)+' '
   endif
   mail=mail+'-h'+alltrim(serv)+' '
   mail=mail+'-s'+rtrim(assu)+' '
   if empty(anex)
      mail=mail+'-itexto.txt'+' '
      mail=mail+'-a'+alltrim(anex)
   else
      mail=mail+'-itexto.txt'
   endif

   mail="smtpsend "+mail+" > null"
   ! &mail
   ferase("texto.dbf")
   ferase("texto.txt")
enddo

Function CRIAARQ
private aStru
aStru := {;
{"TXT","C",500,00}}
dbcreate("&arqm",aStru)
return nil

Espero que te ajude...