Outlook'ta toplantı daveti göndermeyi nasıl geciktirebilirim?

Author: Xiaoyang Last Modified: 2025-06-10

Normalde, bir iletiyi hemen göndermek yerine belirli bir saatte göndermek için Gecikmeli Teslim özelliğini kullanabilirsiniz. Ancak, bazen bir e-posta gibi bir toplantı davetini geciktirmek isteyebilirsiniz. Outlook'ta ihtiyaç duyduğunuz şekilde belirli bir zamanda toplantı daveti göndermek için ne yapabilirsiniz?

Outlook'ta VBA kodu ile toplantı daveti göndermeyi geciktirme

Outlook'ta VBA kodu ile toplantı daveti göndermeyi geciktirme

Belki de Outlook'ta bir toplantı davetini geciktirmek için doğrudan bir yol yoktur, ancak aşağıdaki VBA kodu size yardımcı olabilir, lütfen şu adımları izleyin:

1. İlk olarak, yeni bir görev oluşturmalısınız. Yeni Görev penceresinde:

(1.) Toplantı için konuyu, başlangıç tarihini ve bitiş tarihini belirtin;

(2.) Toplantı davetini göndermek istediğiniz hatırlatma tarihini ve saatini ayarlayın;

(3.) İhtiyaçlarınıza göre toplantı mesajını yazın.

2. Görevi oluşturduktan sonra, lütfen bu pencereyi kapatmak için Kaydet ve Kapat seçeneğine tıklayın.

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

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

VBA kodu: Toplantı daveti göndermeyi geciktirme:

Private Sub Application_Reminder(ByVal Item As Object)
    Dim xTaskItem As TaskItem
    Dim xAppointmentItem As AppointmentItem
    Dim xRcpArr() As String
    If (Item.Class <> olTask) Or (LCase(Item.Subject) <> "Meeting test") Then
        Exit Sub
    End If
    Set xTaskItem = Item
    xRcpArr = VBA.Split("yy@addin99.com,sky@addin99.com,ruby@addin99.com", ",")
    Set xAppointmentItem = Outlook.Application.CreateItem(olAppointmentItem)
    With xAppointmentItem
        .MeetingStatus = olMeeting
        For i = 0 To UBound(xRcpArr)
            .Recipients.Add (xRcpArr(i))
        Next
        .Subject = xTaskItem.Subject
        .Location = "Office room 1002"
        .Start = xTaskItem.StartDate + #2:00:00 PM#
        .Body = xTaskItem.Body
        .Duration = 120
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 20
        .Save
        .Send
    End With
    xTaskItem.MarkComplete
    Set xTaskItem = Nothing
End Sub

Not: Yukarıdaki kodda: Meeting test, 1. adımda oluşturduğunuz toplantı için belirlediğiniz konudur; ayrıca, alıcı adresleri, toplantı yeri, başlangıç saati ve toplantı süresi bilgilerini kendi bilgilerinizle değiştirmelisiniz.

5. Kodu kaydedip kapatın ve ardından bu kodun etkili olması için Outlook'u yeniden başlatın.

6. Artık, belirlediğiniz özel saatte görev öğesi hatırlatıcısı göründüğünde, Outlook toplantı davetini otomatik olarak gönderecektir.