Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 308
  • Last Modified:

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

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
Alex Campbell
Asked:
Alex Campbell
  • 2
  • 2
1 Solution
 
Will SzymkowskiSenior Solution ArchitectCommented:
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
 
David LeeCommented:
Hi, Alex972.

Are you saying that you want a macro that changes the subject for selected items?
0
 
Alex CampbellAuthor Commented:
Yes
0
 
David LeeCommented:
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
 
Alex CampbellAuthor Commented:
GREAT!!
0

Featured Post

Efficient way to get backups off site to Azure

This user guide provides instructions on how to deploy and configure both a StoneFly Scale Out NAS Enterprise Cloud Drive virtual machine and Veeam Cloud Connect in the Microsoft Azure Cloud.

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now