If you dislike the auto added “Copy:” prefix in the subject when copying a meeting from one calendar to another, you can use the method introduced in this article. It’s able to help you auto strip the annoying prefix.
By default, when you copy a meeting from one Outlook calendar to another, the “Copy:” prefix will be automatically added to the copied meeting’s subject. But, in most cases, you may feel that the “Copy:” prefix is too redundant and useless. So, in the followings, we will teach you a way to get rid of the vexing “Copy:” prefix.
Not Add “Copy:” Prefix in Subject when Copying a Meeting
- To begin with, start your Outlook application.
- Then in the main Outlook window, press “Alt + F11” key buttons.
- Next you will get access to Outlook VBA editor window, in which you ought to find and open the “ThisOutlookSession” project.
- Subsequently, copy the following VBA code into this project window.
Private Sub Application_ItemContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Selection As Selection) Dim objButton As Office.CommandBarButton If Selection.Item(1).Class = olAppointment Then 'Add "Copy To Folder" option in the right clicking menu Set objButton = CommandBar.Controls.Add(msoControlButton) With objButton .Style = msoButtonIconAndCaption .Caption = "Copy To Folder" .FaceId = 1676 .OnAction = "Project1.ThisOutlookSession.CopyItemToFolder" End With End If End Sub Private Sub CopyItemToFolder() Dim objSelection As Outlook.Selection Dim objTargetFolder As Outlook.Folder Dim objAppointment As Outlook.AppointmentItem Dim objCopiedAppointment As Outlook.AppointmentItem Set objSelection = Outlook.Application.ActiveExplorer.Selection Set objTargetFolder = Outlook.Application.Session.PickFolder If Not (objTargetFolder Is Nothing) Then For Each objAppointment In objSelection Set objCopiedAppointment = objAppointment.Copy Set objCopiedAppointment = objCopiedAppointment.Move(objTargetFolder) 'Remove "Copy:" prefix in the subject If Left(objCopiedAppointment.Subject, 6) = "Copy: " Then objCopiedAppointment.Subject = Replace(objCopiedAppointment.Subject, "Copy: ", "") objCopiedAppointment.Save End If Next 'Prompt you if copying succesfully MsgBox "Copy Succesfully!", vbExclamation + vbOKOnly End If End Sub
- After that, you should sign this code.
- Later change your Outlook macro settings to permit the signed macros.
- Eventually you can have a try.
- Firstly, select a meeting and then right click on it.
- Then in its context menu, you should choose the “Copy To Folder” option.
- Next you will be required to select a target calendar folder and hit “OK”.
- After copying successfully, you will get a prompt.
- Lastly, you can go to the selected destination folder, in which you can see the copied meeting. Its subject must have no “Copy:” prefix.
In the Event of Outlook Corruption
It can be very frightening and miserable when suffering Outlook corruption. Thus, you’d better learn some useful skills to cope with the terrible case. For example, it is prudent to prepare an experienced Outlook fix tool, like DataNumen Outlook Repair. It is well versed in PST data recovery and is able to fix PST errors within minutes.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including sql recovery and outlook repair software products. For more information visit www.datanumen.com