Sub CreateMsgInOutlook()
Dim objOutlook As Object
Dim objMail As Object
On Error Resume Next
'Получить запущенный экземпляр
Set objOutlook = GetObject(, "Outlook.Application")
    If objOutlook Is Nothing Then
        'Если не запущен, то запустить
        Err.Clear
        Set objOutlook = CreateObject("Outlook.Application")
            If objOutlook Is Nothing Then Err.Clear: MsgBox "Не установлен Outlook!", vbCritical, "Ошибка": Exit Sub
    End If
objOutlook.Session.Logon
Set objMail = objOutlook.CreateItem(0)
    With objMail
        .To = "Онегину Е."
        .CC = vbNullString
        .Subject = "Письмо Татьяны к Онегину"
        .BodyFormat = 2 'Html
        .HTMLBody = Table_html
        .display
    End With

Set objMail = Nothing
Set objOutlook = Nothing
End Sub