please help !

iskam da izvikam default e-mail client-a kato kogato se otvori toi, to, subject i samia e-mail da budat vkarani. ima hutur nachin koito az otkrih -
...
var St:array [0..255] of char;
...
ShellExecute(handle, 'open', StrPCopy(St, 'mailto:'+EEmail.Text+' Subject&Body='+'text na buobshtenieto')
...
dotuk dobre, obache NE MOGA DA DAM PO NIKAKUV NACHIN CR/LF iliniakakuv line terminator!!! kakvo ne opitvah -  , a btw #13#10 ne raboti ???!!!!

kak da paste-na ili slozha mnogo-redovo suobshtenie v shibania e-mail client???

PLEASE HORA POMOGNETE, TRIAVA MI SPESHNO!!!!!


az sum ivo@beotela.com

Опитай по стандартния начин който дават в Delphi 6-

uses
SysUtils, Mapi, about, SHFolder;

{$R *.dfm}

resourcestring
SUntitled = 'Untitled';
SOverwrite = 'OK to overwrite %s';
SSendError = 'Error sending mail';

procedure TWin2kAppForm.FileSend1Execute(Sender: TObject);
var
MapiMessage: TMapiMessage;
MError: Cardinal;
begin
with MapiMessage do
begin
ulReserved := 0;
lpszSubject := nil;
lpszNoteText := PChar(RichEdit1.Lines.Text);// това можеш да го смениш и с
TStrings или Мемо
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;
lpOriginator := nil;
nRecipCount := 0;
lpRecips := nil;
nFileCount := 0;
lpFiles := nil;
end;

MError := MapiSendMail(0, Application.Handle, MapiMessage,
MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0);
if MError <> 0 then MessageDlg(SSendError, mtError, [mbOK], 0);
end;

Оставих ти отговор в "Програмисти", но може би не си го погледнал. Начинът по който викаш мейл клиента си е наред, но вместо #13#10 трябва да изплзваш символите %0D%0A като разделители за нов ред в тялото на съобщението. Пробвах го и си работи като слънце!

Успех!

Mixy