Форум: "Сети";
Текущий архив: 2011.01.09;
Скачать: [xml.tar.bz2];
ВнизICS. Отправка письма Найти похожие ветки
← →
Kirill © (2009-01-29 14:52) [0]Помогите, пожалуйста. Пытаюсь отправить письмо, но получатель его не может прочитать.
var msgtext : string;
begin
csmtp.Port := "smtp";
csmtp.AuthType := smtpAuthLogin;
csmtp.RcptName.Clear;
csmtp.HdrSubject := AnsiToUnicode("Тест");
csmtp.CharSet := "UTF-8";
csmtp.CodePage := 65001;
csmtp.HdrPriority := smtpPriorityHighest;
csmtp.DefaultEncoding := smtpEncBase64;
csmtp.ContentType := smtpPlainText;
msgtext := AnsiToUnicode("Тестовое письмо с помошью ICS "#13#10"This test message with ICS");
csmtp.MailMessage.Add(msgtext);
csmtp.Host := "127.0.0.1";
csmtp.Username := "robot";
csmtp.Password := "robot";
csmtp.RcptNameAdd("Root <root@localhost>","","");
csmtp.FromName := "Robot <robot@localhost>";
//csmtp.HdrCc := "Admin <admin@localhost>";
csmtp.HdrTo := "Root <root@localhost>";
csmtp.HdrFrom := csmtp.FromName;
csmtp.ConnectSync;
csmtp.EhloSync;
csmtp.AuthSync;
csmtp.VrfySync;
csmtp.MailSync;
csmtp.QuitSync;
end;
Received: from [127.0.0.1] by master
(ArGoSoft Mail Server Plus for WinNT/2000, Version 1.8 (1.8.8.3)); Thu, 29 Jan 2009 13:41:02 +0200
From: Robot <robot@localhost>
To: Root <root@localhost>
Subject: РўРчС_С"
Sender: Robot <robot@localhost>
Mime-Version: 1.0
Content-Type: text/plain; charset="utf-8"
Date: Thu, 29 Jan 2009 13:41:02 +0200
X-Priority: 1
Priority: urgent
X-MSMail-Priority: High
Message-ID: <20090129114102140.76C82E250E3922A2@master>
X-Mailer: ICS SMTP Component V6.18
0KLQtdGB0YLQvtCy0L7QtSDQv9C40YHRjNC80L4g0YEg0L/QvtC80L7RiNGM0Y4gSUNTIA0KVGhp
cyB0ZXN0IG1lc3NhZ2Ugd2l0aCBJQ1MNCg==
Заголовок нормально выглядит, а текст не декодируется.
Как правильно закодировать текст, чтобы он нормально декодировался?
← →
Kirill © (2009-01-29 15:12) [1]Сделал так... Заработало... Хотелось бы с другими режимами кодировки.
var msgtext : string;
begin
csmtp.Port := "smtp";
csmtp.AuthType := smtpAuthLogin;
csmtp.RcptName.Clear;
csmtp.HdrSubject := AnsiToUnicode("Тест");
csmtp.CharSet := "UTF-8";
csmtp.CodePage := 65001;
csmtp.HdrPriority := smtpPriorityHighest;
csmtp.DefaultEncoding := smtpEnc8bit;
csmtp.ContentType := smtpPlainText;
msgtext := AnsiToUnicode("Тестовое письмо с помошью ICS "#13#10"This test message with ICS");
csmtp.MailMessage.Add(msgtext);
csmtp.Host := "127.0.0.1";
csmtp.Username := "robot";
csmtp.Password := "robot";
csmtp.RcptNameAdd("Root <root@localhost>","","");
csmtp.FromName := "Robot <robot@localhost>";
csmtp.HdrTo := "Root <root@localhost>";
csmtp.HdrFrom := csmtp.FromName;
csmtp.ConnectSync;
csmtp.EhloSync;
csmtp.AuthSync;
csmtp.VrfySync;
csmtp.MailSync;
csmtp.QuitSync;
end;
← →
Anatoly Podgoretsky © (2009-01-29 16:05) [2]> Kirill (29.01.2009 14:52:00) [0]
Почему это "msgtext := AnsiToUnicode", когда у тебя utf-8
← →
Kirill © (2009-01-29 17:36) [3]
> Почему это "msgtext := AnsiToUnicode", когда у тебя utf-8
Потому что я текст ввел в Ansi. Или CG2009 уже Unicode?
В любом случае ни с функцией, ни без - прочитать не смог пока не сделал 8битовый заголовок
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2011.01.09;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c