Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Вниз

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-ом - пожалуйста. Успехов!


 
Alik   (2003-01-17 00:06) [2]

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



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.036 c
4-17451
Cheboor
2003-01-19 10:45
2003.03.06
Как отследить запуск другого приложения?


6-17221
Anton
2003-01-16 17:27
2003.03.06
Как программно получить доступ к вложениям электронной почты


14-17275
Ketmar
2003-02-19 11:59
2003.03.06
что делать с головой?


14-17283
Труп Васи Доброго
2003-02-19 18:22
2003.03.06
Virtual Drive


1-16992
ZaM2000
2003-02-24 15:54
2003.03.06
Эмуляция DoubleClick на определенном item е ListView





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский