我再次發佈此請求,因爲儘管我已經收到了JimmyPena的回覆,但解決方案無法正常工作,我似乎無法添加我對發生的問題的評論。 VBA代碼不在Outlook中,而是在Excel電子表格中。如何在Excel中使用VBA代表其他日曆發送會議請求?
我想在Excel 2007中編寫一些VB代碼,它將自動發送會議邀請,從Outlook 2007日曆到Excel電子表格中列出的收件人列表,在電子表格中指定的日期。這很有用,因爲我可以通過單擊一個按鈕向不同日期的不同人發送數百個會議請求。從我自己的用戶帳戶與下面的代碼發送,如果我能做到這一點罰款:
' Create the Outlook session
Set myoutlook = CreateObject("Outlook.Application")
' Create the AppointmentItem
Set myapt = myoutlook.CreateItem(olAppointmentItem) ' Set the appointment properties
With myapt
.Subject = " Assessment Centre "
.Location = "conference room A"
.Start = Cells(5, 24 + j) & " 17:00:00 PM"
.Duration = 120
.Recipients.Add Cells(i, 1).Value
.MeetingStatus = olMeeting
' not necessary if recipients are email addresses
'myapt.Recipients.ResolveAll
.AllDayEvent = "False"
.BusyStatus = "2"
.ReminderSet = False
.Body = L1 & vbCrLf & vbCrLf & L2 & vbCrLf & vbCrLf & L3 & vbCrLf & vbCrLf & L4
.Save
.send
End With
但現在我想送從一個虛擬用戶帳戶的會議請求,我使用類似是一個代表「sendonbehalfof」以便虛擬日曆存儲所有會議邀請,其他代表也可以使用同一個虛擬用戶帳戶操作系統。用下面的代碼發送電子郵件時也能正常工作:
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(0)
With oMail
.To = " [email protected]_Smith.com "
.Subject = "Subject"
.Body = "Body"
.SentOnBehalfOfName = "[email protected]_blogs.com"
.send
End With
電子郵件將說「我代表弗雷德·布洛斯的」
但我不能讓它使用日曆約會的工作。
我用'約會','會議請求',sendonbehalfof'等詞搜索高和低,似乎你應該能夠這樣做與'sendusingaccount'的約會,但這似乎並不工作(不會失敗,只是忽略指令並像以前一樣從我自己的用戶帳戶發送)。
任何人都可以告訴我如何做到這一點? 。非常感謝。
主管技術非常感謝答覆。不幸的是,我是這樣的新手,我不明白在這裏做什麼。會議要求只需使用Outlook在我的公司電子郵件系統上發佈。在上面的電子郵件示例中,爲什麼沒有像'sentonbehalfofname'這樣的約會功能,有沒有什麼根本原因? – user1556023 2012-07-29 21:02:18