Hola de nuevo.
Este es mi código y funciona
Código Delphi
[-]
IdEnviar := TIdMessage.Create(Self);
TextoMensaje:=Texto+#13+#10+Firma+#13+#10+TablaDatos.FieldByname('TEXTOMAIL').Value;
IdEnviar.Body.Text := TextoMensaje;
IdEnviar.From.Address := CorreoPropio;
IdEnviar.From.Name := DlgPropiedades.NombreEmpresa;
IdEnviar.Subject := Subject;
TIdAttachmentFile.Create(IdEnviar.MessageParts, GetTempDir+'\DOCUMENTO.PDF');
ElDestinatario := IdEnviar.Recipients.Add;
ElDestinatario.Address := Correo;
If Copia<>'' then begin
ElDestinatario := IdEnviar.Recipients.Add;
ElDestinatario.Address := Copia;
end;
Bd.CierraTabla (TablaDatos);
Application.ProcessMessages ;
IdSMTP1.Host := Host;
IdSMTP1.UserName := UserId;
IdSMTP1.Password := Pass;
if Puerto<>0 then IdSMTP1.Port:= Puerto;
Try
IdSMTP1.Connect;
try
IdSMTP1.Send(idEnviar);
finally
end;
except
ShowMessage('¡ATENCION! Problema de conexion');
Close;
end;
IdSMTP1.Disconnect(true);
Mira a ver si puedes probar con esto.