Hola
desde delphi 7 hice lo sgte
puse el componente IdSMTP y el IdMessage que estan en la paleta Indy Clients e Indy Misc respectivamente
el codigo es el sgte
Código Delphi
[-]
With IdMessage Do
Begin
Body.Clear;
Body.Add(vMensaje.Text);
From.Text := direccion@dominio.com;
Recipients.EMailAddresses := vPara.Text;
Subject := vAsunto.Text;
Priority := TidMessagePriority(mpHighest);
TidAttachment.Create(IdMessage.MessageParts,Concat('ruta del archivo a adjuntar');
End;
With IdSMTP do
Begin
Username := nombre_usuario_cta_correo_saliente;
Password := clase_cuenta;
Host := 'servidor smtp';
Port := 25;
try
Connect;
Try
Send(IdMessage);
Finally
Disconnect;
End;
ShowMessage('Se envio correo en forma correcta');
Except
On E: EIdProtocolReplyError Do
ShowMessage('E-Mail no se ha podido enviar');
On E: EFOpenError Do
Begin
ShowMessage('E-Mail no se ha podido enviar' + #13 +
'Fichero Adjunto desconocido o erróneo.');
end;
On E: EIdSocketError Do
Begin
ShowMessage('E-Mail no se ha podido enviar'+ #13 +
'Host desconocido o incorrecto.');
end
Else
ShowMessage('Fallo en el envio de email');
End;
If Connected Then Disconnect;
End;
espero que te sirva