Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.06.2016, 14:06   #1
MaximusRS
 
Регистрация: 08.02.2011
Сообщений: 3
По умолчанию Synapse

Доброго времени суток! Подскажите как при работе с библиотекой Synapse
вставить картинку в тело письма(не вложением) делаю вот так:
Код:
var
  msg: TMimeMess;
  Mime: TMimePart;
  stream: TMemoryStream;
  sended: boolean;  i:integer;
begin
  with SMTPClient do
    begin
      TargetHost:=edHost.Text;
      TargetPort:=edPort.Text;
      UserName:=edLogin.Text;
      Password:=edPass.Text;
      AutoTLS:=useSSL.Checked;
    end;
  Msg:=TMimeMess.Create;
  stream := TMemoryStream.Create;
  stream.LoadFromFile('D:\1.jpg');
  try
    Msg.Header.From:=edMail.Text;
    Msg.Header.ToList.DelimitedText:='Ruslan';
    Msg.Header.Subject:=edTheme.Text;
    Mime := Msg.AddPartMultipart('mixed', nil);
    Msg.AddPartHTMLBinary(stream, 'picture1.jpg','picture1.jpg', mime);
    Msg.AddPartHTML(Mail.Lines, mime);
    Msg.EncodeMessage;
    if (SMTPClient.Login)and(SMTPClient.AuthDone) then
    begin
      if SMTPClient.MailFrom(Msg.Header.From, Length(Msg.Lines.Text)) then
      begin
        sended := SMTPClient.MailTo(edName.Text);
        if sended then
           sended := SMTPClient.MailData(Msg.Lines);
      end;
    if sended then
        ShowMessage('Письмо успешно отправлено')
    else
        ShowMessage('Во время отправки письма произошла ошибка');
    SMTPClient.Logout;
    end;
  finally
    Msg.Free;
  end;
end;
сам html к примеру:
Код HTML:
<html>
   <head>
   </head>
<body>
    <img src="cid:picture1.jpg" alt="">
</body>
</html>
thunderbird, outlook, mail отображают так как надо, но если отправить на gmail то картинка отображается как вложение, но при этом значок вложение как обычно на письме не стоит.

Что я делаю неправильно кто может помочь?
MaximusRS вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Synapse. HTTPSend Nugrom Общие вопросы Delphi 7 22.09.2014 22:19
synapse post ttp Общие вопросы Delphi 1 05.11.2012 13:54
Synapse. Авторизация ВК Afftar Работа с сетью в Delphi 10 18.05.2012 15:33
Не пашет synapse bulldog5293 Компоненты Delphi 0 21.10.2011 19:42
Synapse FanRa3 Общие вопросы Delphi 1 09.12.2010 21:06