Outlook blocks Meeting Copy

I share here some solutions to workaround Outlook blocking copying meetings.

Problem description

Trying to copy/ paste a meeting to organize a follow-up (this has the advantage to reuse the same Teams meeting incl. Chat), I got following error:

"Copying meetings is not supported."

This isn't a bug but a feature.

You can copy and paste the following text and save it in a .reg file :

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Options\Calendar]
"EnableMeetingCopy"=DWORD:1

Then simply run/open the file to set the registry key.

No need for Admin rights since it is a user key.

You can run the Duplicate macro when selecting the meeting you want to copy in your calendar.

It will copy the meeting and open it ready to be scheduled and sent.

	Sub Duplicate()
	Dim Item As Object

	Set Item = GetCurrentItem()
	If Item Is Nothing Then
	MsgBox "No Item selected"
	Exit Sub
	End If
	If Not TypeOf Item Is Outlook.AppointmentItem Then
	Exit Sub
	End If

	Dim myCopiedItem As Outlook.AppointmentItem
	Set myCopiedItem = Item.Copy

	' #TODO Does not work - not method to set property RecurrencePattern
	If Item.IsRecurring Then
	Dim RecPat As RecurrencePattern
	Set RecPat = myCopiedItem.GetRecurrencePattern
	Set srcRecPat = Item.GetRecurrencePattern
	Set RecPat = srcRecPat
	End If

	myCopiedItem.Display
	' TODO if user delete the item, it closes the window but does not delete it

	End Sub

view raw CopyMeeting.bas hosted with ❤ by GitHub

	Function GetCurrentItem() As Object
	Dim objApp As Outlook.Application
	Set objApp = Application
	On Error Resume Next
	Select Case TypeName(objApp.ActiveWindow)
	Case "Explorer"
	Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
	Case "Inspector"
	Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
	End Select

	Set objApp = Nothing
	End Function

view raw GetCurrentItem.bas hosted with ❤ by GitHub