Newsgroup: it.comp.lang.delphi
Titolo: Spedire Email tramite api

Se devo spedire una email tramite shellexecute, come posso passare a questa
funzione il testo del programma da eseguire parecchio lungo?
Esempio:
"mailto ute...@dominio.tld?subject=testomoltolungo&body=testomoltolungo "
Quando eseguo questa prova delphi risponde che la variabile di tipo pchar
(argomento di shellexecute) non puo' superare 255 caratteri.
grazie

eccoti un esempio che uso sempre e non mi ha mai deluso
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ShellAPI,
  StdCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
Procedure InviaEMail ( const Indirizzo, IndirizziCC, Oggetto, Testo:
string);
Var
  Comando: String;
Begin
  Comando := 'mailto:' + Indirizzo + '?subject=' + Oggetto + '&cc=' +
IndirizziCC + '&body=' + Testo;
  If (ShellExecute(0, 'open', PChar(Comando), '', '', SW_SHOWNORMAL) <= 32)
    Then
    ShowMessage('Errore nell''invio della e-mail.');
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
  InviaEMail ( Edit1.Text,'Indir...@acui.spedire', 'Oggetto della
e-mail', 'Testo della e-mail');
end;
end.
saluti
--
                \ | /
             ( @ @ )
--------oOO-(_)-OOo--------
`·.¸¸.·´¯`JOJOBA´¯`·.¸¸.·´
-- ooooO--------Ooooo-----
__________________________________________________________________ Vincenzo
Di Falco Jojoba ICQ#: 129511893 Current ICQ status: + More ways to contact
me __________________________________________________________________

Ti ringrazio.
Questa e' la versione deludente del tuo esempio.
Ho solo cambiato il corpo del messaggio in un corpo un po' piu' grande.
Cosa ne pensi?
Ciao
Geppetto
________________________
unit Unit1;
interface


var
  Form1: TForm1;
implementation
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  InviaEMail ( Edit1.Text,'ute...@dominio.tld', 'prova da programma',
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923 %0D%0a'+
   'il testo deve essere molto lungo e non deve dare errori di sorta con
numeri 32498234923'   );
end;
end.

Ok
Se hai altri problemi contattami.
"
vidi...@hotmail.com
"
--------------------------------
Inviato via 
http://usenet.libero.it