if RadioButton1.Checked

then s:=s+'|'+'POP3'

else s:=s+'|'+'IMAP';

Form1.ListBox1.Items.Strings[i]:=s;

Form1.ListBox1.Items.SaveToFile(ExtractFilePath(ParamStr(0))+'emails.txt');

end

else ShowMessage('Одно из полей не заполнено!');

Break;

end;

end;

Close;

end;

end.

unit em;

interface

uses

inifiles, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient,

IdSMTP, ComCtrls, StdCtrls, Buttons, ExtCtrls, IdBaseComponent, IdMessage;

type

TForm3 = class(TForm)

MailMessage: TIdMessage;

SMTP: TIdSMTP;

AttachmentDialog: TOpenDialog;

ledHost: TLabeledEdit;

ledFrom: TLabeledEdit;

ledTo: TLabeledEdit;

ledCC: TLabeledEdit;

ledSubject: TLabeledEdit;

ledAttachment: TLabeledEdit;

Memo2: TMemo;

Label1: TLabel;

btnSendMail: TBitBtn;

Memo1: TMemo;

Button1: TButton;

LabeledEdit1: TLabeledEdit;

LabeledEdit2: TLabeledEdit;

procedure btnSendMailClick(Sender: TObject);

procedure SMTPStatus(ASender: TObject; const AStatus: TIdStatus;

const AStatusText: string);

procedure Button1Click(Sender: TObject);

private

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.btnSendMailClick(Sender: TObject);

begin

Memo1.Clear;

// установка SMTP

SMTP.Host:=ledHost.Text;

SMTP.Port:=25;

// установка сообщения

Smtp.AuthenticationType:=atLogin; // atNone

Smtp.Username:=LabeledEdit1.Text;

Smtp.Password:=LabeledEdit2.Text;

//

MailMessage.From.Name:=ledFrom.Text;

MailMessage.Subject:=ledSubject.Text; // тема

MailMessage.From.Address:=ledFrom.Text; // адрес отправителя

MailMessage.Recipients.EMailAddresses:=ledTo.Text+','+ledCC.Text; // получатель + копия

MailMessage.Body.Text:=Memo2.Text; // текст сообщения

if FileExists(ledAttachment.Text)

then TIdAttachment.Create(MailMessage.MessageParts,ledAttachment.Text);

// отправка почты

try

try

SMTP.Connect(1000);

SMTP.Send(MailMessage);

ShowMessage('Письмо отправлено!');

except on E:Exception do

begin

Memo1.Lines.Insert(0,'Статус отправки: ERROR - '+E.Message);

ShowMessage('Письмо не отправлено!');

end;

end;

finally

if SMTP.Connected

then SMTP.Disconnect;

end;

end;

procedure TForm3.SMTPStatus(ASender: TObject; const AStatus: TIdStatus;

const AStatusText: string);

begin

Memo1.Lines.Insert(0,'Статус отправки: '+AStatusText);

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

if AttachmentDialog.Execute

then ledAttachment.Text:=AttachmentDialog.FileName;

end;

end.

ПРИЛОЖЕНИЕ Б

Рисунок 1 - Вид экранной формы «Учет ходящих электронных писем»

Рисунок 2 - Вид экранной формы «Добавление»



Рисунок 3 - Вид экранной формы сообщения пользователю об ошибке при добавлении новой строки поключения, не со всеми введенными данными

Рисунок 4 - Вид экранной формы «Изменение»

Рисунок 5 - Вид экранной формы сообщения пользователю об ошибке при изменении существующей строки поключения, не со всеми введенными данными

Рисунок 6 - Вид экранной формы «Открыть».

Рисунок 7 - Вид экранной формы «Проверка почты».

Рисунок 8 - Вид экранной формы сообщения пользователю об ошибке при удачном подключении к серверу.

Рисунок 9 - Вид экранной формы сообщения пользователю о пустой папке «Входящие».

Рисунок 10 - Вид экранной формы «Входящие электронные письма».

Рисунок 11 - Вид печатной формы «Входящие электронные письма».

