VPF::mail to with shellexecute how !!! - Форум программистов

huismori

Дата 28.1.2011, 22:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 125
Регистрация: 19.1.2010

Репутация: нет
Всего: нет

I am trying to send the richedit text to outlook with text attribitues but it gives error saying ;

incompitable types string and pwidechar !!!

Код


procedure TForm1.Button1Click(Sender: TObject);
var s: TStringStream ;
begin
  s:= TStringStream.Create();
  RichEdit1.PlainText:= False;
  RichEdit1.Lines.SaveToStream(s);
  ShellExecute(Self.Handle, nil, 'mailto:[email protected]' + '?Subject=Test&Body='+s.DataString, nil, nil, SW_NORMAL);
end;

Keeper89

Дата 28.1.2011, 22:29 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Конечно, а где оно, PChar?

Код


PChar('mailto:[email protected]' + '?Subject=Test&Body='+s.DataString)

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

huismori

Дата 29.1.2011, 12:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 125
Регистрация: 19.1.2010

Репутация: нет
Всего: нет

ok here the code i use but it doesnt send it with text attribitues !!! why is that ???

Код


function SendShellEmail( ARecipientEmail, ASubject, ABody : string ) : boolean; // Send an email to this recipient with a subject and a body
var
iResult : integer;
S       : string;
begin
  If Trim(ARecipientEmail) = '' then
    ARecipientEmail := 'mail';
    S := 'mailto:' + ARecipientEmail;
    S := S + '?subject=' + ASubject;
       If Trim(ABody) <> '' then
         S := S + '&body=' + ABody;
         iResult := ShellExecute( Application.Handle,'open', PChar(S), nil, nil, SW_SHOWNORMAL);
         Result := iResult > 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var s: TStringStream ;
begin
  s:= TStringStream.Create();
  RichEdit1.PlainText:= False;
  RichEdit1.Lines.SaveToStream(s);
  SendShellEmail('[email protected]','Hello',s.DataString);
end;

outlook body is like that !!!

Цитата

{\rtf1\ansi\ansicpg1254\deff0\deflang1055{\fonttbl{\f0\fnil\fcharset162 Square721 BT;}}{\colortbl ;\red49\green106\blue197;}\viewkind4\uc1\pard\cf1\f0\fs44 RichEdit1\par\par}

Keeper89

Дата 29.1.2011, 14:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Ну а разве Outlook RTF понимает?

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Akella

Дата 29.1.2011, 14:42 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Думаю, что поймёт. Только нужно как-то аутлуку сказать, что это не текст, а форматированный текст.

huismori

Дата 29.1.2011, 14:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 125
Регистрация: 19.1.2010

Репутация: нет
Всего: нет

how can i make outlook to understand that it is a rtf text ?

Akella

Дата 29.1.2011, 16:44 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

You should send mail in HTML format

Добавлено через 14 минут и 12 секунд

Код


ABody := '<html> HTML TEXT WITH TAGS </html>';
S := S + '&body=' + ABody;
ShellExecute( Application.Handle,'open', PChar(S), nil, nil, SW_SHOWNORMAL);

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »