excel - 从 Excel 自动创建与与会者的 session

Question

我正在尝试在执行宏时自动与 guest 一起创建事件。我一直在尝试在执行宏期间自动与 guest 一起创建一个事件，但它不起作用。
我总是遇到错误，客人永远不会被“邀请”。
这可能是一个小问题，但这是我迄今为止所做的两个版本。
你看到我没有看到的错误吗？
谢谢
版本 1

Sub Reminder_ContactCustomer()

Set xOutApp = CreateObject("Outlook.Application")
myItem = myOlApp.CreateItem(1)
myItem.MeetingStatus = olMeeting
myItem.Subject = "TO DO " + Range("B25").Value + " CONTACT CUSTOMER"
myItem.Location = "OFFICE 1A"
myItem.Start = Range("H25").Value
myItem.Duration = 90

Set myOptionalAttendee = myItem.Recipients.Add("mail@domain.ch")
myOptionalAttendee.Type = olOptional
myItem.Send

End Sub

版本 2

Sub Reminder_ContactCustomerV2()

Dim I As Long
Dim xRg As Range
Dim xOutApp As Object
Dim xOutItem As Object
Set xOutApp = CreateObject("Outlook.Application")
Set xRg = Range("B28:H28")
For I = 1 To xRg.Rows.Count
Set xOutItem = xOutApp.CreateItem(1)
Debug.Print xRg.Cells(I, 1).Value
xOutItem.Subject = "TO DO " + Range("C9").Value + " CONTACT CUSTOMER"
xOutItem.Location = "OFFICE 1A"
xOutItem.Start = xRg.Cells(I, 7).Value
xOutItem.AllDayEvent = True
xOutItem.Duration = 15
xOutItem.BusyStatus = 2
xOutItem.ReminderSet = True
xOutItem.ReminderMinutesBeforeStart = 15
xOutItem.Body = "Auto reminder added by the Excel Checklist"
Set myRequiredAttendee = xOutItem.Recipients.Add("mail@domain.ch")
myRequiredAttendee.Type = olRequired
xOutItem.Sent
xOutItem.Save
Set xOutItem = Nothing
Next
Set xOutApp = Nothing


End Sub

Answer 1

当我自己尝试时它起作用了(使用显式选项来发现拼写错误等)

Sub Reminder_ContactCustomer()

Dim myOlApp As Outlook.Application
Dim myItem As Outlook.AppointmentItem
Dim myOptionalAttendee As Outlook.Recipient
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(1)
myItem.MeetingStatus = olMeeting
myItem.Subject = "TO DO " + Range("B25").Value + " CONTACT CUSTOMER"
myItem.Location = "OFFICE 1A"
myItem.start = Range("H25").Value
myItem.Duration = 90

Set myOptionalAttendee = myItem.Recipients.Add("mail@domain.ch")
myOptionalAttendee.Type = olOptional
myItem.Send

End Sub

你需要Set在 myItem = myOlApp.CreateItem(1) 前面
和一致的 myOlApp(你一开始使用的是 xOutApp)