创建带有会议邀请的电子邮件

Question

我正在研究Excel工作簿，以跟踪约会并发送电子邮件以通知约会。

我将代码组合在一起，以使用从Excel工作表中提取的输入在Outlook中打开电子邮件。

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

我正在尝试在接收者的日历中预定一个约会。

我希望收到一封带有会议附件的电子邮件。