Outlook takviminde randevu konusunu nasıl arayıp değiştirebilirsiniz?

Bul ve Değiştir Outlook takviminde randevu konusunu arayıp değiştirmek, aynı metinlerle topluca değiştirilmesi gereken bazı konuları bulduğunuzda yardımcı olur. Veya Outlook’a veri içe aktardıktan sonra konu alanındaki "Kopya" kelimesini değiştirmeniz gerekebilir. Bu makalede, birden fazla randevu konusunu arayıp değiştirmeniz için size VBA kodu sunulmaktadır. Daha fazla ayrıntı için lütfen inceleyin.

VBA kodu ile randevu konusunu arayıp değiştirme

---

VBA kodu ile randevu konusunu arayıp değiştirme

Bu bölümde, aşağıdaki VBA kodunu kullanarak randevu konusunu arayıp değiştirebilirsiniz.

1. İlk olarak, Outlook’taki makro ayarlarınızı düşük seviyeye indirmeniz gerekir.

1) Outlook 2010 ve 2013 sürümlerinde, "Dosya" > "Seçenekler" yolunu izleyin. "Outlook Seçenekleri" iletişim kutusunda sol çubuktan "Güven Merkezi"ne tıklayın, ardından "Güven Merkezi Ayarları" düğmesine tıklayın.

“Güven Merkezi” iletişim kutusunda, sol bölmeden “Makro Ayarları” seçeneğine tıklayın. Ardından “Makro Ayarları” bölümünde “Tüm makroları etkinleştir” kutucuğunu işaretleyip “Tamam” düğmesine tıklayın. Ekran görüntüsüne göz atın:

2) Outlook 2007 sürümünde “Araçlar” > “Güven Merkezi” yolunu izleyin. “Güven Merkezi” iletişim kutusunda sol bölmeden “Makro Ayarları”na tıklayıp “Makrolar için güvenlik denetimi yapma” seçeneğini seçin ve “Tamam” düğmesine tıklayın.

2. "Microsoft Visual Basic for Applications" penceresini açmak için "Alt" + "F11" tuşlarına basın.

3. "Microsoft Visual Basic for Applications" penceresinde, VBA düzenleyicisini açmak için "Proje1" > "Microsoft Outlook Nesneleri" > "ThisOutlookSession" öğesini çift tıklayarak genişletin. Ekran görüntüsüne göz atın:

4. Aşağıdaki VBA kodunu kopyalayın ve VBA düzenleyicisine yapıştırın. Kodu çalıştırmak için "F5" tuşuna basın.

VBA: Bul ve Değiştir randevu konusu

Sub FindReplaceAppointment()
    Dim oApp As Outlook.Application
    Dim oCalFolder As Outlook.MAPIFolder
    Dim oAppt As Outlook.AppointmentItem
    Dim sOldText As String
    Dim sNewText As String
    Dim iCalChangedCount As Integer
    Set oApp = Outlook.Application
    MsgBox ("This script will perform a find/replace in the subject line of all appointments in a specified calendar.")
    sOldText = InputBox("What is the text string that you would like to replace?")
    sNewText = InputBox("With what would you like to replace it?")
    ' Check to be sure a Calendar folder was selected
    Do
    If Not (oCalFolder Is Nothing) Then
        If (oCalFolder.DefaultItemType = olAppointmentItem) Then Exit Do
    End If
    MsgBox ("Please select a calendar folder from the following list.")
    Set oCalFolder = Application.Session.PickFolder
    On Error GoTo ErrHandler:
    Loop Until oCalFolder.DefaultItemType = olAppointmentItem
    ' Loop through appointments in calendar, change text where necessary, keep count
    iCalChangedCount = 0
    For Each oAppt In oCalFolder.Items
        If InStr(oAppt.Subject, sOldText) <> 0 Then
            Debug.Print "Changed: " & oAppt.Subject & " - " & oAppt.Start
            oAppt.Subject = Replace(oAppt.Subject, sOldText, sNewText)
            oAppt.Save
            iCalChangedCount = iCalChangedCount + 1
        End If
    Next
    ' Display results and clear table
    MsgBox (iCalChangedCount & " appointments had text in their subjects changed from '" & sOldText & "' to '" & sNewText & "'.")
    Set oAppt = Nothing
    Set oCalFolder = Nothing
Exit Sub
ErrHandler:
    MsgBox ("Macro terminated.")
End Sub

5. Kod çalıştırıldıktan sonra bir "Microsoft Outlook" iletişim kutusu açılır; "Tamam" düğmesine tıklayın.

6. İkinci "Microsoft Outlook" iletişim kutusunda, değiştirmek istediğiniz metni girin ve "Tamam" düğmesine tıklayın.

7. Üçüncü "Microsoft Outlook" iletişim kutusunda, yerine kullanmak istediğiniz metni girip "Tamam"a tıklayın.

Not: Belirtilen takvimdeki konudan tüm "Kopya" kelimelerini kaldırmak istiyorsanız, lütfen bu kutuyu boş bırakın.

8. Aşağıdaki iletişim kutusunda "Tamam" düğmesine tıklayın.

9. "Klasör Seç" iletişim kutusunda, belirtilen e-posta hesabınızın altındaki takviminizi seçip "Tamam" düğmesine tıklayın. Ekran görüntüsüne göz atın:

10. Ardından, değişikliğin başarıyla gerçekleştiğini bildiren bir iletişim kutusu açılacaktır. Lütfen "Tamam" düğmesine tıklayın.

11. Böylece seçili takviminizdeki tüm konu metinleri yeni içerikle güncellenmiştir.