Как отправить email с вложение из Outlook с помощью VBA?

' Процедуру разместить в модуле ThisOutlookSession.
' Уровень безопасности макросов (без цифровой подписи) - низкая.
Option Explicit
'123456789012345678901234567890123456h8nor@ya567890123456789012345678toster56789

Private Sub Application_Reminder(ByVal Item As Object)
  Dim objMsg As MailItem, sAttachment As String
  Set objMsg = Application.CreateItem(olMailItem)
  
  ' Путь к файлу вложения (Указанный файл "Текст.txt" находится на Рабочем столе)
  sAttachment = CreateObject("Wscript.Shell").SpecialFolders.Item("Desktop") & "\Текст.txt"
  
  If Item.MessageClass <> "IPM.Appointment" Then
    Exit Sub
  End If
  If Item.Categories <> "Automated Email Sender" Then
    Exit Sub ' Закомментировать, если у события не указана категория
  End If
  
  With objMsg
    .To = Item.Location ' Место события
    .Subject = Item.Subject
    .Body = Item.Body
    ' Если файл вложения существует, то добавить в письмо
    If Len(sAttachment) > 0 Then .Attachments.Add sAttachment
    '.Display '' Показать письмо (для отправки вручную; вместо '.Send)
    .Send
  End With: Set objMsg = Nothing
End Sub