Note: The other languages of the website are Google-translated. Back to English

Outlook'ta birden çok randevuyu hızlı bir şekilde görevlere dönüştürmek nasıl?

Bu yazımda, Outlook'ta bir randevuyu veya birden çok randevuyu hızlı ve kolay bir şekilde görevlere nasıl dönüştüreceğimden bahsedeceğim.

Sürükleyip bırakarak bir randevuyu göreve dönüştürün

VBA kodunu uygulayarak birden çok randevuyu görevlere dönüştürün


Sürükleyip bırakarak bir randevuyu göreve dönüştürün

Bir randevuyu göreve dönüştürmek için, randevuyu görev klasörüne sürüklemeniz yeterlidir, lütfen şu şekilde yapın:

1. In Takvim penceresinde, göreve dönüştürmeniz gereken randevu öğesini seçin ve ardından bunu Görevler Aşağıdaki ekran görüntüsü gibi gezinme bölmesinin altındaki simge:

görev 1 için doc randevusu

2. Sonra yeni bir Görev penceresi görüntülenir, lütfen tıklayın Kaydet kapat Bu randevuyu görev olarak kaydetmek için düğmesine basın. Ekran görüntüsüne bakın:

görev 2 için doc randevusu


VBA kodunu uygulayarak birden çok randevuyu görevlere dönüştürün

Birden fazla randevunuz varsa, görevlere dönüştürülmesi gerekiyorsa, aşağıdaki VBA kodu size bir iyilik yapabilir, lütfen aşağıdaki işlemleri gerçekleştirin:

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. Ve sonra tıklayın Ekle > modül, aşağıdaki kodu kopyalayıp açılan boş modüle yapıştırın, ekran görüntüsüne bakın:

VBA kodu: Birden çok randevuyu görevlere dönüştürün

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 & " (From Appt)"
        .Categories = xAppointmentItem.Categories
        .Body = xAppointmentItem.Body
        .Save
        .Display
    End With
Next
End Sub

görev 3 için doc randevusu

3. Ardından göreve dönüştürmek istediğiniz randevuları seçin ve ardından Makroyu Çalıştır Bu kodu çalıştırmak için düğme, ekran görüntüsüne bakın:

görev 4 için doc randevusu

4. Ve sonra a Klasör Seç iletişim kutusu açılır, bir Görevler Dönüştürülen sonuçları kaydetmek istediğiniz klasör, ekran görüntüsüne bakın:

görev 5 için doc randevusu

5. Sonra tıklayın OK düğmesi ve seçilen tüm randevular görevler olarak oluşturulacaktır ve ardından kaydedip kapatmalısınız. Görev tek tek pencere, ekran görüntüsüne bakın:

görev 6 için doc randevusu

6. Daha sonra şuraya gidebilirsiniz: Görev klasör, seçilen tüm randevular yeni görevler olarak kaydedildi, ekran görüntüsüne bakın:

görev 7 için doc randevusu


Outlook için Kutools - Outlook'a 100 Gelişmiş Özellik Getirir ve Çalışmayı Çok Daha Kolay Hale Getirir!

  • Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Özel olarak birden çok E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
  • BCC Uyarısı - tümünü yanıtlamaya çalıştığınızda mesaj göster posta adresiniz BCC listesindeyse; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
  • Posta görüşmesindeki Tüm Eklerle Yanıtla (Tümü); Birçok E-postayı Yanıtla saniyeler içinde; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Tarih Ekle ...
  • Ek Araçları: Tüm Postalardaki Tüm Ekleri Yönetin, Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Kaydet ... Hızlı Rapor, Seçili Postaları Say...
  • Güçlü Önemsiz E-postalar özel olarak; Yinelenen Postaları ve Kişileri Kaldır... Outlook'ta daha akıllı, daha hızlı ve daha iyi yapmanızı sağlar.
shot kutools görünüm kutools sekmesi 1180x121
shot kutools görünüm kutools artı sekme 1180x121
 
Yorumları sıralama ölçütü
Yorumlar (0)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır