Создание сообщения с вложениями в Outlook 2003 (макросы) - VB

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

Здравствуйте.
Есть следующая задача... Пользователь выделяет в почтовом клиенте Outlook 2003 несколько писем, нажимает на некую кнопку, которая привязана к макросу, после чего создаётся сообщение с определённым получателем, темой, а в качестве вложений у вновь созданного сообщения должны быть те сообщения, которые пользователь выделил.
vb я не знаю, но по частям найденным в Интернете я написал/собрал макрос, который:
1. создаёт сообщение с нужными заполненными полями,
2. получает список выделенных сообщений и пытается их аттачить.
3. Отображает сообщение.
Из за незнания особенностей vb не могу понять, как прикрепить в виде вложений к созданному сообщению объекты, которые были получены из списка выделенных сообщений. Прикрепить полученные объекты методом Attachmrnts.Add не получается.
Исходник макроса ниже

spam()

     OutlookApp  
     SM  
     objItem  
     objMail  MailItem
     OutSlctn  Outlook.Selection
    
     OutlookApp = CreateObject()
     OutSlctn = OutlookApp.ActiveExplorer.Selection          

     MsgBox(, vbQuestion + vbOKCancel) = vbOK 
        
         SM = OutlookApp.CreateItem(olMailItem)              
        
        SM. =                           
        SM.Subject =                                      

          objItem  OutSlctn
             objItem. = olMail 
                SM.Attachments.Add (objMail) 

        SM.Display                                              

         SM =                                         

     OutlookApp =  

Посмотрел в msdn про метод Attachments.Add там написано

Как я понимаю (см. строку выделенную полужирным выше) в качетсве источника вложения данному методу можно указывать Outlook элемнеты. Может я эти объекты из списка выделения не правльно исопльзую или их нужно как то конвертировать. Помогите разобраться.
Заранее спасибо.

Решение задачи: «Создание сообщения с вложениями в Outlook 2003 (макросы)»

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

                            <font color="blue">For</font> <font color="blue">Each</font> objItem <font color="blue">In</font> OutSlctn
            <font color="blue">If</font> objItem.<font color="blue">Class</font> = olMail <font color="blue">Then</font>
                SM.Attachments.Add objMail, olByValue <font color="00AA00">' olByValue - The attachment is a copy of </font>
                                                      <font color="00AA00">' the original file and can be accessed even</font>
                                                      <font color="00AA00">' if the original file is removed. </font>
            <font color="blue">End</font> <font color="blue">If</font>
        <font color="blue">Next</font>

                        