Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

           Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
           И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - https://clck.ru/fCqwP

Ответ
 
Опции темы Поиск в этой теме
Старый 10.11.2011, 13:50   #1
Fawas
Новичок
Джуниор
 
Регистрация: 09.11.2011
Сообщений: 3
По умолчанию отправка на майл

ето прога отправляет на мыло с 1 мемо... как зделать чтоб она отправляла мемо1 и мемо2 одновременоо
ну напр.
в мемо1 записиваю "привет"
в мемо 2 записиваю "пока"
и чтоб на майл пришло
"привет
пока"
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
     IdSmtp1.Host:= 'smtp.mail.ru';
     IdSmtp1.Port := 587;
     idSmtp1.Username := 'qqq';
     idSmtp1.Password := '123';
     IdMessage1.ContentType:='text/plain'; // Письмо в текстовом виде
     idMessage1.Body.Text := Memo1.Text;
     idMessage1.From.Text :='qqq@mail.ru';
     idMessage1.Recipients.EMailAddresses := 'www@mail.ru';
     idMessage1.Subject := 'Tect';
     idmessage1.ContentType:='text/html; charset=windows-1251';
     idmessage1.ContentTransferEncoding:='8bit';
     idSmtp1.Connect;
     if idSmtp1.Connected = TRUE then
     idSmtp1.Send(idMessage1);
     idSmtp1.Disconnect();
end;



end.
Fawas вне форума Ответить с цитированием
Ответ

           Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
           Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Майл и контакт не авторизуется cargo29 Безопасность, Шифрование 4 18.10.2011 21:58
Информирование о статусе контакта(алатернатива майл агенту) tokloo Общие вопросы Delphi 2 31.03.2011 09:45
не могу открыть две страницы майл ру и одноклассники brends95 Свободное общение 2 19.11.2010 10:32
майл брут betirsolt Работа с сетью в Delphi 9 11.10.2009 18:19