Enviar correos y adjuntar archivos...

[Estuardo18]

Empezado por JELIRM

hola, yo tengo delphi 6 enterprise y este codigo no me funciona, existe algo diferente para esta version o las clases no funcionan aqui?

yo tambien tengo delphi 6 alguien nos puede ayudar?

[jimmy_aei]

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;

[Casimiro Noteví]

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

Empezado por superfile

ESTOY TRATANDO DE ENVIAR UN ARCHIVO POR CORREO CON DELPHI XE2 CON EL SIGUIENTE CODIGO Y ME GENERA UN ERROR
must issue a starttls command first
uses IdAttachmentFile;
procedure EnviarMensaje( sUsuario, sClave, sHost, sAdjunto, sAsunto, sDestino, sMensaje: String );
var
SMTP: TIdSMTP;
Mensaje: TIdMessage;
Adjunto: TIdAttachmentFile; //declaracion de la nueva variable
begin
SMTP := TIdSMTP.Create( nil );
SMTP.Username := sUsuario;
SMTP.Password := sClave;
SMTP.Host := sHost;
SMTP.Port := 587;//25;
//SMTP.AuthenticationType := atLogin;--indy9
SMTP.AuthType := satDefault;
// SMTP.AuthType := atlogin;
Mensaje := TIdMessage.Create( nil );
Mensaje.Clear;
Mensaje.From.Name := sDestino;
Mensaje.From.Address := sDestino;
Mensaje.Subject := sAsunto;
Mensaje.Body.Text := sMensaje;
Mensaje.Recipients.Add;
Mensaje.Recipients.Items[0].Address := sDestino;
if sAdjunto <> '' then
begin
if FileExists( sAdjunto ) then
// Adjunto := TIdAttachment.Create( Mensaje.MessageParts, sAdjunto ); --indy9
Adjunto := TIdAttachmentFile.Create( Mensaje.MessageParts, sAdjunto );
end
else
Adjunto := nil;
try
SMTP.Connect;
except
raise Exception.Create( 'Error al conectar con el servidor.' );
end;
if SMTP.Connected then
begin
try
SMTP.Send( Mensaje );
except
raise Exception.Create( 'Error al enviar el mensaje.' );
end;
try
SMTP.Disconnect;
except
raise Exception.Create( 'Error al desconectar del servidor.' );
end;
end;
if Adjunto <> nil then
FreeAndNil( Adjunto );
FreeAndNil( Mensaje );
FreeAndNil( SMTP );
Application.MessageBox( 'Mensaje enviado correctamente.',
'Fin de proceso',MB_ICONINFORMATION );
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
EnviarMensaje( '[email protected]', 'corazon12', 'smtp.live.com',
'C:\Temp\CFDI26.xml', 'Te envio mi documento',
'[email protected]', 'Adjunto archivo: factura' );
end;

[dandyuno]

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