Hola Foro!
Resulta que hice un programa para mandar mails, y quise añadirle la posibilidad de adjuntar archivos. Saqué las referencias de este foro como para guiarme.
No tengo ningún error. El problema se da cuando reviso mi correo. Recibo el archivo adjunto, pero con el nombre 'noname', sin extensión, y así se baja. Evidentemente es el archivo que adjunto, porque si adjunto un *.doc, bajo el 'noname' y lo abro con Word, y puedo ver el contenido sin problemas, igual con las imagenes y con los pdf.
Les paso el código para el envío:
Código Delphi
[-]
procedure TFormMensaje.ButtonEnviarClick(Sender: TObject);
begin
ProgressBar1.Visible := True;
IdSMTP.Host := EditSMTP.Text;
IdSMTP.Username := EditUsuario.Text;
IdSMTP.Password := EditPassword.Text;
if not IdSMTP.Connected then
IdSMTP.Connect;
IdMessage.From.Address := EditPara.Text;
IdMessage.From.Name := EditNombre.Text;
IdMessage.Body := MemoMensaje.Lines;
IdMessage.Subject := EditAsunto.Text;
IdMessage.Recipients.EMailAddresses := EditPara.Text;
IdSMTP.Send(IdMessage);
Application.MessageBox('Mensaje enviado.', 'Aviso', MB_OK + MB_ICONINFORMATION);
end;
Este es el código para adjuntar:
Código Delphi
[-]if OpenDialogAdjunto.Execute then
begin
LabelRuta.Caption := TIdAttachmentFile.Create(IdMessage.MessageParts, 'D:\Dibujo.jpg').FileName;
end;
¿Cómo puedo hace para que el archivo se adjunte con su nombre y extensión original?
Thanks in advance!