Outlook'ta bir randevuyu toplantıya ve tam tersini nasıl değiştirebilirim?

Outlook'ta bir randevuyu toplantıya değiştirin

Outlook'ta toplantıları randevulara değiştirin

Bu yöntem, bir randevu için toplantı katılımcılarını davet etmenizi sağlayacak ve randevuyu Outlook'ta toplantıya dönüştürecektir.

1. Takvim görünümüne geçin, Takvim'de toplantıya dönüştüreceğiniz randevuya sağ tıklayın ve ardından sağ tıklama menüsünden "Katılımcıları Davet Et" seçeneğini seçin. Ekran görüntüsüne bakın:

2. Şimdi, seçilen randevunun içeriğiyle bir toplantı penceresi açılıyor. Lütfen "Kime" düğmesine tıklayın. Ekran görüntüsüne bakın:

3. Açılan Katılımcıları ve Kaynakları Seç iletişim kutusunda, davet edeceğiniz kişileri seçin, ihtiyacınıza göre "Gerekli"/"İsteğe Bağlı"/"Kaynaklar" düğmesine tıklayın ve "Tamam" düğmesine basın. Yukarıdaki ekran görüntüsüne bakın:

Not: "Ctrl" tuşunu basılı tutarak her bir kişiyi tıklayarak birden fazla bitişik olmayan kişiyi seçebilirsiniz; "Shift" tuşunu basılı tutarak ilk kişiyi ve son kişiyi tıklayarak birden fazla bitişik kişiyi seçebilirsiniz.

4. Şimdi toplantı penceresine geri döndünüz, lütfen toplantı içeriğini düzenleyin ve "Gönder" düğmesine tıklayın.

Şimdiye kadar, seçilen randevuyu bir toplantıya dönüştürdük ve belirlenen katılımcılara gönderdik.

Bu yöntem, Outlook'ta seçilen toplantıları randevulara dönüştürmek için bir VBA tanıtacaktır. Lütfen aşağıdaki adımları izleyin:

1. Takvim görünümüne geçin ve Takvim'de randevuya dönüştüreceğiniz toplantıları tıklayarak seçin.

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

3. "Ekle" > "Modül"'e tıklayın ve ardından aşağıdaki VBA kodunu yeni Modül penceresine yapıştırın.

VBA: Outlook'ta toplantıyı randevulara dönüştürme

Sub Meetings2Appointments()
Dim sWindowType As String
Dim oItem As Object

sWindowType = TypeName(Application.ActiveWindow)
Select Case sWindowType
Case "Explorer"
If Application.ActiveExplorer.Selection.Count > 0 Then
For Each oItem In Application.ActiveExplorer.Selection
Debug.Print oItem.Class
If oItem.Class = olAppointment Then
If oItem.MeetingStatus <> olNonMeeting Then
Call Meeting2Appointment(oItem)
End If
End If
Next
End If
Case "Inspector"
Set oItem = Application.ActiveInspector.CurrentItem
If oItem.Class = olAppointment Then
If oItem.MeetingStatus <> olNonMeeting Then
Call Meeting2Appointment(oItem)
End If
End If
End Select
Set oItem = Nothing
End Sub

Sub Meeting2Appointment(oMeeting As Outlook.AppointmentItem)
With oMeeting
' remove all recipients
Do Until .Recipients.Count = 0
.Recipients.Remove 1
Loop
' reset meeting status
.MeetingStatus = olNonMeeting
.Save
End With
End Sub

4. Bu VBA'yı çalıştırmak için "F5" tuşuna basın veya "Çalıştır" düğmesine tıklayın.

Ve şimdi, tüm seçilen toplantılar Outlook'ta randevulara dönüştürülmüştür.

Outlook takviminden tüm randevuları gizleme

Outlook takviminde doğum günü randevularını gizleme