Outlook’ta toplantı davetlerini belirli bir kişiye nasıl otomatik olarak yönlendirebilirim?

Outlook’ta, İlet (Forward) özelliğini kullanarak bir toplantı davetini doğrudan ve manuel olarak belirli bir kişiye iletebilirsiniz. Ancak bazen, toplantıyı kabul ettiğinizde bu davetiyelerin otomatik olarak belirli bir kişiye yönlendirilmesini isteyebilirsiniz. Bu makalede, bir toplantı davetini mümkün olduğunca hızlı bir şekilde nasıl otomatik olarak yönlendireceğinizi anlatacağım.

Outlook'ta VBA koduyla toplantı davetlerini belirli bir kişiye otomatik olarak iletme

---

Outlook'ta VBA koduyla toplantı davetlerini belirli bir kişiye otomatik olarak iletme

Kabul ettikten sonra toplantı davetini belirli bir kişiye otomatik olarak yönlendirmenize yardımcı olabilecek faydalı bir VBA kodu aşağıdadır. Lütfen aşağıdaki adımları uygulayın:

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

2. Microsoft Visual Basic for Applications penceresinde, Project1(VbaProject.OTM) bölmesinden ThisOutlookSession öğesine çift tıklayarak modülü açın ve ardından aşağıdaki kodu boş modüle kopyalayıp yapıştırın.

VBA kodu: Toplantı davetlerini belirli bir kişiye Otomatik Yönlendirme:

Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
    Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As MeetingItem
Dim xMeetingResponse As MeetingItem
Dim xForwardMeeting As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
    Set xMeetingItem = Item
    Set xAppointmentItem = xMeetingItem.GetAssociatedAppointment(True)
    Set xMeetingResponse = xAppointmentItem.Respond(olMeetingAccepted, True)
    xMeetingResponse.Send
    Set xForwardMeeting = xMeetingItem.Forward
    With xForwardMeeting
        With .Recipients
            .Add "skyyang@addin88.com" 'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End If
End Sub

Not: Yukarıdaki kodda alıcı adresini kendi e-posta adresinizle değiştirmelisiniz.

3. Ardından kodu kaydedin ve etkili olması için Outlook'u yeniden başlatın.

4. Artık bir toplantı daveti aldığınızda, toplantı otomatik olarak kabul edilecek ve aynı zamanda bu toplantı hemen belirtilen kişiye Otomatik Yönlendirme yapılacak.

Not: Bu kod yalnızca Varsayılan hesap kullanılabilir olduğunda geçerlidir.