Rs... ele não tava mandando anexos para a lista.. ele quer mandar anexos via email pela aplicação dele...
Acho que vc não leu o email por inteiro =) []'s Eric D. - Desenvolvimento e Soluções de Tecnologia [EMAIL PROTECTED] "Talk is cheap, show me the code..." ----- Original Message ----- From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Monday, January 08, 2007 9:16 AM Subject: Re: [delphi-br] ENVIO DE EMAIL 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 [As partes desta mensagem que não continham texto foram removidas]