Отправка сообщения в Outlook из Excel - VB

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

Здравствуйте.
Помогите пожалуйста с такими вопросами:
макросом из екселя в Outlook отправляю сообщения

otpr_()
    p_ = ThisWorkbook.Path & 
    Subj_ = [Дано!c36] 
     r_ =   [a2] + 
     c_ =     
         Cells(r_, c_) =    A
        WBN_ = p_ & Sheets().Range( & r_) 
        [c2] = Cells(r_, c_)
        [d2] = Cells(r_, c_ + )
        Addr_ = [Дано!c2] 
        Text_ = [Дано!b2] 
         myOlApp = CreateObject()
         myItem = myOlApp.CreateItem(olMailItem)
         myItem
            .Attachments.Add WBN_ 
            . = Addr_ 
            .Subject = Subj_ 
            .Body = Text_ 
            .Send
         
A:
     c_
     r_
    MsgBox 
 

Вопросы:
1. как поставить письмам высокую важность;
2. как вставить электронную подпись, используемую по умолчанию?
Заранее благодарю.

Решение задачи: «Отправка сообщения в Outlook из Excel»

textual
                            Листинг программы 
                        
                            .Body = Text_ & .Body<font color="00AA00">' текст</font>