![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
![]() hola, yo tengo delphi 6 enterprise y este codigo no me funciona, existe algo diferente para esta version o las clases no funcionan aqui?
|
#2
|
|||
|
|||
Cita:
![]() ![]() |
#3
|
|||
|
|||
Enviar archivos adjuntos
que tal foro:
tengo un problema al tratar de enviar los archivos adjuntos, uso delphi 2009 y componentes indy 10.2 o los que vienen por default si envia el ccorreo y todo, pero los archivos que llegan adjuntos vienen con extensión .dat, y eso es una lata, no se si a alguien ya le paso y que pudiera darm eun pocco de luz al respecto. añado mi codigo para enviar los correos: with IdMessage do begin Body.Assign(dbMemo1.Lines); From.Text := UserEmail; ReplyTo.EMailAddresses := UserEmail; Recipients.EMailAddresses := edtemailcte.Text; { To: header } Subject := UserName; { Subject: header } //Priority := TIdMessagePriority(cboPriority.ItemIndex); { Message Priority } //CCList.EMailAddresses := edtCC.Text; {CC} //BccList.EMailAddresses := edtBCC.Text; {BBC} //if chkReturnReciept.Checked then // begin {We set the recipient to the From E-Mail address } // ReceiptRecipient.Text := From.Text; // end //else // begin {indicate that there is no receipt recipiant} ReceiptRecipient.Text := ''; // end; end; {authentication settings} // case SmtpAuthType of // 0: idSMTP.AuthType := atNone; // 1: idSMTP.AuthType := atDefault; {Simple Login} //end; idSMTP.Username := SmtpServerUser; idSMTP.Password := SmtpServerPassword; {General setup} idSMTP.Host := SmtpServerName; idSMTP.Port := SmtpServerPort; {now we send the message} idSMTP.Connect; try idSMTP.Send(IdMessage); finally idSMTP.Disconnect; MessageDlg('Correo enviado satisfactoriamente',mtInformation,[mbOk],0); end; |
#4
|
||||
|
||||
Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración
![]() Has incumplido un montón de normas de los foros, es normal, no lo sabías, por eso te indico que leas nuestra guía de estilo ![]() Y después crea un hilo nuevo con tu duda, le pones un título descriptivo y explicas lo más detalladamente tu problema. Y recuerda poner los tags al código fuente, ejemplo: ![]() Gracias ![]() Cita:
|
#5
|
|||
|
|||
muy buenas, en el ejemplo primero al copiarlo en delphi 2010 me sale:
undeclare identifier TIdAttachment y se subraya en rojo en esta linea TIdAttachment.Create(mail.MessageParts, 'C:\adjunto.txt'); ¿que ocurre? ¿me falta algo? gracias |
![]() |
|
|
![]() |
|