email com anexos ( indy 10 )

Question

alguem saberia como enviar um arquivo em anexo num email usando indy 10 ???...

Ffc · Answer

// Percorre a combobox para pegar todos os anexos.
[b:dbc4dce297] for[/b:dbc4dce297] I := 0 [b:dbc4dce297]to[/b:dbc4dce297] ComboBox1.Items.Count - 1 [b:dbc4dce297]do[/b:dbc4dce297]
[b:dbc4dce297]begin[/b:dbc4dce297]
TIdAttachment.Create(IdMessage.MessageParts, ComboBox1.Items.Strings[I]);
[b:dbc4dce297]end;[/b:dbc4dce297]

Nesta combobox vou jogando os anexos.
Ex:
c:\teste.txt
c:\novo.bmp

Espero ter contribuido.

Mahdak · Answer

voce testou isso com indy 10? pq parece que o pessoal nao tem conseguiso fazer da mesma maneira que era feitos com as versoes anteriores...

outra coisa, troquei de computador, antes eu tinha um celeron 32 bits, agora estou com um sempron 64 bits, formatei a maquina instalei o delphi e quando fui compilar meu projeto que antes compilava normalmente olha a mensagem de erro:

[Pascal Fatal Error] Unit1.pas(7): F2051 Unit IdIOHandler was compiled with a different version of IdComponent.TIdComponent

sabe como eu poderia resolver isso? antes eu usava o mesmo delphi, com a mesma versao do indy... ou seja, Turbo e indy 10

Ffc · Answer

Amigo infelizmente estou usando o 9.0.18, lembro que tive problemas com o Indy 10 e acabei retornando para o 9.0.18 que n�o tive problemas at� agora.abra�os....

Mahdak · Answer

entao, ja instalei a versao 9 , porem continuo com o problema:

[Pascal Fatal Error] SIGAX.dpr(24): F2051 Unit IdSMTP was compiled with a different version of IdComponent.TIdComponent.BeginWork

saberias me dizer do que se trata?

uso o turbo delphi

Mahdak · Answer

s� pra galera saber.. formatei o  pc e instalei indy 9 pq nao dei volta no problema e nem no indy 10...agora tudo certo, enviando o email atraves do TIdAttachment.Createabra�os a todos!...

F�rum email com anexos ( indy 10 ) #331057