Создание программы для отправки e/mail - VB

Формулировка задачи:

Всем привет.Нужно сотворить программу в которой пользователь вводит данные,допустим в label и этот введенный текст отправляеться на email без его ведома.Помогите пожалуйста!!!

Решение задачи: «Создание программы для отправки e/mail»

textual
                            Листинг программы 
                        

                            <font color="00AA00">'отправка письма по Microsoft Outlook</font>

<font color="00AA00">'для работоспособности нужно добавить ссылку на библиотеку</font>
<font color="00AA00">'зайдите в меню Tools-References, найдите Microsoft Outlook Object Library, поставьте птичку</font>
<font color="blue">Dim</font> objOL <font color="blue">As</font> Outlook.Application
<font color="blue">Set</font> objOL = Outlook.Application

<font color="blue">Dim</font> objMail <font color="blue">As</font> Outlook.MailItem
<font color="blue">Set</font> objMail = objOL.CreateItem(olMailItem)

<font color="blue">Dim</font> objAttach <font color="blue">As</font> <font color="blue">Object</font>
<font color="blue">Set</font> objAttach = objMail.Attachments

<font color="blue">With</font> objMail
.<font color="blue">To</font> = <font color="teal">""</font> <font color="00AA00">'<font color="teal">"mm@mm.ru; dd@dd.ru"</font> 'адрес e-mail для отправки письма, если несколько адресов e-mail, пишем, отделяя их точкой с запятой - <font color="teal">";"</font></font>
.CC = <font color="teal">""</font> <font color="00AA00">'копия</font>
.Subject = <font color="teal">""</font> <font color="00AA00">'это тема письма</font>
<font color="00AA00">'.Body = <font color="teal">"Это текст письма"</font> 'вариант отправки определённого текста</font>
<font color="00AA00">'.Body = ActiveDocument.Selection 'вариант отправки выделенного текста</font>
.Attachments.Add TempDocPath <font color="00AA00">'</font>
<font color="00AA00">'.Attachments.Add 'если надо второе вложенное письмо, тогда добавляем второй Attachments</font>
.OriginatorDeliveryReportRequested = True <font color="00AA00">'уведомление о доставке письма</font>
.ReadReceiptRequested = True <font color="00AA00">'уведомление о прочтении письма</font>
.Save <font color="00AA00">' сохраним письмо</font>
.Display <font color="00AA00">'показать окно письма, то есть показать открытую программу Outlook</font>
<font color="00AA00">'.Send 'отправить письмо автоматом</font>
<font color="blue">End</font> <font color="blue">With</font>
<font color="blue">Set</font> objMail = <font color="blue">Nothing</font>
<font color="blue">Set</font> objOL = <font color="blue">Nothing</font>
<font color="blue">Set</font> objAttach = <font color="blue">Nothing</font>
  
Documents.<font color="blue">Open</font> CurrDocPath <font color="00AA00">'открываем старый, исходный документ</font>
<font color="blue">Kill</font> TempDocPath <font color="00AA00">'удаляем временный документ</font>
<font color="blue">Set</font> FSO = <font color="blue">Nothing</font> <font color="00AA00">'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта</font>



                        