Private Sub Application_Startup()

'событие запуска аутлука

Dim objApp As Object

On Error Resume Next

   Set objApp = GetObject(, "Excel.Application")

If Err Then

   On Error Resume Next

      Set objApp = CreateObject("Excel.Application")

   If Err Then

      MsgBox "Не удалось запустить Excel"

      Exit Sub

   End If

End If

Dim objBook As Object

Set objBook = objApp.WorkBooks.Open(BookName) 'здесь указать имя книги

'здесь вставить код, вычитывающий адресатов из книги

Set objApp = Nothing

Set objBook = Nothing

End Sub

Private Sub Application_NewMail()

'событие получения нового письма

Dim objMails As Object

Dim objMail As Object

Set objMails = Application.Session.GetDefaultFolder(olFolderInbox).Items

Set objMail = objMail(objMails.Count)

objMail.Forward

objMail.Recipients.Add "<сюда вписать адресата>"

objMail.Send

Set objMails = Nothing

Set objMail = Nothing

End Sub