quinta-feira, 16 de julho de 2015

Exemplo de Email de Mauricio










CaminhoAnexo is string
MySession is EmailPOP3Session

MySession..ServerAddress = "pop.dominio.com.br"
MySession..Name = "nome@dominio.com.br"
MySession..Password = "senha"
MySession..Port = 110

Trace("Vai iniciar a sessão")

Conectou is boolean = EmailStartSession(MySession)

IF Conectou THEN
 Texto is string = ""
 Trace("Lendo emails")

 EmailProgressBar(PROGBAR_Email)
 arrMessage is array of Emails
 arrMessage = EmailGetAll(MySession)

 // Browse the array of messages with a FOR EACH loop
 FOR EACH AMessage OF MySession 
  IF AMessage..HTML <> ""
     Texto = AMessage..HTML
     ELSE
        Texto = AMessage..Message       
  END
 
  ControleHtml..Value = Texto
  Trace("Assunto: " + AMessage..Subject,"Data: " + AMessage..ReceiveDate,"Message ID: " + AMessage..MessageID,
       "Anexos: " + AMessage.Attach..Occurrence)
        
  IF AMessage.Attach..Occurrence > 0  
   FOR I= 1 TO AMessage.Attach..Occurrence
    CaminhoAnexo = "C:\LEVAR\ANEXO\" + AMessage..ReceiveDate +"_"+ AMessage..Attach[I]..Name
    //info(CaminhoAnexo)
    EmailSaveAttachment(AMessage..Attach[I],CaminhoAnexo)  
   END
  END
 END
ELSE
   Info(ErrorInfo(errFullDetails))
END
EmailProgressBar("")
EmailCloseSession(MySession)
[10:33:26] Mauricio Zúccolo - TID Software: É só colar esse código num botão duma window e tá funcionando
[10:34:02] Mauricio Zúccolo - TID Software: Ele lê os e-mails, e salva os anexos na pasta definida
[10:34:29] Mauricio Zúccolo - TID Software: Dá pra pegar data de envio, assunto, ID, etc
[10:34:34] Mauricio Zúccolo - TID Software: Muito legal...





Nenhum comentário:

Postar um comentário

Teste

Teste
teste