Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Что ещё надо добавить, что отправить письмо ? [D7, Win95/98, Win2k, WinXP]

Filat © (2004-01-09 12:25:00)
Подскажите, как доделать код, пожалста.
procedure TSetForm.SMailClick(Sender: TObject);
begin
IdSMTP1.Host:=RzEdit1.Text;
IdSMTP1.Port:=StrToInt(RzEdit7.Text);
IdSMTP1.Username:=RzEdit2.Text;
IdSMTP1.Connect;
With IdSMTP1 do
begin
IdMess.CharSet:=RzComboBox1.Text;
IdMess.From.Address:=RzEdit3.Text;
IdMess.Sender.Address:=RzEdit4.Text;
IdMess.Body.Text:=RzEdit5.Text;
end;
{Как отправить теперь e-mail?}
if IdSMTP1.Connected then
IdSMTP1.Disconnect;
end;

Спасибо!

csr_ (2004-01-19 17:51:00) [1]
Удалено модератором

Андрей Сенченко (2004-01-14 12:21:00) [2]
csr (14.01.04 11:24) [10]

1. Как тогда установить коировку писем?
TidMessage - > CharSet пишешь типа windows-1251

Тогда если не сложно и если оно есть - скажите как выглядит объявление кодировки KOI8-R

csr (2004-01-14 11:24:00) [3]
Отвечаю на твои вопросы:

1. Как тогда установить коировку писем?
TidMessage - > CharSet пишешь типа windows-1251

2. Как указать что формат письма должен быть текст или html?
TidMessage - > ContentType пишешь типа text/plain или text/html

Подставляй их в процедуру, что я выше постнул.

Ну все, удачи!

csr (2004-01-14 11:20:00) [4]
QuickSend() - для чайников! Ты не полностью контроллируешь поведение проги!!!
Короче, вот тебе простейшая маза. Юзай на здоровье!

uses
IdSMTP, IdMessage;

procedure SendMail(ASMTPHost, AFrom, ATo, AReplyTo, ASubject: string;
APriority: Integer; ACc, ABcc, Content: string; AWithRecipient: Boolean);
var
MsgSend: TIdMessage;
SMTP: TIdSMTP;

begin
MsgSend := TIdMessage.Create(nil);
SMTP := TIdSMTP.Create(nil);
try
with MsgSend do
begin
Body.Text := Content;
From.Text := AFrom;
ReplyTo.EMailAddresses := AReplyTo;
Recipients.EMailAddresses := ATo; { To: header }
Subject := ASubject; { Subject: header }
Priority := TIdMessagePriority(APriority); { Message Priority }
CCList.EMailAddresses := ACc; {CC}
BccList.EMailAddresses := ABcc; {BBC}
if AWithRecipient then
ReceiptRecipient.Text := From.Text {We set the recipient to the From E-Mail address }
else
ReceiptRecipient.Text := ''; {indicate that there is no receipt recipiant}
end;

SMTP.AuthenticationType := atNone;

//SMTP.Username := SmtpServerUser;
//SMTP.Password := SmtpServerPassword;

{General setup}
SMTP.Host := ASMTPHost;
SMTP.Port := 25;

{now we send the message}
SMTP.Connect;
try
SMTP.Send(MsgSend);
finally
SMTP.Disconnect;
end;
finally
MsgSend.Free();
SMTP.Free();
end;
end;

Сенченко Андрей (2004-01-13 15:06:00) [5]
IdMessage.CharSet

Вот только когда сам рыл это дело - кодировки KOI8-R например найти не смог. В хелпах предлагается только 2 примера :

property CharSet: string; Description CharSet is a String property that indicates the character set used for the message. Some common CharSet values include: US-ASCII ISO-8859-1

Filat (2004-01-13 10:28:00) [6]
TriX - огромное спасибо! Работает!

Но есть вопросики, в дополнение:
1. Как тогда установить коировку писем?
2. Как указать что формат письма должен быть текст или html?
В IdSMTP я не нашел куда можно подставлять параметры. По прежнему нужен IdMess?

Filat (2004-01-12 16:34:00) [7]
TriX - Спасибо, незагадывая это то что надо ... :))))
... неужели ларчик так просто открывался ...
Получится, не получится скажу.
сенкс!

TriX (2004-01-11 17:49:00) [8]
ОЧЕНЬ ПРОСТО
IdSMTP1.QuickSend();
В СКОБКАХ САМ ПОЙМЁШЬ
НУ БЫВАЙ ..

Filat (2004-01-10 09:25:00) [9]
Буквально вчера набрёл на статейку http://xatka.vov.ru/cgi-bin/read.pl?chapter=rartic&query=42&file=artic1.txt .
Очень интересная, но как теперь это сделать под D7 с компонентами IdSMTP и IdMessage?

Filat (2004-01-09 18:53:00) [10]
csr - т.е.? Я же использую IdMess.

IdMess.Body.Text:=RzEdit5.Text;
end;
IdSMTP1.Send(IdMess); добавил
if IdSMTP1.Connected then

при попытке отправить e-mail ошибка: Need RCPT (recipient).

csr (2004-01-09 17:26:00) [11]
Дак ты не вызываешь метод отправки!! Хелп -то читал?
IdSMTP1.Send(YourMessage);
Где YourMessage - экземпляр класса TidMessage ... Который естессно нужно создать и заполнить...

Filat (2004-01-09 15:52:00) [12]
Ну подскажите пожалуйста!

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »