mailto Delphi

[Alex711]

Здравствуйте, открыть почтовую программу по умолчанию можно так:

ShellExecute(application.Handle,'Open','mailto:email@emale.ru',Nil,Nil,SW_SHOWDEFAULT);

А можно как нибудь вместо email@emale.ru вставить e-mail из Edit или из переменной?

[evg_m]

var
  s: string;
// на выбор заполняем 
s:=Edit1.text;
s:='mailto:' +Edit1.Text;
s:=format('mailto:%s', [edit1.text]);
// и делаем 
ShellExecute(..., Pchar(s), ...);

и как раз получилось

или из переменной?

[p51x]

Так вставляйте. Это ж обычная конкатенация строк, типа 'mailto:' + Edit1.Text

[Alex711]

Спасибо evg_m, помогло.

[Alter]

Есть некоторый минус в этом способе. Если не стоит в системе По умолчанию почтовая программа, то может бесконечно открываться InternetExplorer. Помогало только "taskkill /im iexplore.exe /f"
Для исправления этой возможной проблемы использовал программу для установки По умолчанию почтового клиента на ПК где будет использоваться запуск с 'mailto:':
DefaultMail

[northener]

Сообщение от Alter

использовал программу для установки По умолчанию почтового клиента на ПК где будет использоваться запуск с 'mailto:':

Не совсем понятно зачем устанавливать "почтовую программу по умолчанию" на чужом компьютере.
Зачем нам дано MAPI?

[Black Fregat]

Сообщение от northener

Зачем нам дано MAPI?

MAPI просто вызывает почтовую программу, которая прописана в системе "по умолчанию".
Если этим никто не озаботился, запустится какой-нибудь Outlook и потребует начать его настройку.

[northener]

Сообщение от Black Fregat

MAPI просто вызывает почтовую программу, которая прописана в системе "по умолчанию".

Вообще говоря программе не требуется никакой сторонний почтовый клиент вообще. Она сама может быть SMTP-клиентом или SMTP-сервером.