How to Remove "Copy" prefix while Importing .pst Outlook Calendars

From  Outlook client:
  1. Press Alt+F11 which will open the VBA window. 
  2. In the left pane, navigate to Project1-MS Outlook Object and double-click 'ThisOutlookSession'.
  3. Paste the code into the window in the right pane.
  4. Press the green arrow button to execute the code.

Script

Sub FixCopy()
Dim calendar As MAPIFolder
Dim calItem As Object
   
Set calendar = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar)
       
Dim iItemsUpdated As Integer
Dim strTemp As String

iItemsUpdated = 0
For Each calItem In calendar.Items
    If Mid(calItem.Subject, 1, 6) = "Copy: " Then
      strTemp = Mid(calItem.Subject, 7, Len(calItem.Subject) - 6)
      calItem.Subject = strTemp
      iItemsUpdated = iItemsUpdated + 1
    End If
    calItem.Save
Next calItem

MsgBox iItemsUpdated & " of " & calendar.Items.count & " Items Updated"

End Sub

 

Comments

Post a Comment

Popular posts from this blog

How to Move the Global Catalog Role to another Domain Controller

To move the global catalog functions from one domain controller to another:  Click Start , point to Programs , point to Administrative Tools , and then click Active Directory Sites and Services . Double-click Sites to expand it, expand Servers , and then click the domain controller that you want to have the new global catalog role. Double-click the domain controller to expand the server contents. Right-click the NTDS Settings object that is listed below the server, and then click Properties . On the General tab, click to select the Global Catalog check box to add the global catalog function to the domain controller, and then click OK to apply the changes. Click Active Directory Sites and Services , and then click the outdated global catalog or domain controller that is going to have the global catalog function removed. Open the properties of the domain controller, click to clear the Global...
Read more

Microsoft Exchange Server Interview Questions & Answers Part 4

How can I see when Exchange last updated the OAB? Get-OfflineAddressBook|FL LastTouchedTime Extensible Storage Engine The database engine Exchange Server uses is built on the ESE. The ESE exists in several flavors: ESE97 for Exchange Server 5.5 ESE98 for Exchange Server 2000/2003 ESENT for Active Directory ESE for Exchange Server 2007 and Exchange Server 2010 What is Transport Rules in Exchange Server 2013? By using transport rules in Exchange 2013 we can filter, inspect or block any confidential emails that match any specific conditions with the email that matches the transport rule. By using this we would be able to prevent the leakage of the sensitive data in any organization. Transport rules along with DLP and policy tips can be used to give end users warning informational tips when they try to send any emails which does not abide the company policy. In-order to achieve this we need to create a transport rule first, and then cr...
Read more

Microsoft Exchange Server Interview Questions & Answers Part 3

How to know the build number for the version of Exchange 2013 that you’re running? Get-ExchangeServer | Format-List Name, Edition, AdminDisplayVersion What is white space in exchange and how to find it? Database white space is the area within Exchange Server mailbox databases that has been reclaimed after an item or object -- such as a mailbox -- has been deleted. Get-MailboxDatabase -Status | select Name,DatabaseSize,AvailableNewMailboxSpace To get a completely accurate representation of white space in the mailbox database, admins should use the ESEUTIL /MS command: When using ESEUTIL /MS, you must dismount the target database while the process runs. Don't worry too much about white space; Exchange does a good job managing it for you. However, if you begin running out of space on a mailbox disk and see that there's a large amount of white space within a particular database that resides on that disk, you should install a new set of disks (or provision a new ...
Read more