Наберите в поиске по форуму the bat или Лотус, Вам и ссылки будут. Еще кажется на сайте у EducatedFool примеры лежат.

{quote}{login=vikttur}{date=07.07.2011 10:34}{thema=}{post}Значит, не все основные форумы просмотрели :)  
<EM>http://www.planetaexcel.ru/tip.php?aid=156</EM>  
<EM>http://www.excel-vba.ru/chto-umeet-excel/kak-otpravit-pismo-iz-excel/</EM>{/post}{/quote}  
 
Задача стоит не через Аутлук и массово через форму.  
В приведенных примерах это либо аутлук, не подходит под конкретную форму отправки (во вложении)

{quote}{login=The_Prist}{date=07.07.2011 10:46}{thema=}{post}Руся, еще раз говорю: элементарный цикл сделает массовую рассылку через CDO. Никаких Outlook-ов там не надо.{/post}{/quote}  
 
Нужен готовый пример по формк вложения

{quote}{login=vikttur}{date=07.07.2011 10:42}{thema=}{post}Эрнесто, RUSRUS495, Руся - одно и то же лицо на разных форумах Excel задает один и тот же вопрос одновременно.  
Вопрос - какие такие основные форумы просматривались раньше?{/post}{/quote}  
 
Разные ники...так получилось. Я в этом секрет не держу. Все мы вертимся на одних форумах  
http://excelvba.ru/  
http://forum.developing.ru/  
http://forum.msexcel.ru/  
http://www.cyberforum.ru/vba/  
http://www.excel-vba.ru/  
http://www.excelworld.ru/forum/  
http://www.planetaexcel.ru/  
http://www.programmersforum.ru/  
http://www.sql.ru/forum/

Не хочу никого обидеть...  
Я потратил НЕДЕЛЮ, что бы облазить интернет в поисках решения. Везде примеры с Аутлуком, либо не относится к форме вложения.  
У меня уже есть PLEX (хорошее решение), но это опять же Аутлук.  
Есть масса примеров с http://www.rondebruin.nl/sendmail.htm , но опять же Аутлук

{quote}{login=Юрий М}{date=07.07.2011 11:06}{thema=}{post}Руся, Вы пример Prist от 07.07.2011, 22:34 смотрели?{/post}{/quote}  
 
Он у меня в колекции с момента его появления. Я не знаю как его привязать к форме вложения. В том и вопрос темы, что все мы говорим об одном и тоже, но конкретного примера нет. Я выложил форму что бы это систематизировать.  
Помогите разобраться, буду рад.

Вечер добрый Дмитрий (The_Prist) !  
1. Скопировал Ваш пример, очистил ЭтаКнига и сам лист  
2. Прописал статичные параметры сервера, вместо […] прописал "…" во всех трех параметрах (SMTPserver, sUsername, sPass)
3. Пробую заменить в коде:  
For li = 9 To Cells(Rows.Count, 1).End(xlUp).Row  
       sTo = Range(li, 1).Value   'Кому  
       sFrom = "YourMail@yandex.ru"    'От кого  
       sSubject = Range(li, 2).Value    'Тема письма  
       sBody = Range(li, 3).Value    'Текст письма  
       sAttachment = Range(li, 4).Value    'Вложение(полный путь к файлу)  
на это………………..  
For li = 9 To Cells(Rows.Count, 1).End(xlUp).Row  
       sTo = Range(li, A).Value   'Кому  
       sFrom = "YourMail@yandex.ru"    'От кого  
       sSubject = Range(li, B).Value    'Тема письма  
       sBody = Range(li, C).Value    'Текст письма  
       sAttachment = Range(li, D).Value    'Вложение(полный путь к файлу)  
 
Получается ошибка…  
Где ошибся ?

Ура ! Но это не все...  
Заработало полноценно (с выводом сообщения "Письмо отправлено") только с этим вариантом;  
'Создаем сообщение  
   Dim li As Long  
   For li = 9 To Cells(Rows.Count, 1).End(xlUp).Row  
       sTo = Cells(li, "A").Value 'Кому  
       sFrom = "УЧЕТКА@mail.ru"  'cells(li, "B")    'От кого  
       sSubject = Cells(li, "C").Value    'Тема письма  
       sBody = Cells(li, "D").Value    'Текст письма  
       sAttachment = Cells(li, "E").Value    'Вложение(полный путь к файлу)  
 
cells(li, "B") - не работает вообще. Хотелось бы, что бы приходило не от ".......@mail.ru" , а от "ВАСЯ"

{quote}{login=}{date=09.07.2011 12:42}{thema=}{post}cells(li, "B") - не работает вообще. {/post}{/quote}  
Интересно, а почему это должно работать, если вы своими ручками это просто отключили?  
Я в вашем файле включил - и все работает.

Чувствую запарил...  
ХОЧУ что бы письмо приходило не как спам ".......@mail.ru"  
А что бы приходило от "Вася <.......@mail.ru>"  
 
Есть вот это (у rondebruin) высмотрел, но как это применить ?  
.From = "" & Me.Range("G1").Value & "<" & Me.Range("G2").Value & ">"

{quote}{login=Руся}{date=09.07.2011 01:30}{thema=Re: }{post}  
Я сейчас до утра целый ПРОЕКТ накручу, утром The_Prist взглянет и обалдеет от прогресса...{/post}{/quote}Да мы все обалдеем ;-)

sFrom = "УЧЕТКА@mail.ru (" & cells(li, "B") & ")"'От кого

А попробовать, что получается, слабо?  
У меня хоть от Васи, хоть от Руси приходит

Руся, если мыло в файле не тухлое, то ответ там.