ActiveDelphi

[wolverinefarah]

Ola pessoal tenho esse codigo, com os seguintes erros :
[Error] UEnviaEmail.pas(55): Undeclared identifier: 'Recipients'
[Error] UEnviaEmail.pas(55): Missing operator or semicolon
[Error] UEnviaEmail.pas(56): Undeclared identifier: 'CCList'
[Error] UEnviaEmail.pas(57): Undeclared identifier: 'BccList'
[Error] UEnviaEmail.pas(60): 'OF' expected but identifier 'ItemIndex' found
[Error] UEnviaEmail.pas(61): Undeclared identifier: 'Priority'
[Error] UEnviaEmail.pas(66): Undeclared identifier: 'Subject'
[Error] UEnviaEmail.pas(67): Undeclared identifier: 'Body'
[Error] UEnviaEmail.pas(74): Undeclared identifier: 'MessageParts'
[Error] UEnviaEmail.pas(7: Undeclared identifier: 'Send'
[Error] UEnviaEmail.pas(76): Undeclared identifier: 'Connect'
[Error] UEnviaEmail.pas(7: '.' expected but ')' found
[Error] UEnviaEmail.pas(80): Undeclared identifier: 'Disconnect'
[Error] UEnviaEmail.pas(87): '.' expected but ';' found


var xAnexo : Integer;
begin
IdMessage.Recipients.EMailAddresses := edtPara.Text;
IdMessage.CCList.EMailAddresses := edtCC.Text;
IdMessage.BccList.EMailAddresses := edtCCO.Text;

//Trata a Prioridade da mensagem
case cbxPrioridade.ItemIndex of
0 : IdMessage.Priority := mpHigh;
1 : IdMessage.Priority := mpNormal;
2 : IdMessage.Priority := mpLow;
end;

IdMessage.Subject := edtAssunto.Text;
IdMessage.Body := mmMensagem.Lines;

if cbxConfirmaLeitura.Checked then
IdMessage.ReceiptRecipient.Text := IdMessage.From.Text; // Auto Resposta

//Tratando os arquivos anexos
for xAnexo := 0 to ListBox1.Items.Count-1 do
TIdAttachment.create(idmessage.MessageParts, TFileName(ListBox1.Items.Strings[xAnexo]));

IdSMTP.Connect;
try
IdSMTP.Send(IdMessage);
finally
IdSMTP.Disconnect;
end;
Application.MessageBox('Email enviado com sucesso!', 'Confirmação', MB_ICONINFORMATION + MB_OK);
end;
_________________
Fernando Farah
PROGRAMADOR PROGRESS
PROGRAMADOR DELPHI + FIREBIRD

[rodrigocarreiro]

Trabalhar com o Indy Requer uma serie de Uses em sua Unit.

As unit varia de versao para versao dos componentes Indy. Qual a versao do delphi utiliza ???
_________________
Rodrigo Carreiro Mourão
Borland Instructor Certified
________________________
TDS Tecnologia® RJ
Centro Autorizado Borland® CodeGear®
http://www.rodrigocarreiro.com

[wolverinefarah]

[wolverinefarah]