[英]How to Create Online Skype Meetings for Outlook Appointments using excel VBA?
[英]Using Excel to Send Appointments/Meetings with Attendees on Outlook
我目前正在运行的只是向自己发送会议。 我尝试做 xOutItem.Send 而不是 xOutItem.Save 并得到一个错误。 我在 H2 上有一封与会者电子邮件,但他们没有在日历上收到消息。 非常感谢任何提示/帮助。 先感谢您。
Sub AddAppointments()
Dim I As Long
Dim xRg As Range
Dim xOutApp As Object
Dim xOutItem As Object
Set xOutApp = CreateObject("Outlook.Application")
Set xRg = Range("A2:H2:A3:H3")
For I = 1 To xRg.Rows.Count
Set xOutItem = xOutApp.CreateItem(1)
Debug.Print xRg.Cells(I, 1).Value
xOutItem.Subject = xRg.Cells(I, 1).Value
xOutItem.Location = xRg.Cells(I, 2).Value
xOutItem.Start = xRg.Cells(I, 3).Value
xOutItem.Duration = xRg.Cells(I, 4).Value
If Trim(xRg.Cells(I, 5).Value) = "" Then
xOutItem.BusyStatus = 2
Else
xOutItem.BusyStatus = xRg.Cells(I, 5).Value
End If
If xRg.Cells(I, 6).Value > 0 Then
xOutItem.ReminderSet = True
xOutItem.ReminderMinutesBeforeStart = xRg.Cells(I, 6).Value
Else
xOutItem.ReminderSet = False
End If
xOutItem.Body = xRg.Cells(I, 7).Value
xOutItem.RequiredAttendees = xRg.Cells(I, 8).Value
xOutItem.Save
Set xOutItem = Nothing
Next
Set xOutApp = Nothing
End Sub
AppointmentItem.RequiredAttendees属性返回以分号分隔的会议约会所需与会者姓名字符串。 此属性仅包含所需与会者的显示名称。 应使用Recipients
集合设置与会者列表。
您可能会发现如何:以编程方式填写 Outlook 中的收件人、抄送和密件抄送字段一文很有帮助。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.