Consegui resolver o problema.

Alterei a linha 
TIdAttachment.create(IdMessage1.MessageParts,TFileName(lbxAnexos.Items.Strings[i]);
 

para
IdAttachmentFile.TIdAttachmentFile.Create(IdMessage1.MessageParts,TFileName(lbxAnexos.Items.Strings[i]));

De qualquer forma obrigada a todos.

Cristina escreveu:

> Olá pessoal,
>
>   Estou tentando enviar email com anexo, mas não está funcionando. 
> Peguei o código abaixo na internet.
>
> for i := 0 to lbxAnexos.Items.Count-1 do
>   
> TIdAttachment.create(IdMessage1.MessageParts,TFileName(lbxAnexos.Items.Strings[i]);
>  
>
>
> Mensagem de erro: Too many actual parameters
>
> Estou utilizando Delphi5 e Indy 10
>
>

-- 

Atenciosamente
----------------------------------------
Cristina Orthmann da Silva
HACON Automação e Tecnologia Ltda
Rua Lauro Linhares 589 - Bairro Trindade
Florianópolis - SC - Brasil
CEP 88036-001
Fone/Fax: 55 48 333-0699
Site: http://www.hacon.com.br/
Email: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
----------------------------------------



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 




Responder a