Das duas uma:
1) O servidor não aceita e-mail nos anexos, ou;
2) Se aceita, os anexos são muito grandes.
Informe-se com o provedor do servidor de e-mail.
Sds.
>From: "Pedro" <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: <delphi-br@yahoogrupos.com.br>
>Subject: [delphi-br] ENVIO DE EMAIL
>Date: Fri, 5 Jan 2007 18:06:41 -0300
>
>Pessoal, Feliz 2007 e um grande abraço para Todos.
>
>Como sempre, venho recorrer a ajuda de vocês.
>
>Estou usando a rotina abaixo para enviar email, com anexo, no Delphi 5.
>Quando não uso anexo, o email é enviado com sucesso mas quando anexo algum
>arquivo o email não chega ao destino.
>
>OBS: Ao executar o programa não é dado nenhum sinal de erro.
>
>Desde já agradeço a Todos
>
>ROTINA USADA:
>
>var inPos: Integer;
>begin
> IdSMTP.AuthenticationType := atlogin;//Conexão com autenticação
> IdSMTP.Host := TRIM(edtHost.Text) ; // 'smtp.diagramaba.com.br';
> IdSMTP.Password := 'pa3725'; //senha
> IdSMTP.Port := 25; //porta é sempre essa não mude isso
> IdSMTP.Username := '[EMAIL PROTECTED]';
>
> IdMessage.From.Name := TRIM(edtDE.Text); //
>'[EMAIL PROTECTED]';
> IdMessage.Recipients.EMailAddresses := TRIM(edtPara.Text); // EMAIL
>DESTINO
> IdMessage.CCList.EMailAddresses := TRIM(edtCC.Text);
> IdMessage.BccList.EMailAddresses := TRIM(edtBCC.Text);
>
> case cbPrioridade.ItemIndex of
> 0: IdMessage.Priority := mpHigh;
> 1: IdMessage.Priority := mpNormal;
> 2: IdMessage.Priority := mpLow;
> end;
>
> IdMessage.Subject := TRIM(edtAssunto.Text);
> IdMessage.Body.Clear;
> IdMessage.Body.Text := TRIM(mmTexto.Lines.Text);
>
> if cbConfirma.Checked then
> IdMessage.ReceiptRecipient.Text := TRIM(IdMessage.From.Text);
>
> for inPos := 0 to mmAnexos.Lines.Count - 1 do
> begin
> if TRIM(mmAnexos.Lines.Strings[inPos]) <> '' then
> TIdAttachment.Create(IdMessage.MessageParts,
>TFileName(TRIM(mmAnexos.Lines.Strings[inPos])));
> end;
>
> try
> IdSMTP.Connect;
> try
> IdSMTP.Send(IdMessage);
> finally
> IdSMTP.Disconnect;
> end;
> except
> On E: Exception do
> begin
> ShowMessage(E.Message);
> Exit;
> end;
> end;
> Application.MessageBox('Email enviado com sucesso!', 'Confirmação',
>MB_ICONINFORMATION + MB_OK);
>
>
>
>[As partes desta mensagem que não continham texto foram removidas]
>
_________________________________________________________________
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
