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

Author: Xiaoyang Last Modified: 2025-06-10

Outlook'ta, bir toplantı davetini manuel olarak İlet özelliği kullanarak doğrudan belirli bir kişiye iletebilirsiniz. Ancak, bazen bir toplantıyı kabul ettiğinizde, toplantı davetlerini belirli bir kişiye otomatik olarak iletmek isteyebilirsiniz. Bu makalede, bir toplantı davetini mümkün olduğunca hızlı bir şekilde bir kişiye otomatik olarak nasıl iletebileceğinizden bahsedeceğim.

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

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

İşte size kabul ettikten sonra bir toplantı davetini belirli bir kişiye otomatik olarak iletmek için yardımcı olabilecek yararlı bir VBA kodu, lütfen şu adımları izleyin:

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

2. Microsoft Visual Basic for Applications penceresinde, Project1(VbaProject.OTM) bölmesinden ThisOutlookSession öğesine çift tıklayın, modu 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 olarak iletme:

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 adresinizle değiştirmelisiniz.

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

4. Şimdi, bir toplantı daveti aldığınızda, toplantı otomatik olarak kabul edilecek ve aynı anda bu toplantı hemen belirli kişiye otomatik olarak iletilecektir.

Not: Bu kod yalnızca varsayılan hesap için geçerlidir.