Как отправить Email, используя почтовую программу по умолчанию

Советы » Почтовый клиент » Как отправить 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com