Автоматизация отправки собщений в MS Outlook. Поможет ли VBA?

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

Добрый день.
Помогите плиз советом или скриптиком на VBA.
Довольно регулярно (раз в неделю) приходится пересылать большое количество писем (200-250 штук) одному и тому-же адресату.
Т.е. дело происходит так: в течении недели мне кураторы договоров присылают различную информацию. Присылают разные люди, в теле заголовка никаких четких ассоциаций нет, т.е. сразу настроить правило чтобы автоматом пересылалось на определенный адрес - не получается.
В течении недели я в ручную все эти письма складываю в отделюную папку а в конце недели, должен переслать моему сотруднику, для того чтобы он их обработал.
Ну и вот для пересылки приходится делать следуюшие действия:
Ctrl+F (переслать) => Ctlr+V (Вставить адрес сотрудника) => Ctrl+Enter (отправить) => Down (Перейти к след. письму)
и так до конца списка.
Утомляет, отнимает до 20 минут рабочего времени.
Как бы это автоматизировать?
Путей вижу 2:
1. Настроить правило, чтобы оно письма лежащие в определенной папке (либо выделенные) и не прочитанные пересылалло бы по определенному адресу. Чтобы правило можно было запускать в ручную. Но там нет такого условия, чтобы натравить его на отдельную папку. М.б. есть еще какой-то выход?
2. Написать на VBA скриптик, который делал бы тоже самое над выделенными письмами. Но с VBA увы дружу слабо (в Excel'е еще что-то писал для обработки ячеек, но команды и функции для Outlook не знаю вовсе)
Может ли мне кто-то помочь?
Заранее спасибо.

Решение задачи: «Автоматизация отправки собщений в MS Outlook. Поможет ли VBA?»

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

                            <font color="blue">Sub</font> ssd()
<font color="blue">Dim</font> myOlApp <font color="blue">As</font> <font color="blue">New</font> Outlook.Application   <font color="00AA00">' переменная оутлука</font>
    <font color="blue">Dim</font> myOlExp <font color="blue">As</font> Outlook.Explorer        <font color="00AA00">' переменная папки оутлука</font>
    <font color="blue">Dim</font> myOlSel <font color="blue">As</font> Outlook.Selection     <font color="00AA00">' переменная выделенных сообщений оутлука</font>
    <font color="blue">Dim</font> ToWho <font color="blue">As</font> <font color="blue">String</font>
    <font color="blue">Dim</font> x <font color="blue">As</font> <font color="blue">Integer</font>
    <font color="blue">Set</font> myOlExp = myOlApp.Explorers.Item(<font color="darkblue"><b>1</b></font>)  <font color="00AA00">'выбираем одну из выделенных папок оутлука</font>
    <font color="blue">Set</font> myOlSel = myOlExp.Selection              <font color="00AA00">'выбираем выделенные сообщения</font>
    ToWho = InputBox(<font color="teal">"Введите адрессата для выбранных сообщений"</font>)
    <font color="blue">For</font> x = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> myOlSel.Count      <font color="00AA00">'во всех выделенных сообщениях выполнить</font>
          myOlSel.Item(x).<font color="blue">To</font> = ToWho       <font color="00AA00">'проставить адрессата</font>
          myOlSel.Item(x).Save                 <font color="00AA00">'сохранить письмо</font>
         <font color="00AA00">'myOlSel.Item(x).Send 'отправлять лучше пересылкой в исходящие - вручную</font>
  <font color="blue">Next</font> x
<font color="blue">End</font> <font color="blue">Sub</font>
                        