Благодаря вашему форуму разобрался с отсілкой мыла.
Програма пашет, только чтог пробывал.
Этот пример выдрал из хелпа., переве, програму сделал, а запустить не мог, узнал чото надо писать в поле хост и ИД теперь все вышло.[email protected]
Чтобы обновлять этот пример, Вы будете должны создать новое пустое приложение Delphi.
Разместите 5 TMemos, 8 TEdits, TListBox, 3 TButtons, TCheckBox, TNMSMTP, TRadioGroup, и TOpenDialog на форме.
Если Вы желаете маркировать контроль, они делают следующее:
Edit1: свойство Host
Edit2: Пользовательское ID
Edit3: PostMessage. Свойство даты
Edit4: PostMessage. FromAddress свойство
Edit5: PostMessage. FromName свойство
Edit6: PostMessage. LocalProgram свойство
Edit7: PostMessage. ReplyTo свойство
Edit8: PostMessage. Подчиненное свойство
Memo1: PostMessage .ToAddress свойство.
Memo2: PostMessage .ToBlindCarbonCopy свойство
Memo3: PostMessage .ToCarbonCopy свойство
Memo4: PostMessage .Body свойство
Memo5: Статус окна
ListBox1: PostMessage .Attachments свойство
Button1: кнопка Connect/Disconnect
Button2: кнопка SendMail
Button3: Очищает поля редактирования и параметры
CheckBox1:Устанавливает значение наборов свойства ClearParams
OpenDialog1: Добавляет файлы, чтобы прикрепить к E-Mail
RadioGroup1: Определяет, что файл кодирует метод **
** Добавить 2 элемента к RadioGroup1's: MIME и ПРОГРАММА UUENCODE
(В том заказе)
Вставьте следующий код в Button1's OnClick случай:
| Код | procedure TForm1.Button1Click(Sender: TObject);
begin
if NMSMTP1.Connected then
NMSMTP1.Disconnect
else
begin
NMSMTP1.Host := Edit1.Text;
NMSMTP1.UserID := Edit2.Text;
NMSMTP1.Connect;
end;
end;
|
Когда Button1 нажата, если NMSMTP1 связан как определено Connected property, называю Disconnect method. Если сейчас нет никакого подключения, свойство Host установлено на значение в Edit1, UserID property установлено на значение Edit2, и Connect method вызывают, чтобы соединиться с главным компьютером SMTP.
Вставьте следующий код в Button2's OnClick событие:
| Код |
procedure TForm1.Button2Click(Sender: TObject);
begin
if NMSMTP1.Connected then
begin
NMSMTP1.ClearParams := CheckBox1.Checked;
NMSMTP1.SubType := mtPlain;
case RadioGroup1.ItemIndex of
0: NMSMTP1.EncodeType := uuMime;
1: NMSMTP1.EncodeType := uuCode;
end;
NMSMTP1.PostMessage.FromAddress := Edit4.Text;
NMSMTP1.PostMessage.FromName := Edit5.Text;
NMSMTP1.PostMessage.ToAddress.Text := Memo1.Text;
NMSMTP1.PostMessage.ToCarbonCopy.Text := Memo3.Text;
NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := Memo2.Text;
NMSMTP1.PostMessage.Body.Text := Memo4.Text;
NMSMTP1.PostMessage.Attachments.Text := ListBox1.Items.Text;
NMSMTP1.PostMessage.Subject := Edit8.Text;
NMSMTP1.PostMessage.LocalProgram := Edit6.Text;
NMSMTP1.PostMessage.Date := Edit3.Text;
NMSMTP1.PostMessage.ReplyTo := Edit7.Text;
NMSMTP1.SendMail;
end
else
ShowMessage('You need to connect before you can send your message');
end;
|
Когда Button2 нажат, если NMSMTP1 gjlrk.xty, свойство ClearParams установлено на значение CheckBox1.Checked, и определяет, будут ли параметры PostMessage очищены после успешного SendMail или нет. Свойство SubType установлено в mtPlain, показывая, что посылаемое сообщение является простым текстом ASCII без специального форматирования. Свойство EncodeType установлено или на uuMime или на uuCode, в зависимости от того которій пункт в RadioGroup1 выбран. Свойство PostMessage содержит подсвойства, которые определяют сообщение E-Mail. FromAddress подсвойство установлено на адрес E-Mail, введенный в Edit4. FromName подсвойство установлено на название{имя}, введенное в Edit5. ToAddress подсвойство - TStringList, позволять множественным получателям сообщения, так что это - Текст, установлен на значение Memo1's Текстового свойства.
ToCarbonCopy и ToBlindCarbonCopy подсвойства - также TStringLists. Свойство ToCarbonCopy установлено на адреса, введенные в Memo3.Text, и ToBlindCarbonCopy свойство установлено на адреса, введенные в Memo2.Text. Тело подсвойства PostMessage содержит тело E-Mail, и установлено на значение Memo4.Text. Список файлов, которые находятся в ListBox1, установлен на подсвойство Attachments . Подчиненное подсвойство установлено на значение, введенное в Edit8.
LocalProgram подсвойство установлено на значение, введенное в Edit6. Подсвойство Даты установлено на значение, введенное в Edit3. Введенная дата будет сохранена в заголовке, даже если дата - не дата, а просто текст. ReplyTo подсвойство установлено на значение Edit7. Наконец, сообщение посылают с SendMail методом.
Если нет никакого подключения, в окне сообщений отображено, сообщение пользователю, что подключение обязано для того чтобіпосылать сообщение.
Вставьте следующий код в Button3's OnClick случай:
| Код |
procedure TForm1.Button3Click(Sender: TObject);
begin
NMSMTP1.ClearParameters;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Edit8.Clear;
Memo1.Clear;
Memo2.Clear;
Memo3.Clear;
Memo4.Clear;
Memo5.Clear;
ListBox1.Clear;
end;
|
Когда Button3 нажат, ClearParameters метод очищает параметры свойства PostMessage, и также очищает содержание входных полей на форме, чтобы получить новое почтовое сообщение.
Вставьте следующий код в ListBox1's событие OnKeyDown:
| Код |
procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_INSERT then
if OpenDialog1.Execute then
ListBox1.Items.Add(OpenDialog1.FileName);
if Key = VK_DELETE then
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;
|
Если клавиша Insert нажата, в то время как ListBox1 имеет фокус, OpenDialog1 отображается, и пользователь может выбрать файл. Если пользователь нажимает кнопку OK в Открытом Диалоге, имя файла добавляется к ListBox1's.
Если клавиша Delete нажата, в то время как ListBox1 имеет фокус, выбранное имя файла будет удалено из списка.
Вставьте следующий код в NMSMTP1's в событие OnAttachmentNotFound:
| Код |
procedure TForm1.NMSMTP1AttachmentNotFound(Filename: String);
begin
Memo5.Lines.Add('File attachment '+FileName+' not found');
end;
|
Если один из файлов, указанных в ListBox1 не существует, когда Button2 нажимается, вызывают событие OnAttachmentNotFound. В этом случае, окно состояния, Memo5, модифицировано, чтобы сообщить пользователю, что указанное вложение не было найдено, и какой файл не был найден.
Вставьте следующий код в NMSMTP1's событие OnAuthenticationFailed:
| Код |
procedure TForm1.NMSMTP1AuthenticationFailed(var Handled: Boolean);
var
S: String;
begin
S := NMSMTP1.UserID;
if InputQuery('Authentication Failed', 'Invalid User ID. New User ID: ', S) then
begin
NMSMTP1.UserID := S;
Handled := TRUE;
end;
end;
|
Если User ID, указанный непаравельно, или UserID свойство не введено, и User ID требуется, вызывают событие OnAuthenticationFailed. В этом случае, функция InputQuery используется, чтобы дать пользователю возможность исправить ошибку. Если пользователь вводит новый User ID, Обработанное свойство установлено на истину, и идентификация предпринята снова. Если пользователь только нажимает кнопку отмены, UserID свойство не сброшено, и исключение поднято.
Вставьте следующий код в NMSMTP1's событие OnConnect:
| Код |
procedure TForm1.NMSMTP1Connect(Sender: TObject);
begin
Memo5.Lines.Add('Connected');
end;
|
Когда соеденение установлено с главным компьютером SMTP, событие OnConnect уведомляет пользователя о подключении, добавляя строку, в Memo5.
Вставьте следующий код в NMSMTP1's событие OnSendStart:
| Код |
procedure TForm1.NMSMTP1SendStart(Sender: TObject);
begin
Memo5.Lines.Add('Sending Message');
end;
|
Когда сообщение собирается посылаться,вызывается событие OnSendStart }. В этом образце, Memo5 модифицирован, чтобы сообщить пользователю, что сообщение посылают.
Вставьте следующий код в NMSMTP1's событие OnEncodeStart:
| Код |
procedure TForm1.NMSMTP1EncodeStart(Filename: String);
begin
Memo5.Lines.Add('Encoding '+FileName);
end;
|
Если сообщение имеет прикрепленные файлы, когда они начинают кодироватся, вызывается событие OnEncodeStart. На этом этапе, Memo5 отображает название{имя} закодированного файла.
Вставьте следующий код в NMSMTP1's событие OnEncodeEnd:
| Код |
procedure TForm1.NMSMTP1EncodeEnd(Filename: String);
begin
Memo5.Lines.Add(FileName+' encoded');
end;
|
Если сообщение имеет прикрепленные файлы, когда они завершают кодирование, вызывается OnEncodeEnd событие. В этом образце, Memo5 отображает название{имя} файла, который закончил кодироватся.
Вставьте следующий код в NMSMTP1's событие OnFailure:
| Код |
procedure TForm1.NMSMTP1Failure(Sender: TObject);
begin
Memo5.Lines.Add('Message delivery failure');
end;
|
Если исходящее сообщение не сможет быть посланым, визывается событие OnFailure. В этом образце, Memo5 изменяется, чтобы сообщить пользователю о неудачи.
Вставьте следующий код в NMSMTP1's событие OnSuccess:
| Код |
procedure TForm1.NMSMTP1Success(Sender: TObject);
begin
Memo5.Lines.Add('Message sent successfully');
end;
|
Когда исходящее сообщение послали успешно,вызывается событие OnSuccess. Memo5 меняется, чтобы сообщить пользователю, что сообщение посылали успешно.
Вставьте следующий код в NMSMTP1's событие OnHeaderIncomplete:
| Код |
procedure TForm1.NMSMTP1.HeaderIncomplete(var handled: Boolean; hiType: Integer);
var
S: String;
begin
case hiType of
hiFromAddress:
if InputQuery('Missing From Address', 'Enter From Address: ', S) then
begin
NMSMTP1.PostMessage.FromAddress := S;
Handled := TRUE;
end;
hiToAddress:
if InputQuery('Missing To Address', 'Enter To Address: ', S) then
begin
NMSMTP1.PostMessage.ToAddress.Text := S;
Handled := TRUE;
end;
end;
end;
|
Если свойство PostMessage пропускает информацию, которая является для посланого успешно сообщения критической, вызывается событие, OnHeaderIncomplete. В этом примере, hiType параметр проверен, и пользователю дают возможность заполнить отсутствующую информацию. Если пользователь заполняет информацию, которая отсутствует, параметр Handled установливается не на TRUE, и програма придложит послать сообщение. Если пользователь нажимает кнопку отмены вместо того, чтобы ввести отсутствующую информацию, исключение поднято.
Вставьте следующий код в NMSMTP1's событие OnRecipientNotFound:
| Код |
procedure TForm1.NMSMTP1RecipientNotFound(Recipient: String);
begin
Memo5.Lines.Add('Recipient '+Recipient+' not found');
end;
|
Если один из получателей уходящего сообщения или в ToAddress, ToBlindCarbonCopy, или в полях ToCarbonCopy, как известны главному компьютеру SMTP как не существующие, вызывается событие OnRecipientNotFound. В этом примере, Memo5 модифицирован, чтобы сообщить пользователю, что получатель не найден. Если только один получатель определен, исключение поднято, потому что никакие правильные{допустимые} получатели не были найдены для уходящего сообщения.
Описание Примера:
Когда это приложение выполнено, введите требуемую информацию в Окна редактирования и Записки. Для ToAddress, ToCarbonCopy, и полей TBlindCarbonCopy, множественные адреса могут быть введены, но они должны каждый находиться на отдельной строке (перевод каретки / корм строки между ними). Нажмите Button1, чтобы подключить и Button2, чтобы послать сообщение. Button3 используется, чтобы очистить входные поля, так что новое сообщение может быть введено. Щелкая Button1 второй раз разъединит от главного компьютера SMTP. |
Спасибо огромное!
). Соответвенно скачивать ты будешь тоже