EMail вложение в письмо из поля с типом Вложение

Dim objOL As Object ' Outlook.Application '
 
Function CreateOutlookMessage(Address As String, Subject As String, Body As String, AttPath  As String)
Dim myNamespace As Object ' Outlook.NameSpace '
Dim myFolder As Object ' Outlook.Folder '
Dim objMail As Outlook.MailItem '  Object '
    On Error GoTo ErrHandler
    ' Если глобальная переменная objOL обнулена - создаем приложение и отображаем папку "исходящие"
    If objOL Is Nothing Then
        Set objOL = CreateObject("Outlook.Application")
        Set myNamespace = objOL.GetNamespace("MAPI")
        Set myFolder = myNamespace.GetDefaultFolder(4) ' olFolderOutbox
        myFolder.Display
    End If
    ' Создаем сообщение
    Set objMail = objOL.CreateItem(0)
    With objMail
        .To = Address
        .Subject = Subject
        .Body = Body
        .Attachments.Add AttPath  ' Путь к файлу должен быть полным
        .Display
    End With
    CreateOutlookMessage = 0
    
NormalExit:
    Set objMail = Nothing
    Exit Function
 
ErrHandler:
    Set objOL = Nothing
    Set myNamespace = Nothing
    Set myFolder = Nothing
    Set objMail = Nothing
    CreateOutlookMessage = Err.Number
    Resume NormalExit
    
End Function

Dim tmp As Variant
    tmp = -1
    Do Until tmp = 0
        tmp = CreateOutlookMessage("адрес@домен.com", "Заголовок", "Текст сообщения", "c:\путь\имяфайла.doc")
    Loop

Public Function sendEmail(emailTo As String, emailSubject As String, emailBody As String, Optional VarDebug As Boolean) As Integer
On Error GoTo Err_sendEmail
Dim oMSG As Object
Dim oConfig As Object
Dim CFields As Object
Dim strBody As String
 
Set oMSG = CreateObject("CDO.Message")
Set oConfig = CreateObject("CDO.Configuration")
Set CFields = oConfig.Fields
Set oMSG.Configuration = oConfig
 
CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "" 'smtp сервер
CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "" 'Login
CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "" 'password
CFields("urn:schemas:mailheader:content-language") = "windows-1251"
CFields.Update
 
oMSG.To = emailTo
oMSG.cc = emailcc
oMSG.From = "DoNotReply@***.com"
oMSG.Subject = emailSubject
oMSG.BodyPart.Charset = "windows-1251"
'oMSG.AddAttachment "c:\temp\Test0.rtf"
oMSG.HTMLBody = emailBody
oMSG.Send
 
sendEmail = 1
 
Exit_sendEmail:
    Set CFields = Nothing
    Set oConfig = Nothing
    Set oMSG = Nothing
    Exit Function
 
Err_sendEmail:
    sendEmail = 0
    If Not IsNull(VarDebug) Then If VarDebug Then MsgBox (Err.Description)
    Resume Exit_sendEmail
End Function