Outlook’ta birden fazla randevuyu hızlı bir şekilde göreve nasıl dönüştürebilirim?

Bu makalede, Outlook’ta bir ya da birden fazla randevuyu hızlı ve kolayca göreve nasıl dönüştüreceğinizi öğreneceksiniz.

Sürükle-bırak yöntemiyle tek bir randevuyu göreve dönüştürme

VBA kodu uygulayarak birden fazla randevuyu göreve dönüştürme

---

Sürükle-bırak yöntemiyle tek bir randevuyu göreve dönüştürme

Tek bir randevuyu göreve dönüştürmek için yeterince kolay: randevuyu görev klasörüne sürükleyin. Aşağıdaki adımları izleyin:

1. «Takvim» penceresinde, göreve dönüştürmek istediğiniz randevuyu seçin ve aşağıdaki ekran görüntüsünde gösterildiği gibi, alt kısımda yer alan Gezinme çubuğundaki «Görevler» simgesine sürükleyip bırakın:

2. Ardından yeni bir «Görev» penceresi açılacaktır. Bu randevuyu görev olarak kaydetmek için «Kaydet ve Kapat» düğmesine tıklayın.

---

VBA kodu uygulayarak birden fazla randevuyu göreve dönüştürme

Birden fazla randevuyu göreve dönüştürmeniz gerekiyorsa, aşağıdaki VBA kodu işinizi kolaylaştırabilir. Lütfen şu adımları izleyin:

1. «Microsoft Visual Basic for Applications» penceresini açmak için «Alt + F11» tuşlarına basılı tutun.

2. «Ekle» > «Modül» seçeneğine tıklayarak açılan boş modüle aşağıda verilen kodu kopyalayıp yapıştırın:

VBA kodu: Birden fazla randevuyu göreve dönüştürme

Sub ConvertAppointmentsToTasks()
Dim xItemCollection As VBA.Collection
Dim xActiveWindow As Object
Dim xItem As Object
Dim xSelection As Outlook.Selection
Dim xTaskFolder As Outlook.Folder
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xTaskItem As Outlook.TaskItem
On Error Resume Next
Set xItemCollection = New VBA.Collection
Set xActiveWindow = Outlook.Application.ActiveWindow
If TypeOf xActiveWindow Is Inspector Then
    Set xItem = xActiveWindow.CurrentItem
    If xItem.Class = olAppointment Then xItemCollection.Add xItem
Else
    Set xSelection = xActiveWindow.Selection
    If xSelection Is Nothing Then Exit Sub
    For Each xItem In xSelection
        If xItem.Class = olAppointment Then xItemCollection.Add xItem
    Next
End If
Set xTaskFolder = Application.Session.PickFolder
If xTaskFolder Is Nothing Then Exit Sub
For Each xAppointmentItem In xItemCollection
    Set xTaskItem = xTaskFolder.Items.Add(olTaskItem)
    With xTaskItem
        .StartDate = Format(xAppointmentItem.Start, "Short Date")
        .DueDate = Format(xAppointmentItem.End, "Short Date")
        .Subject = xAppointmentItem.Subject & " (Randevudan)"
        .Categories = xAppointmentItem.Categories
        .Body = xAppointmentItem.Body
        .Save
        .Display
    End With
Next
End Sub

3. Göreve dönüştürmek istediğiniz randevuları seçin ve bu kodu çalıştırmak için «Makroyu Çalıştır» düğmesine tıklayın.

4. Ardından bir «Klasör Seç» iletişim kutusu açılacaktır. Dönüştürülen sonuçların kaydedileceği «Görevler» klasörünü seçin.

5. «Tamam» düğmesine tıklayın; böylece tüm seçili randevular görev olarak oluşturulacaktır. Ardından, açılan her bir «Görev» penceresini Kaydet ve Kapat butonlarıyla tek tek kapatın.

6. Artık «Görev» klasörüne giderek seçtiğiniz tüm randevuların görev olarak kaydedildiğini görebilirsiniz.