Установка Synapse и отправка письма с вложением..
- Скачиваем исходники с http://synapse.ararat.cz/doku.php/download
- Копируем папку lib в расположение вашего проекта
- В свойствах проекта Lazarus: Проект-Параметры проекта-Пути-Другие модули добавляем путь куда положили содержимое lib.
На этом все. Теперь достаточно после uses добавлять необходимые для использования компоненты. Вот так например выглядит простейший пример отправки письма с вложением.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 |
function SendMail (Host, Subject, pTo, From , TextBody, HTMLBody, login,password,filename : string) : boolean; var Msg : TMimeMess; // сообщение StringList : TStringList; // содержимое письма MIMEPart : TMimePart; // части сообщения (на будущее) begin Msg := TMimeMess.Create; // создаем новое сообщение // IdealCharsets:=[CP1251]; // Msg.Header.CharsetCode:='CP1251'; StringList := TStringList.Create; try // Добавляем заголовки Msg.Header.Subject := Subject;// тема сообщения Msg.Header.From := From; // имя и адрес отправителя Msg.Header.ToList.Add(pTo); // имя и адрес получателя // создаем корневой элемент // MIMEPart := Msg.AddPartMultipart('alternative', nil); Msg.AddPartMultipart('', nil); if length(TextBody)=0 then // если формат HTML begin StringList.Text := HTMLBody; Msg.AddPartHTML(StringList, Msg.MessagePart); end else // если текстовый формат begin StringList.Text := TextBody; Msg.AddPartText(StringList, Msg.MessagePart); end; if filename<>'' then Msg.AddPartBinaryFromFile(filename,Msg.MessagePart); // Кодируем и отправляем Msg.EncodeMessage; // Отправляем. if smtpsend.SendToRaw(From,pTo,Host,Msg.Lines,login,password) then SendMail:=true else SendMail:=false; finally Msg.Free; StringList.Free; end; end; |