Outlook'ta görev oluştururken varsayılan başlangıç tarihini bugün olarak nasıl ayarlarım?

Outlook'ta bir Görev oluşturduğunuzda, “Başlangıç Tarihi” içeren görevler, aşağıdaki ekran görüntüsünde gösterildiği gibi varsayılan olarak “Yok” olarak görüntülenir. Ancak bazen Başlangıç Tarihi’ni sık sık bugün olarak ayarlamanız gerekir; bu durumda her seferinde “Başlangıç Tarihi” alanından tarihi manuel olarak seçmek zorunda kalırsınız. Peki Outlook’ta bir Görev oluştururken varsayılan Başlangıç Tarihi’ni otomatik olarak bugün yapmanın hızlı bir yolu var mı?

Outlook'ta VBA koduyla bir Görev oluştururken varsayılan Başlangıç Tarihi'i bugün olarak ayarlama

---

Outlook'ta VBA koduyla bir Görev oluştururken varsayılan Başlangıç Tarihi'i bugün olarak ayarlama

Outlook’ta bu görevi doğrudan çözmek için başka etkili bir yol bulunmayabilir; bu nedenle işinizi halledecek bir VBA kodu paylaşacağım. Lütfen aşağıdaki adımları uygulayın:

1. Outlook'u başlatın ve ardından ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

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

VBA kodu: Varsayılan Başlangıç Tarihi'i bugün olarak ayarla:

Public WithEvents xInspectors As Outlook.Inspectors
Public WithEvents xTaskItem As Outlook.TaskItem
Private Sub Application_Startup()
   Set xInspectors = Outlook.Inspectors
End Sub
Private Sub xInspectors_NewInspector(ByVal Inspector As Inspector)
    If Not (TypeOf Inspector.CurrentItem Is TaskItem) Then Exit Sub
    Set xTaskItem = Inspector.CurrentItem
End Sub
Private Sub xTaskItem_Open(Cancel As Boolean)
If (Len(xTaskItem.Subject) = 0 And Len(xTaskItem.Body) = 0) And (xTaskItem.StartDate = #1/1/4501# And xTaskItem.DueDate = #1/1/4501#) Then
    xTaskItem.StartDate = Now
End If
End Sub

3. Kodu ekledikten sonra imleci ikinci kod bölümüne getirin ve bu kodu çalıştırmak için F5 tuşuna basın; ekran görüntüsüne bakın:

4. Bundan sonra her görev oluşturduğunuzda, Outlook Başlangıç ve Bitiş tarihlerini varsayılan olarak geçerli tarihe otomatik olarak ayarlayacaktır; aşağıdaki ekran görüntüsünde gösterildiği gibidir: