На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Главная » 2013»Февраль»28 » Отправка e-mail,используя почтовую программу поумолчанию, исходник
14:47
Отправка e-mail,используя почтовую программу поумолчанию, исходник
Как отправить email, используя почтовую программу поумолчанию
Код
USES SHELLAPI;
Procedure AutoSendMail; Var EMailDestinationString,SubjectString,Line1String,Line2String,mailstring:String;
BEGIN EMailDestinationString:='gbamber@bamber.com'; SubjectString:='Message Subject'; Line1String:='This is the first line'; Line2String:='This is the second line';
// Можно использовать несколько адресов, разделяя их точкой с запятой // mailstring:='mailto:' + EMailDestinationString + '?subject=' + SubjectString + '&body='+ Line1String + '%0d' + Line2String;
if (ShellExecute(0,'open',PChar(mailstring),'','',SW_SHOWNORMAL)<=32) then ShowMessage('Auto method failed.'); END;
|