Создать электронное письмо с прикрепленным приглашением на встречу

Question

Я работаю над книгой Excel, чтобы отслеживать встречи и отправлять электронную почту, чтобы сообщить о встрече.

Я собрал код, чтобы открыть электронную почту в Outlook, используя данные, извлеченные из листа Excel.

Sub ButtonREMINDER41_Click()

Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object

Set rng = Nothing
On Error Resume Next
' Only send the visible cells in the selection.
Set rng = Selection.SpecialCells(xlCellTypeVisible)
Set rng = 
Sheets("Sheet1").RangeToHtml("D4:D12").SpecialCells(xlCellTypeVisible, xlTextValues)
On Error GoTo 0

If rng Is Nothing Then
MsgBox "The selection is not a range or the sheet is protected. " & _
       vbNewLine & "Please correct and try again.", vbOKOnly
Exit Sub
End If

With Application
  .EnableEvents = False
  .ScreenUpdating = False
End With

`Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = Range("$F$41")
.CC = Range("$B$41")
.BCC = ""
.Subject = "Upcoming Scheduled Appointment"
.HTMLBody = Range("$N$41")
' In place of the following statement, you can use ".Display" to
' display the e-mail message.
.Display
End With
On Error GoTo 0

With Application
.EnableEvents = True
.ScreenUpdating = True
End With

End Sub

Я также пытаюсь записать встречу в календаре получателя.

Я хотел бы получить электронное письмо с приложением для встречи.