TNMSMTP

← →
fc_off © (2002-11-26 17:47) [0]

Товарищи Help!
Расскажите plz как работать с TNMSMTP а то очень охота письмо на mail из проги послать
и если можно расскажите о e-mail header-ах

← →
Itap © (2002-11-26 18:57) [1]

С этим проблем нет, проще не придумаешь, просто ставишь на форму компонент NMSMTP несколько TEdit (по мере необходимости, в них ты укажешь адрес получателя, отправителя, hosta и прочей муры, либо можешь указать их в тексте программы), вот кусок из одной моей программы, ты знаешь, поройся в инете, про этот компонент и про отправку писем с помощью этого компонента очень много написано:

procedure TForm1.Button1Click(Sender: TObject);
begin
NMSMTP1.Host := "mail.abc.com"; {адрес SMTP сервера (или IP-Адресс) здесь ты укажешь хост с которого ты посылаешь письмо, думаю тут вопросов не возникнет, кстати, можешь для ввода host-а поставить на форму Edit, и указать проге этот edit}

NMSMTP1.Port := 25; {Порт SMTP сервера (по стандарту RFC 821 равен 25) здесь оставь как есть}
if NMSMTP1.Connected then
NMSMTP1.Disconnect; {Отключение от сервера}
NMSMTP1.Connect; {Подключение к SMTP серверу}
With NMSMTP1 do
begin
Charset := "windows-251"; {Кодировка письма. я советую оставить эту кодировку, хотя ты можешь поставить по вкусу}
PostMessage.FromAddress:=Edit52.text ; {Отправитель письма}
PostMessage.ToAddress.Text:=Edit51.Text; {Получатель письма}
PostMessage.Body.Text:=RichEdit1.Text; {Текст письма}
SendMail; {Отправляем письмо}
end;
{Проверяем состояние подключения}
if NMSMTP1.Connected then
NMSMTP1.Disconnect; {Отключение от сервера}
Label54.Visible:=true;
Label54.Caption:="Документ отправлен";
end;

Последние две строчки с label-ами можешь убрать
Причём заметь, я посылал текст который находился у меня в RichEdit. В принципе всё просто, и посмотри в инете, максимум через 10 минут прибывание в инете, тебе всё станет понятно.
Кстати, хочу сказать, что в 4-ых Delph-ях кодировку текста менять не получится, а в 6-ом - пожалуйста. Успехов!

Вот незадача, у меня на строчке With NMSMTP1 do все время какая-то ошибка и говорит: Autorization failed, что делать?

TNMSMTP Найти похожие ветки