Buenos dias a tod@s.
Lo primero de todo desearos felices fiestas.
A ver si puede alguien ayudarme, os comento lo que me pasa.
Estoy intentado mandar email con Thunderbird desde una aplicación hecha con delphi 7.
Si en windows xp, pulso inicio, ejecutar, y pego:
Código:
thunderbird -compose to='destino@dominio.com',cc='copia@dominio.com',subject="Pruebas Thunderbird",body="Mensaje de prueba Thunderbird", attachment='C:\imagen.jpg'
Funciona perfectamente, me abre la pantalla para enviar el mail.
Ahora bien,
he hecho una funcion que me genera esa linea de comando, pero falla al ejecutarla.
Código Delphi
[-]procedure TForm1.Enviar;
var
directori:string;
cadena:string;
cad:PAnsiChar;
begin
directori:='C:';
cadena:='thunderbird -compose to=';
cadena:=cadena+chr(39)+ecuenta.text+chr(39);
if Ecopia.Text<>'' then
cadena:=cadena+',cc='+chr(39)+ecopia.text+chr(39);
cadena:=cadena+',subject="'+editasunto.text+'"';
if Memo1.Text<>'' then
cadena:=cadena+',body="'+Memo1.Text+'"';
if editfichero.Text<>''then
cadena:=cadena+',attachment='+chr(39)+directori+'\'+editfichero.text;
if(ckAdjunto2.Checked)then
begin
cadena:=cadena+','+directori+'\'+Fichero2.Text+chr(39);
end
else if editfichero.Text<>'' then
cadena:=cadena+chr(39);
cad:=PChar(cadena);
if ShellExecute(Handle, 'open', cad, nil, nil, SW_SHOWNORMAL)<= 32 Then
MessageDlg('Error al enviar',mtError,[mbok],0);
end;
Siempre da error al enviar. La linea se genera bien, porque he probado a escribirla en un memo antes de ejecutarla, y pegarla manualmente en inicio, ejecutar, y asi si que funciona.
Otra prueba que he hecho es entrar en la consola msdos, Inicio->ejecutar->escribir cmd y pulsar enter. Una vez alli escribir manualmente la instruccion, pero también falla, dice:
Código:
"Thunderbird" no se reconoce como un comando interno o externo, programa o archivo por lotes ejecutable.
Espero podais ayudarme, esto me trae de cabeza.
Saludos y gracias por todo.