VPF::Отсутствует название у аттача при отправке письма

M1ndAction

Дата 30.11.2010, 06:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 51
Регистрация: 19.1.2008

Репутация: нет
Всего: нет

Добрый день!

Отправляю письмо с помощью TidSmtp с прикрепленным файлом. Но при приеме письма файл без названия, поэтому почтовая программа сама назначает название (каждая по своему, проверял в MS Outlook, Google). Как исправить? smile

Код


function TSendData.SendMail(const Host, Password, Username, Recipient,
  FromAdres, Subject, MessageText: String): boolean;
var EMsg: TIdMessage;
    idSmtp: TIdSMTP;
begin
  result := false;
  idSmtp := TIdSMTP.Create(nil);
  idSmtp.Host:= Host;
  idSmtp.Password:= Password;
  idSmtp.Username:= Username;
  idSmtp.AuthType := satDefault;

  EMsg := TIdMessage.Create(idSmtp);

  try
    EMsg.CharSet := 'Windows-1251';
    EMsg.Subject := Subject;
    EMsg.ContentTransferEncoding  := '8bit';


    EMsg.Recipients.Add.Address :=Recipient;
    EMsg.From.Address := FromAdres;
    EMsg.Body.Text := MessageText;
    EMsg.Date := now;

    strStream.Position := 0;
    strStream.SaveToFile(ExtractFilePath(Application.ExeName)+'data.hrd');
    TIdAttachmentFile.Create(EMsg.MessageParts, ExtractFilePath(Application.ExeName)+'data.hrd');
    {with TIdAttachmentMemory.Create(EMsg.MessageParts, strStream) do
      Filename := 'data.hrd';}

    idSmtp.Connect;
    if idSmtp.Connected then
        try
          idSmtp.Send(EMsg);
          result := true;
        except
        end;
  finally
    idSmtp.Disconnect;
    idSmtp.Free;

    //EMsg.Free;
  end;
end;

Akella

Дата 7.12.2010, 15:55 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 4
Всего: 329

Поищи здесь мой пример. Там была точно такая же проблема. Там есть и код.
Проблема в кодировке имени файла.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »