默認情況下，您可以輕鬆地將約會作為 iCalendar (.ics) 文件附加到電子郵件中。 但是，如果您希望將多個約會作為ics文件批量附加，則應使用本文介紹的方法。
要將約會作為 iCalendar (.ics) 文件附加到電子郵件，您可以參考我們之前的文章 – “如何將Outlook約會發送給其他人”。 只需打開一個約會，然後選擇“轉發”>“以iCalendar身份轉發”。 這很容易。 但是，Outlook不支持將許多約會作為iCalendar文件附件發送。 因此，在下文中，我們將教您另一種方法。
批量將多個約會作為iCalendar（.ics）文件附加到電子郵件
- 首先，啟動 Outlook 應用程式。
- 進入Outlook主窗口後，可以按“ Alt + F11”鍵。
- 然後將打開 Outlook VBA 編輯器窗口，您需要在其中打開一個未使用的模塊。
- 接下來，您可以將以下 VBA 代碼複製到此模塊窗口中。
Sub BatchAttachMultipleAppointmentsAsiCalendarFiles()
Dim objSelection As Outlook.Selection
Dim objAppointment As Outlook.AppointmentItem
Dim objFileSystem As Object
Dim strTempFolder As String
Dim strTempFile As String
Dim objNewMail As Outlook.MailItem
'Get the selected appointments
Set objSelection = Outlook.Application.ActiveExplorer.Selection
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\"
Set objNewMail = Outlook.Application.CreateItem(olMailItem)
On Error Resume Next
For Each objAppointment In objSelection
'Save the appointments as ics files to local folder
strTempFile = strTempFolder & objAppointment.Subject & ".ics"
objAppointment.SaveAs strTempFile, olICal
'Attach the ics files to the new email
objNewMail.Attachments.Add strTempFile
'delete the temp ics files
objFileSystem.DeleteFile (strTempFile)
Next
'Show the new email
objNewMail.Display
End Sub
- 之後，您需要將新的宏添加到“快速訪問工具欄”，以便將來方便訪問。
- 首先，轉到“文件”>“選項”>“快速訪問工具欄”。
- 然後按照以下屏幕快照中顯示的步驟進行操作。
- 以後，您應該將Outlook宏安全級別更改為低。
- 最終，您可以嘗試一下。
- 首先，打開日曆資料夾。
- 然後選擇要附加為ics文件的約會。
- 接下來，在快速訪問工具欄中按新的宏按鈕。
- 隨即會出現一封新郵件，其中所有先前選擇的約會都已作為ics文件附加。 它看起來像下圖：
及時修復 PST 錯誤
您永遠都不要忘記PST錯誤。 累積錯誤最終會導致Outlook崩潰。 那時，您肯定會遭受 PST 損壞。 您可能會認為 收件箱維修工具 可以幫助您擺脫這種麻煩。 但是，實際上，這種問題已經遠遠超出了Scanpst.exe的能力範圍。 因此，您必須再次使用更強大的工具，例如 DataNumen Outlook Repair.
作者簡介：
Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 損壞的SQL 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM