Pedro, a lista não aceita anexos.
Sds.
>From: "Pedro" <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: <delphi-br@yahoogrupos.com.br>
>Subject: Re: [delphi-br] ENVIO DE EMAIL
>Date: Mon, 8 Jan 2007 08:11:00 -0300
>
>Caro Rubem, os anexos que estou mandando são pequenos. Quanto ao servidor,
>quando mando via outlook, são enviados sem problema algum.
>
>Obrigado pela dica, mas creio que não é nenhum destes motivos.
>
>Continuo no aguardo de todos e um grande abraço.
>
>Pedro - Desenvolvimento
>
> 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
>
>
>
>
>
>
>------------------------------------------------------------------------------
>
>
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.5.432 / Virus Database: 268.16.7/619 - Release Date: 7/1/2007
>18:29
>
>
>
>[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
