|
Вопрос # 6 607/ вопрос решён / |
|
Доброго времени суток, уважаемые эксперты!
Для отправки сообщения использую IdSMTP (Версия Indy 10.5.9.0)
Тема письма от кого и текст приходят в кракозяблах (тема текст и письмо на украинском языке).
Приложение: Переключить в обычный режим- rocedure Tform1.SentMail(mes:Temailrecord);
- var i,colmail:integer;
- msg:TIdMessage;
- emailaddress:string;
- begin
- if ((mes.emailkid<>'') and (mes.emailparetts<>'')) then emailaddress:= mes.emailkid +',
'+mes.emailparetts
- else emailaddress:=
mes.emailkid+mes.emailparetts;
- if emailaddress<>'' then
- begin
- { // try
- //IdSMTP1.AuthType:=satDefault; }
- colmail:=ini.ReadInteger('mailSettings','emailcount',50);
- i:= emailcount div colmail + 1;
- {
- IdSMTP1.Host:='ssl://smtp.mail.ru';
//ini.ReadString('mailSettings','smtp'+inttostr(i),'smtp.mail.ru');
- IdSMTP1.Port:=465; // ini.ReadInteger('mailSettings','smtp'+inttostr(i),465);
-
- msg:=TIdMessage.Create(nil);
- msg.ContentType:='text/html';
- msg.CharSet:='windows-1251';
-
-
- msg.Body:=mes.emailtext;
- msg.Recipients.EMailAddresses:=emailaddress;
- //msg.IsEncoded:=True;
- {
-
-
- except
- on e:Exception do
- try }
-
- msg:=TIdMessage.Create(nil);
- Msg.ContentType:='text/html; charset=UTF-8;';
-
- msg.From.Address:=ini.ReadString('Mail','login'+inttostr(i),'sruru@mail.ru'); //}
-
-
-
- msg.Recipients.EMailAddresses:=emailaddress;
- msg.Body.Text:=mes.emailtext.Text;
- //msg.ContentType:='text/html;charset-windows-1251';
- msg.IsEncoded:=True;
-
- //}
- IdSMTP.Host:=ini.ReadString('mailSettings','smtp'+inttostr(i),'smtp.mail.ru');
- IdSMTP.Port:=ini.ReadInteger('mailSettings','smtp'+inttostr(i),465);
- IdSMTP.Username:=ini.ReadString('Mail','login'+inttostr(i),'sruru@mail.ru');
- IdSMTP.Password:=ini.ReadString('Mail','password'+inttostr(i),'Ckfdf!');
- IdSMTP.AuthType:=satDefault;
-
- IdSSLIOHandlerSocketOpenSSL.Destination := IdSMTP.Host+':'+IntToStr(IdSMTP.Port);
- IdSSLIOHandlerSocketOpenSSL.Host := IdSMTP.Host;
- IdSSLIOHandlerSocketOpenSSL.Port := IdSMTP.Port;
- IdSSLIOHandlerSocketOpenSSL.DefaultPort := 0;
- IdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvTLSv1;
- IdSMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;
- idSMTP.UseTLS := utUseImplicitTLS;
-
- try
-
- IdSMTP.Connect;
- except
-
-
-
- exit;
- end;
-
-
- IdSMTP.Send(msg);
-
-
- Application.ProcessMessages;
- idSMTP.Disconnect;
- {except
- on e:Exception do
- begin
- msg.Free;
- IdSMTP1.Disconnect;
- inc(emailcount);
- end;
- end;
- end; }
- end;
- end;
Примечание #1 (19 декабря 2015, 13:29): delphi xe3
 |
Вопрос задал: seryoga (статус: 1-ый класс)
Вопрос отправлен: 19 декабря 2015, 13:16
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 19 декабря 2015, 17:52; участников в обсуждении: 2.
|
DNK (статус: Студент), 19 декабря 2015, 13:29 [#1]:
Погода стояла прекрасная, приложение к вопросу было ужасное!
"Digital Networked Knight"
|
19 декабря 2015, 17:53: Статус вопроса изменён на решённый (изменил автор вопроса — seryoga)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