Речь на защиту диплома

Здравствуйте, уважаемая государственная аттестационная комиссия. Разрешите представить вашему вниманию дипломный проект на тему: «Разработка программы «Учет входящих электронных писем».

Целью данного дипломного проекта является разработка программы «Учета входящих электронных писем», обеспечивающей контроль за своевременностью обновления программного обеспечения. Программа предназначена для сбора, хранения и обработки информации о присланных электронных письмах об обновлениях. Разрабатываемая программа позволит: производить безошибочный учет всех электронных писем, содержащих сведения об обновлении, даст возможность формирования достоверной и полной информации обо всех клиентах, осуществивших обновления для программ ЕГРЮЛ и ЕГРИП .

После изучения предметной области, установили, что входной информацией является:

1) дата начала;

2) дата конца;

3) адрес электронной почты;

4) домен;

5) логин;

6) пароль;

7) протокол получения почты.

Где дата начала - дата, до которой должно быть произведено обновление клиентом ( указывается в письме ).

Дата конца - сегодняшняя дата.

Адрес почты - адрес электронного почтового «ящика», куда приходят письма с данными об обновлениях. Адрес «ящика» электронной почты состоит из двух частей, разделенных символом «@». Первая часть представляет из себя идентификатор почтового «ящика» (обычно называют «login» или «регистрационная запись»). Вторая часть - идентификатор Интернет - провайдера, предоставившего адрес (также называют «доменом»).

Адрес сервера входящей почты (сервер POP3) - пишется как: pop."домен". (Если, например, почтовый ящик зарегистрирован на сервере www.mail.ru, то адрес сервера входящей почты будет pop.mail.ru).

Логин - первая часть электронной почты («регистрационная запись»).

Пароль - пароль на вход в электронный «ящик».

Протокол (protocol) - стандарт, определяющий поведение функциональных блоков при передаче данных. Протокол задается набором правил взаимодействия функциональных блоков, расположенных на одном уровне; реализуется одной либо группой программ; описывает синтаксис сообщения, имена элементов данных, операции управления и состояния. (POP3 (Post Office Protocol version 3) - протокол, поддерживающий как прием, так и отправку сообщений электронной почты.)

Выходными данными являются:

1) автор письма;

2) nадрес почты;

3) тема письма;

4) сервер;

5) текст сообщения;

6) прикрепленный файл;

7) дата письма.

По требованию заказчика, программа должна выводить на экран списки данных о сотрудниках, совершивших своевременное обновление программ, а так выводить на печать отчет «Учет входящих электронных писем».

Разрабатываемая программа должна осуществлять:

- ввод и формирование исходных данных в программу;

- добавление, корректировку и удаление информации;

- установление связи с почтовым сервером;

- проверку наличия входящих сообщений, а так же их фильтрацию;

- вывод данных на экран и на твердые копии;

После анализа входных, выходных данных, а так же функциональных требований, была составлена структурно-функциональная схема программы.

Из схемы видно, что ввод (добавление) и формирование данных осуществляется посредством модуля ввода (добавления) и формирования, при чем ввод исходных данных осуществляется как через файл, так и через ручной ввод в программу. Входные данные поступают в модуль редактирования и поиска для осуществления функций изменения, удаления данных. Модуль учета по введенным данным устанавливает связь с почтовым сервером, осуществляет фильтрацию и передает данные в модуль сохранения. Модуль сохранения осуществляет функцию сохранения данных в файл (MS Excel). Модуль вывода осуществляет вывод требуемой информации на экран и на твердые копии.

После анализа работы всех модулей можно составить диаграмму потоков данных программы «Учет входящих электронных писем».

Поскольку разрабатываемая программа должна иметь дружественный интерфейс, разработана диаграмма состояний представленная на первом плакате. (рассказываешь 1му по плакату) Первое окно реализует ввод данных, а так же, при желании пользвателя, их загрузку, редактирование, удаление и добавление. Второе окно - установление связи с почтовым сервером для проверки писем. Далее следует инициализация выполнения. Четвертое определяет действия с результатом. (перестаешь рассказывать по плакату)

