Макрос для отправки бэкапа документа на почту используя стандартные средства windows

Set MailMessage = CreateObject("CDO.Message")
    If Err.Number <> 0 Then
        SendEMail = False
        Exit Sub
    End If
    Err.Clear
    On Error GoTo 0
    With MailMessage
        .Subject = "hello"
        .From = ""
        .To = ""
       
 
        With .Configuration.Fields
            ' set up the SMTP configuration
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ""
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = ""
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
           .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
          
            .Update
        End With
        .BodyPart.Charset = "UTF-8"
 
        If MailBody <> vbNullString Then
            .TextBody = MailBody
        End If
 
        If IsArray(Attachments) = True Then
            ' attach all the files in the array.
            For N = LBound(Attachments) To UBound(Attachments)
                ' ensure the attachment file exists and attach it.
                If Attachments(N) <> vbNullString Then
                    If Dir(Attachments(N), vbNormal) <> vbNullString Then
                        .AddAttachment Attachments(N)
                    End If
                End If
            Next N
        Else
            ' ensure the file exists and if so, attach it to the message.
            If Attachments <> vbNullString Then
                If Dir(CStr(Attachments), vbNormal) <> vbNullString Then
                    .AddAttachment Attachments
                End If
            End If
        End If
 
        On Error Resume Next
        Err.Clear
        ' Send the message
        .Send
        If Err.Number = 0 Then
            SendEMail = True
        Else
            SendEMail = False
            Exit Sub
        End If
    End With
 
 
End Sub

Sub Макрос1()
    MsgBox SendTextMail("boss@local.net", "admin@local.net", "Test", "Hello, boss!")
End Sub
 
Function SendTextMail(AddrTo As String, AddrFrom As String, Subject As String, Body As String) As Boolean
    SendTextMail = False
 
    Set MailMessage = CreateObject("CDO.Message")
    If Err.Number <> 0 Then Exit Function
    Err.Clear
    
    With MailMessage
        .Subject = Subject
        .From = AddrFrom
        .To = AddrTo
        With .Configuration.Fields
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user"
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pass"
            .Update
        End With
        .BodyPart.Charset = "UTF-8"
        .TextBody = Body
    End With
    
    MailMessage.Send
    If Err.Number = 0 Then SendTextMail = True
End Function