在Outlook中創建新任務時如何將默認開始日期設置為今天?
當我們在Outlook中創建新任務時,帶有“開始日期顯示為 “沒有”,默認情況如下圖所示。 但是,有時您需要經常將今天設置為開始日期,因此,您必須每次在“開始日期”字段中手動選擇日期。 在Outlook中創建新任務時,是否有任何快速方法可以自動將默認開始日期設置為今天?
在Outlook中使用VBA代碼創建新任務時,將默認開始日期設置為今天
在Outlook中使用VBA代碼創建新任務時,將默認開始日期設置為今天
可能沒有其他直接在Outlook中直接處理此任務的好方法,在這裡,我將介紹一個VBA代碼來解決它。 請執行以下步驟:
1。 啟動Outlook,然後按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。
2。 在 Microsoft Visual Basic for Applications 窗口,雙擊 本次展望會議 來自 Project1(VbaProject.OTM) 窗格以打開模式,然後將以下代碼複製並粘貼到空白模塊中。
VBA代碼:將默認開始日期設置為今天:
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。 插入代碼後,將光標置於第二個代碼部分,然後按 F5 運行此代碼的關鍵,請參見屏幕截圖:
4。 從那時起,每次創建新任務時,Outlook都會默認將開始日期和結束日期默認設置為當前日期,如下圖所示:
最佳辦公生產力工具
Kutools for Outlook - 超過 100 種強大的功能可增強您的 Outlook
🤖 人工智慧郵件助手: 具備人工智慧魔力的即時專業電子郵件——一鍵天才回覆、完美語調、多語言掌握。輕鬆改變電子郵件! ……
📧 電子郵件自動化: 外出(適用於 POP 和 IMAP) / 安排發送電子郵件 / 發送電子郵件時按規則自動抄送/密件副本 / 自動轉送(進階規則) / 自動添加問候語 / 自動將多收件者電子郵件拆分為單獨的訊息 ...
📨 電子郵件管理: 輕鬆回憶電子郵件 / 按主題和其他人阻止詐騙電子郵件 / 刪除重複的電子郵件 / 進階搜索 / 合併資料夾 ...
📁 附件專業版: 批量保存 / 批量分離 / 批量壓縮 / 自動保存 / 自動分離 / 自動壓縮 ...
🌟 介面魔法: 😊更多又漂亮又酷的表情符號 / 使用選項卡式視圖提高 Outlook 工作效率 / 最小化 Outlook 而不是關閉 ...
👍 一鍵奇蹟: 使用傳入附件回覆全部 / 反網路釣魚電子郵件 / 🕘顯示寄件者的時區 ...
👩🏼🤝👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人 / 將聯絡人群組拆分為各組 / 刪除生日提醒 ...
超過 100特點 等待您的探索! 按此處了解更多。