Что ещё надо добавить, что отправить письмо ?

← →
Filat © (2004-01-09 12:25) [0]

Подскажите, как доделать код, пожалста.
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;

Спасибо!

← →
Filat © (2004-01-09 15:52) [1]

Ну подскажите пожалуйста!

← →
csr (2004-01-09 17:26) [2]

Дак ты не вызываешь метод отправки!! Хелп -то читал?
IdSMTP1.Send(YourMessage);
Где YourMessage - экземпляр класса TidMessage ... Который естессно нужно создать и заполнить...

← →
Filat © (2004-01-09 18:53) [3]

csr - т.е.? Я же использую IdMess.

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

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

← →
Filat © (2004-01-10 09:25) [4]

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

← →
TriX © (2004-01-11 17:49) [5]

ОЧЕНЬ ПРОСТО
IdSMTP1.QuickSend();
В СКОБКАХ САМ ПОЙМЁШЬ
НУ БЫВАЙ ..

← →
Filat © (2004-01-12 16:34) [6]

TriX - Спасибо, незагадывая это то что надо ... :))))
... неужели ларчик так просто открывался ...
Получится, не получится скажу.
сенкс!

← →
Filat © (2004-01-13 10:28) [7]

TriX - огромное спасибо! Работает!

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

← →
Сенченко Андрей (2004-01-13 15:06) [8]

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

← →
csr (2004-01-14 11:20) [9]

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;

← →
csr (2004-01-14 11:24) [10]

Отвечаю на твои вопросы:

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

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

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

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

csr (14.01.04 11:24) [10]

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

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

← →
csr_ (2004-01-19 17:51) [12]

Удалено модератором

Что ещё надо добавить, что отправить письмо ? Найти похожие ветки