1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

Отправка почты

Тема в разделе "Delphi - программирование", создана пользователем Experimentator, 7 май 2011.

  1. Experimentator

    Репутация:
    0
    Регистрация:
    24 май 2008
    Сообщения:
    8
    Симпатии:
    0
    Отправляю письмо из RichEdit, оно достваляется но вместо русских симовлов стоят вопросы, перепробывал ставить charset и различные функции, здесь пересмотрел но ничего ненашел толкового, помогите очень сильно нада!!! :) :) :facepalm:
    Код:
    //Отправка письма
    form1.IdSMTP1.Host:='smtp.mail.ru';
    form1.IdSMTP1.Port:=587;
    form1.IdMessage1.Encoding:=meMIME;
    form1.IdMessage1.ContentType:= 'text/plain';
    form1.IdMessage1.ContentDisposition:= 'inline';
    form1.IdSMTP1.Username:='mymail';
    form1.IdSMTP1.Password:='myparol';
    form1.IdMessage1.Body.Text:=form1.richedit1.text;
    form1.IdMessage1.From.Text:='mymail@mail.ru';
    form1.IdMessage1.Recipients.EMailAddresses:=mail@mail.ru;
    form1.IdMessage1.Subject:='Привет';//
    
    form1.IdSMTP1.Connect;
    if form1.IdSMTP1.Connected = true then
    begin
    form1.IdSMTP1.Send(form1.IdMessage1);
    showmessage('Сообщение отправлено');
    form1.IdSMTP1.Disconnect();
    end else
    begin
    showmessage('Сообщение неотправлено');
    form1.IdSMTP1.Disconnect();
    end;
     
  2. sinkopa

    sinkopa Well-Known Member

    Репутация:
    0
    Регистрация:
    17 июн 2009
    Сообщения:
    344
    Симпатии:
    9
    Старая, заезженная тема... Повторяться чегото не хочется мне... а потому, почитайте вот тут пожалуйста:
    http://www.sql.ru/forum/actualthread.aspx?tid=669703
     
Загрузка...

Поделиться этой страницей