Как программа Delphi может отправлять электронную почту с вложениями через почтовый клиент DEFAULT?
В моей программе я создаю электронную почту для отправки с использованием установленного по умолчанию клиентского программного обеспечения электронной почты ».с машиной.
Я составил почтовый адрес, тему, многокомпонентное тело, и у меня есть несколько вложений.
Я почти получил это с помощью mailto и ShellExecute следующим образом:
Message := 'mailto:someone@somewhere.com'
+ '?subject=This is the subjectBehold Error Report'
+ '&body=This is line 1' + '%0D%0A'
+ 'This is line 2' + '%0D%0A'
+ 'This is line 3'
+ '&Attach=c:\file1.txt';
RetVal := ShellExecute(Handle, 'open', PChar(Message), nil, nil, SW_SHOWNORMAL);
if RetVal