mailto link

← →
WondeRu © (2006-03-30 09:05) [0]

Подскажите, пожалуйста, как указать русскую тему сообщения в ссылке mailto?
Делаю следующее:
mailto:info@mail.ru?subject=Тема письма
но принажатии на ссылку, в оутлуке в поле темы появляется строка вида:
%C2%EE%EF%F0%EE%F1%EF%

← →
КиТаЯц © (2006-03-30 09:41) [1]

Так напиши в виде
mailto:info@mail.ru?subject=%C2%EE%EF%F0%EE%F1%EF%

будет появляться
Тема письма

:)

← →
WondeRu © (2006-03-30 11:39) [2]

так и сделал)
нашел даже визард подобной мути)
http://www.cmg02.com/cg2/mailto.htm

← →
КиТаЯц © (2006-03-30 12:08) [3]

Держи, как замляку дарю :)

function StringReplaceAll (Text, Chto, Chem: string): string; var IsPos : integer; begin if (not(Chto = Chem)) then begin while pos(Chto, Text) > 0 do begin IsPos := pos(Chto, text); delete (Text, IsPos, length(Chto)); insert (Chem, Text, IsPos); end; end; result := Text; end; function UrlString(InText: string): string; begin result:= InText; result:= StringReplaceAll(result, _ , "%20"); result:= StringReplaceAll(result, "А", "%C0"); result:= StringReplaceAll(result, "Б", "%C1"); result:= StringReplaceAll(result, "В", "%C2"); result:= StringReplaceAll(result, "Г", "%C3"); result:= StringReplaceAll(result, "Д", "%C4"); result:= StringReplaceAll(result, "Е", "%C5"); result:= StringReplaceAll(result, "Ж", "%C6"); result:= StringReplaceAll(result, "З", "%C7"); result:= StringReplaceAll(result, "И", "%C8"); result:= StringReplaceAll(result, "Й", "%C9"); result:= StringReplaceAll(result, "К", "%CA"); result:= StringReplaceAll(result, "Л", "%CB"); result:= StringReplaceAll(result, "М", "%CC"); result:= StringReplaceAll(result, "Н", "%CD"); result:= StringReplaceAll(result, "О", "%CE"); result:= StringReplaceAll(result, "П", "%CF"); result:= StringReplaceAll(result, "Р", "%D0"); result:= StringReplaceAll(result, "С", "%D1"); result:= StringReplaceAll(result, "Т", "%D2"); result:= StringReplaceAll(result, "У", "%D3"); result:= StringReplaceAll(result, "Ф", "%D4"); result:= StringReplaceAll(result, "Х", "%D5"); result:= StringReplaceAll(result, "Ц", "%D6"); result:= StringReplaceAll(result, "Ч", "%D7"); result:= StringReplaceAll(result, "Ш", "%D8"); result:= StringReplaceAll(result, "Щ", "%D9"); result:= StringReplaceAll(result, "Ь", "%DA"); result:= StringReplaceAll(result, "Ы", "%DB"); result:= StringReplaceAll(result, "Ъ", "%DC"); result:= StringReplaceAll(result, "Э", "%DD"); result:= StringReplaceAll(result, "Ю", "%DE"); result:= StringReplaceAll(result, "Я", "%DF"); result:= StringReplaceAll(result, "а", "%E0"); result:= StringReplaceAll(result, "б", "%E1"); result:= StringReplaceAll(result, "в", "%E2"); result:= StringReplaceAll(result, "г", "%E3"); result:= StringReplaceAll(result, "д", "%E4"); result:= StringReplaceAll(result, "е", "%E5"); result:= StringReplaceAll(result, "ж", "%E6"); result:= StringReplaceAll(result, "з", "%E7"); result:= StringReplaceAll(result, "и", "%E8"); result:= StringReplaceAll(result, "й", "%E9"); result:= StringReplaceAll(result, "к", "%EA"); result:= StringReplaceAll(result, "л", "%EB"); result:= StringReplaceAll(result, "м", "%EC"); result:= StringReplaceAll(result, "н", "%ED"); result:= StringReplaceAll(result, "о", "%EE"); result:= StringReplaceAll(result, "п", "%EF"); result:= StringReplaceAll(result, "р", "%F0"); result:= StringReplaceAll(result, "с", "%F1"); result:= StringReplaceAll(result, "т", "%F2"); result:= StringReplaceAll(result, "у", "%F3"); result:= StringReplaceAll(result, "ф", "%F4"); result:= StringReplaceAll(result, "х", "%F5"); result:= StringReplaceAll(result, "ц", "%F6"); result:= StringReplaceAll(result, "ч", "%F7"); result:= StringReplaceAll(result, "ш", "%F8"); result:= StringReplaceAll(result, "щ", "%F9"); result:= StringReplaceAll(result, "ъ", "%FA"); result:= StringReplaceAll(result, "ы", "%FB"); result:= StringReplaceAll(result, "ь", "%FC"); result:= StringReplaceAll(result, "э", "%FD"); result:= StringReplaceAll(result, "ю", "%FE"); result:= StringReplaceAll(result, "я", "%FF"); end;

Пример:
procedure TMainForm.AMailExecute(Sender: TObject); begin ShellExecute(handle,"OPEN" , PAnsiChar(UrlString("mailto:Автору проги<xxx@mail.ru>?subject=Касательно Вашей программы")), nil, nil, SW_SHOWNORMAL); end;

← →
КиТаЯц © (2006-03-30 12:10) [4]

Попроавочка...
"%20" это пробел. Убого, конечно, зато эффективно. :)

← →
Gero © (2006-03-30 12:12) [5]

> [3] КиТаЯц © (30.03.06 12:08)

О ужас.

Для этих целей существует IntToHex.

← →
КиТаЯц © (2006-03-30 12:37) [6]

> Gero © (30.03.06 12:12) [5]
>
> > [3] КиТаЯц © (30.03.06 12:08)
>
> О ужас.
>
>Для этих целей существует IntToHex.

Да знаю :)
Я же и пишу - "убого". Сто лет назад еще юнит накорябал, все не переделаю.

← →
calm © (2006-03-30 12:41) [7]

> О ужас.

Да ладно...
Ему далеко до парня, который написал фукнкцию для прибавления к переменным типа TDataTime нужного количества дней :)

← →
Calm © (2006-03-30 12:43) [8]

> нашел даже визард подобной мути)

Вот только с кириллицей он нифига не работает.

← →
WondeRu © (2006-03-30 16:46) [9]

Calm © (30.03.06 12:43) [8]
Вот только с кириллицей он нифига не работает.
работает! нажимает на кнопку генерации, появляется окошечко с ссылкой. потом копируем ссылку (я это в опере сделал) и все :)

работает! нажимает на кнопку генерации, появляется окошечко с ссылкой. потом копируем ссылку (я это в опере сделал) и все :)

Я даже нажимал в окошечке на эту самую ссылку. Ничего хорошего мой Outlook мне не показал, одни кракозябры.

HTTPEncode :)

calm © (30.03.06 16:56) [10]
Я даже нажимал в окошечке на эту самую ссылку. Ничего хорошего мой Outlook мне не показал, одни кракозябры.
аналогично и Зе_Бат 1,62 в строке темы иероглифы

кстати, да, в Опере работает, а в Эксплорере жопа(

mailto link Найти похожие ветки