После проектирования программы, можно приступить к разработке и описанию алгоритма, представленного в пояснительной записке на страницах с 14 по 27.

На втором плакате представлена структурная схема управляющей программы.

*рассказываешь по 2му плакату *

После запуска программы пользователю предоставляется выбор дальнейших действий: ввод, сохранение, изменение, удаление данных. Модуль «учет входящих электронных писем» осуществляет соеденение с почтовым сервером по строкам подключения. Выбор сохранения, отмены вывода или печати вызывают соответствующие функции.

*переходишь к 3му плакату, рассказываешь по нему* -- если тут не «Добавить» то тогда это естественно не верно.

На третьем плакате представлена структурная схема функции «Добавить». На схеме видно, что после вызова функции, осуществляется проверка на достаточность данных, в зависимости от которой либо появляется сообщение пользователю «Введены не все значения», либо, в случае полноты данных, происходит добавление новой строки подключения к уже существующим.

*перестаешь рассказывать по 3му плакату*

Дружественный графический интерфейс разработан в среде программирования Borland Delphi 7, потому что, во-первых, в данной среде программирования намного легче создавать интерфейс приложения, чем в таких средах как Visual C++ или Visual FoxPro, т.к. от интерфейса зависит наглядность и быстрое освоение приложения, а, во-вторых, компилятор Delphi позволяет обеспечить высокую производительность, легкость разработки и быстрое время проверки готового программного блока.

Описание выбора языка программирования и сравнение его с несколькими остальными языками программирования высокого уровня приведено в ПЗ начиная со страницы 28.

Рассмотрим описание программы: технические характеристики программы и минимальную конфигурацию ПК.

Технические характеристики программы (читаешь прям с презентации)

Разработанная программа может быть реализована на IBM совместимом компьютере со следующей минимальной конфигурацией: (читаешь с презентации)

Также должны быть установлены MS Excel. Описание программы приведено в ПЗ начиная со страницы 31.

На этапе тестирования программы с помощью функциональных пар был выявлен ряд ошибок, которые были локализованы на этапе отладки. Функциональные пары и результаты тестирования приведены в подразделе ПЗ Описание отладки программы, который начинается со страницы 33.

Образцы выполнения программы.

При запуске программы показывается окно, представленное на рисунке 1. при добавлении новой строки подключения, появляется окно представленное на рисунке 2. Если для добавления новой строки введены не все значения, программа сообщит об этом пользователю. На Рисунке 4 показан вид экранной формы «Изменение» при изменении какой либо строки подключения. При вводе в форму «Изменение» не всех данных, программа опять же сообщит пользователю об ошибке - Рисунок 5. Рисунок 6 демонстрирует загрузку данных через уже созданный файл letters.txt После ввода входных данных, пользователь выбирает меню «почта» - «проверка почты», после чего программа показывает пользователю результат выполнения проверки (рисунок7). В случае, если данные строки подключения не верны , пользователю выдастся сообщение об ошибке (рисунок 8). Если же подключение произошло, но в папке «Входящие» нет ни одного письма - пользователь так же будет уведомлен.(рисунок 9)

В случае когда соединение установлено, и в папке «Входящие» есть письма, программа осуществляет фильтрацию и выдает пользователю список писем. При желании пользователь может экспортировать данные в эксель. (рисунок 10, 11)

Подробная инструкция пользователя по работе с программой приведена на страницах 41 по 51.

Экономическая эффективность - рассказываешь только основное, типа затраты на расходные материалы составили столько то (см презентацию), основная плата разработчиков - столько то , всего затрат столько то (если вы поменяли эк-кую часть, не забудь в презентации поменять) и тд.

Заключение прям по презентации читай, и в конце на основании этого можно заключить, что данная программа экономически целесообразна и может быть рекомендована к внедрению.

Считаю, что цель данного дипломного проекта достигнута.

Спасибо за внимание.

Размещено на Allbest