Olá pessoal... já estou conseguindo enviar email para contas que precisam de
autenticação
solicitando resposta automatica.. com copias, e copias ocultas... porém não
estou conseguindo enviar anexos com o Delphi 2005 veja o código todo
procedure TForm2.BitBtn2Click(Sender: TObject);
var xAnexo:Integer;
begin
IdMessage1.From.Address:=edtDe.Text;
idMessage1.UID:=edtDe.text;
IdMessage1.Recipients.EMailAddresses:=edtPara.text;
IdMessage1.CCList.EMailAddresses:=edtCC.text;
IdMessage1.BccList.EMailAddresses:=edtCCO.text;
//trata a prioridade da mensagem
case cbxPrioridade.ItemIndex of
0: IdMessage1.Priority:=mpHigh;
1: IdMessage1.Priority:=mpNormal;
2: IdMessage1.Priority:=mpLow;
end;
IdMessage1.Subject:=edtAssunto.text;
IdMessage1.Body:=mmMensagem.Lines; //memorando
idMessage1.ContentType:='text/html';
if cbxConfirmaLeitura.Checked then
IdMessage1.ReceiptRecipient.Text:=IdMessage1.From.Text; //auto
resposta
{************************
AQUI ACONTECE O ERRO
************************
Obs.:
TidAttachment.create não é reconhecido, ou seja, fica um sublinhado em baixo
notificando
a existencia de erro nestas propriedades..
}
//tratando os arquivos anexos
for xAnexo:=0 to ListBox1.Items.Count-1 do
TidAttachment.create(IdMessage1.MessageParts,ListBox1.Items.Strings[xAnexo])
;
************************
FIM DO ERRO
************************
IdPOP31.Host:=edtPop.text; //host pop3
IdPOP31.Username:=edtUser.text;
IdPOP31.Password:=edtSenha.text;
IdSMTP1.Host:=edtSmtp.Text; //host smtp
IdSMTP1.Username:=edtUser.Text;
IdSMTP1.Password:=EdtSenha.text;
try
IdPOP31.Connect;
IdSMTP1.Connect
except
IdSMTP1.SASLMechanisms.Add();
end;
try
IdSMTP1.send(IdMessage1);
finally
IdSMTP1.Disconnect;
IdPOP31.Disconnect;
end;
end; //fim do envio de mensagem
--
<<<<< 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
