Fórum Anexar um arquivo e envia-lo por email! #178581
30/08/2003
0
Caros amigos, tenho um sistema, e nesse sistema todos os dias ao final do expediente, ele precisa anexar um arquivo pre-determinado e envia-lo por email... A parte de enviar o email, eu ja consegui, mas ainda não sei como anexar o arquivo... Se alguem pudesse me ajudar ficaria muito grato... Obs.: Estou desenvolvendo em Delphi 7.
Neguete
Curtir tópico
+ 0
Responder
Posts
30/08/2003
Alysson
isso é fácil. nos códigos tem uma parte Attachments.
ai, se eu me lembro bem, digita smtp.attachments.add(´alysson.jpg´)
tenta assim aonde:
SMTP = nome do seu component SMTP
alysson.jpg = O arquivo.
*** posso ter errado ao escrever, n to com delphi 6 aberto...... :wink:
ai, se eu me lembro bem, digita smtp.attachments.add(´alysson.jpg´)
tenta assim aonde:
SMTP = nome do seu component SMTP
alysson.jpg = O arquivo.
*** posso ter errado ao escrever, n to com delphi 6 aberto...... :wink:
Responder
Gostei + 0
30/08/2003
Neguete
Bom, eu consegui a resposta.. o código para anexar no delphi 7 eh esse..
TIdAttachment.create(IdMessage.MessageParts, TFileName(´c:\Arquivo.txt´));
onde:
IdMessage = nome do seu componente IdMessage
´c:\Arquivo.txt´ = endereço do arquivo a ser anexado..
TIdAttachment.create(IdMessage.MessageParts, TFileName(´c:\Arquivo.txt´));
onde:
IdMessage = nome do seu componente IdMessage
´c:\Arquivo.txt´ = endereço do arquivo a ser anexado..
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)