Solved

Is it possible to do the Search and Replace of Subjects for ONLY selected calendar entries?

Posted on 2010-08-30
5
302 Views
Last Modified: 2012-05-10
I have several dozen entries in Outlook calendar with the terms DocReview Reminder.
When a DocReview Reminder is completed, I would want to change the word Reminder to Reviewed.
This would be only for certain ones that I will select.
0
Comment
Question by:Alex972
  • 2
  • 2
5 Comments
 
LVL 53

Expert Comment

by:Will Szymkowski
ID: 33561396
Not sure if this is possible on Calendar items but it is for folders, emails, contacts etc. Take a look here...
http://office.microsoft.com/en-us/outlook-help/find-and-replace-text-within-an-e-mail-message-or-item-HA010208734.aspx#BM5

Also try downloading and installing this Outlook add-in which might give you the tools to do what you are looking for. You can use a free trial for 30 days...
http://www.office-addins.com/-outlook-addins/find-replace-outlook.html

Hope this helps~!
0
 
LVL 76

Expert Comment

by:David Lee
ID: 33563605
Hi, Alex972.

Are you saying that you want a macro that changes the subject for selected items?
0
 
LVL 1

Author Comment

by:Alex972
ID: 33568714
Yes
0
 
LVL 76

Accepted Solution

by:
David Lee earned 500 total points
ID: 33569272
That's doable with a slight modification to the code from your last question.  I've made the necessary change so it will only search and replace the items you have selected.
Sub SearchAndReplaceSubjectInSelectedItems()
    Const MACRO_NAME = "Search and Replace Subject"
    Dim olkItem As Object, strFind As String, strReplace As String, intCount As Integer
    strFind = InputBox("Enter the text to find", MACRO_NAME)
    If strFind <> "" Then
        strReplace = InputBox("Enter the text that will replace """ & strFind & """.", MACRO_NAME)
        For Each olkItem In Application.ActiveExplorer.Selection
            If InStr(1, olkItem.Subject, strFind) Then
                olkItem.Subject = Replace(olkItem.Subject, strFind, strReplace)
                olkItem.Save
                intCount = intCount + 1
            End If
        Next
    End If
    Set olkItem = Nothing
    msgbox "Find: " & strFind & vbCrLf _
        & "Replace: " & strReplace & vbCrLf _
        & "The macro found and replaced " & intCount & " instances.", vbInformation + vbOKOnly, MACRO_NAME
End Sub

Open in new window

0
 
LVL 1

Author Closing Comment

by:Alex972
ID: 33569835
GREAT!!
0

Featured Post

What is SQL Server and how does it work?

The purpose of this paper is to provide you background on SQL Server. It’s your self-study guide for learning fundamentals. It includes both the history of SQL and its technical basics. Concepts and definitions will form the solid foundation of your future DBA expertise.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Outlook Disconnected 5 74
How to get windows DNS resolve to internal address? 3 35
Outlook 2010 no longer printing emails 2 31
outloo, calendar 11 18
Are you unable to connect or configure Hotmail email account in Microsoft Outlook 2010, 2007? Or Outlook.com emails are not downloading to Outlook? Lets’ see the problem and resolve Outlook Connector error syncing folder hierarchy (0x8004102A).
When you have clients or friends from around the world, it becomes a challenge to arrange a meeting or effectively manage your time. This is where Outlook's capability to show 2 time zones in one calendar comes in handy.
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …
CodeTwo Sync for iCloud (http://www.codetwo.com/sync-for-icloud?sts=6554) automatically synchronizes your Outlook 2016, 2013, 2010 or 2007 folders with iCloud folders available via iCloud Control Panel. This lets you automatically sync them with…

821 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question