Excel VBA在非默认日历中创建会议 [英] Excel VBA create Meeting in Non-Default Calendar
问题描述
如何使用VBA代码在Outlook中非默认电子邮件地址的非默认日历上创建会议?
How do I create a Meeting on the non default calendar of the non default email address in outlook using VBA code?
我在默认电子邮件地址的默认日历中创建邀请的代码:
The code that I have creates the invites in the default calendar of the default email address:
Sub CreateAppointmentOutlook()
Dim oApp As Outlook.Application
Dim oApt As Outlook.AppointmentItem
Dim oRecip As Outlook.Recipient
Dim i As Long
Dim lastRow As Long
Dim ws As Worksheet
Dim wb As ThisWorkbook
Set oApp = New Outlook.Application
Set ws = ActiveWorkbook.Worksheets("Sheet1")
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
For i = 1 To lastRow
Set oApt = oApp.CreateItem(olAppointmentItem)
oApt.MeetingStatus = olMeeting
Debug.Print (ws.Cells(i, 1).Value)
With oApt
.Subject = "Test"
' do some other stuff
End With
Next i
End Sub
我什至尝试更改日历的最接近方法就是这个参考.为了甚至开始尝试在示例中实现此代码,我进行了以下测试
The closest I could come to even attempting to change calendar was this reference. To even begin to try to implement this code in my example I did the below as a test
Sub Whatever()
Dim olApp As Object
Set olApp = GetObject(, "Outlook.Application")
Dim ns As Outlook.Namespace
Set ns = olApp.GetNamespace("MAPI")
Dim Items As Object
Set Items = GetFolderPath("otheremail@contoso.com\Calendar").Items
Debug.Print (Items.Parent.FolderPath)
Debug.Print ("End")
End Sub
但是出现运行时错误'91':未在行Set Items = GetFolderPath("otheremail@contoso.com \ Calendar").Items中设置对象变量或With块变量.
But I get a Run-time error '91' : Object variable or With block variable not set on line Set Items = GetFolderPath("otheremail@contoso.com\Calendar").Items
更新
此代码运行:
Sub Whatever()
Dim olApp As Object
Set olApp = GetObject(, "Outlook.Application")
Dim oApt As Outlook.AppointmentItem
Dim ns As Outlook.Namespace
Dim oFolder As Outlook.Folder
Set ns = olApp.GetNamespace("MAPI")
Set oFolder = ns.Folders("otheremail@contoso.com")
Dim CalItems As Outlook.Items
Set CalItems = oFolder.Items
End Sub
但是如何在此其他CalItems文件夹集合上创建日历条目?
But how then to create a calendar entry on this other CalItems folder collection?
推荐答案
此代码将在Outlook中的非默认帐户中的非默认日历上创建约会.希望这对以后的人有所帮助:
This code will create a Appointment on non default calendar in a non default account in Outlook. Hope this helps someone else out in future:
Sub Whatever()
Dim olApp As Object
Set olApp = GetObject(, "Outlook.Application")
Dim oApt As Outlook.AppointmentItem
Dim ns As Outlook.Namespace
Dim recip As Outlook.Recipient
Dim oFolder As Outlook.Folder
Set ns = olApp.GetNamespace("MAPI")
Set recip = ns.CreateRecipient("otheremail@contoso.com")
If recip.Resolve Then
Set otherFolder = ns.GetSharedDefaultFolder(recip, olFolderCalendar)
End If
Set oApt = otherFolder.Items.Add(olAppointmentItem)
oApt.MeetingStatus = olMeeting
With oApt
.Subject = "Test"
.Start = "15/04/2019 09:00"
.End = "15/04/2019 09:10"
.Location = "The Business Meeting Room"
.Recipients.Add ("user@contoso.com")
.Send
End With
End Sub
这篇关于Excel VBA在非默认日历中创建会议的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!