Как создать письмо в Outlook 2013? - VB

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

Добрый день! Нужно создавать письмо в Outlook и открывать его в окне для просмотра и отправки. Код классический, много лет юзаю. Но на компе (Win7-32bit, Outlook 2013) работать отказывается.

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
    Dim MessageText, SubjectText, olApp, olMailItem, objMail
 
    Set olApp = CreateObject("Outlook.Application")
    Set objMail = olApp.CreateItem(olMailItem)
    
    objMail.InternetCodepage = 1251         'Кодировка win-1251, (по умолчанию koi-8)
    objMail.To = "removed@mail.ru"             'Адресат
    objMail.Subject = "Это тема"            'Тема
    objMail.HTMLBody = "Это текст"          'Текст
    objMail.Attachments.Add "c:\test.rar"   'Вложение
 
    objMail.SaveAs "c:\test.msg", OlSaveAsType.olMSGUnicode
    
    objMail.Display                         ' Показываем письмо
      
    Set objMail = Nothing
    Set olApp = Nothing
End Sub

Файл "c:\test.rar" есть, права на создание файлов в "c:" есть. Программа отлаживается и компилируется в VB6 "nano" на компе Win7-32bit, Outlook 2010. Подключенные референсы на скриншоте. И с Outlook 2010 все работет как следует. Какую-то библиотеку добавить/прописать? Ее просто нет на компе с Office 2010? Где взять? Если можно, то так, чтобы не надо было устанавливать полный VB6. Или в коде что-то не так? А можно пример кода под письмо в Outlook 2013? Или он такой же точно? А если не такой же точно - код под Outlook 2013 совместим с кодом Outlook 2010? Или нужно определять версию и делать хитрые выверты? А тогда пример такого определения и вывертов можно?

Решение задачи: «Как создать письмо в Outlook 2013?»

textual
                            Листинг программы 
                        
[CODE]Set objMail = olApp.CreateItem(olMailItem)[/CODE]