Outlook’ta bir randevuyu toplantıya ya da tam tersini nasıl dönüştürebilirim?

Outlook'ta bir randevuyu toplantıya dönüştürme

Outlook'ta toplantıları randevuya dönüştürme

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

1. Takvim görünümüne geçin, toplantıya dönüştürmek istediğiniz randevuya sağ tıklayın ve açılan menüden “Katılımcı Davet Et” seçeneğini seçin. Ekran görüntüsüne göz atın:

2. Artık seçili randevunun içeriğiyle bir toplantı penceresi açılıyor. Lütfen "Kime" düğmesine tıklayın. Ekran görüntüsüne göz atın:

3. Açılan **Katılımcıları ve Kaynakları Seç** iletişim kutusunda, davet etmek istediğiniz kişileri seçin; gerekirse **"Zorunlu"**, **"İsteğe Bağlı"** veya **"Kaynaklar"** düğmesine tıklayın ve ardından **"Tamam"**’a basın. Yukarıdaki ekran görüntüsüne göz atın:

Not: Bitişik olmayan birden fazla kişiyi seçmek için "Ctrl" tuşuna basılı tutarak her bir kişiye tıklayabilirsiniz; bitişik birden fazla kişiyi seçmek için ise "Shift" tuşuna basılı tutarak ilk kişiye ve son kişiye tıklayın.

4. Artık toplantı penceresine geri döndünüz; lütfen toplantı içeriğini düzenleyip “Gönder” düğmesine tıklayın.

Şu ana kadar seçili randevuyu toplantıya dönüştürdük ve belirtilen katılımcılara zaten gönderdik.

Bu yöntem, Outlook’ta seçili toplantıları randevuya dönüştürmek için bir VBA kodu sunar. Lütfen aşağıdaki adımları uygulayın:

1. Takvim görünümüne geçin ve Takvim'de randevuya dönüştürmek istediğiniz toplantıları seçmek için tıklayın.

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

3. "Ekle" > "Modül" seçeneğine tıklayıp aşağıdaki VBA kodunu yeni Modül penceresine yapıştırın.

VBA: Outlook'ta toplantıyı randevuya 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 kodunu çalıştırmak için "F5" tuşuna basın veya "Çalıştır" düğmesine tıklayın.

Ve şimdi tüm seçili toplantılar Outlook’ta randevuya dönüştürüldü.

Outlook'ta takvimden tüm randevuları gizleme

Outlook'ta takvimden doğum günü randevularını gizleme