通過計劃任務讓outlook自動定期更新郵件

2020-04-18 12:22:03

字體：大中小

來源：轉載

供稿：網友

在大企業大組織工作的人都知道，為了解除日報表做好后還需要用手工發送郵件的負擔，定制一套自動發送方案是很有必要的。下面小編就為大家介紹如何讓outlook自動更新郵件。

在工作中，有的朋友需要每天定時發送一封帶附件的郵件，比如每日上報的報表、文件等，這些文件每天都是更新的，但是一般郵件客戶端軟件中的定時發送只能生效一次，而且郵件附件不能自動定時更新，這個問題的確比較棘手，現有的郵件程序、網絡郵箱中均不帶有這種功能，附件添加去后就不能與原文件同步。其實，要實現這種目的，可以通過Outlook以及計劃任務來完成。具體方法如下：

編制自動方案代碼

啟動Outlook2010，按下Alt+F11組合鍵，啟動VBA編輯器，在代碼窗口左側點擊ThisOutlookSession，然后在右側代碼窗口中輸入如下代碼（圖1）：

如何讓outlook自動更新郵件

Sub Application_Startup()

Set oApp = Outlook.Application

Set oMessage = oApp.CreateItem(olMailItem)

oMessage.To = "wangxiang169@163.com "

oMessage.Subject = "每日報表 "

oMessage.Attachments.Add ("E:/新建文件夾/每日報表.xls ")

oMessage.Send

Set oMessage = Nothing

Set oApp = Nothing

End Sub

以上代碼中的oMessage.To = 后面是收件人地址，oMessage.Subject =指的是郵件標題，而oMessage.Attachments.Add則指的是所添加的附件文件路徑。

輸入完畢，檢查無誤后，點擊“保存”按鈕，關閉Outlook。

此段代碼的作用是當啟動Outlook時，新建一封郵件，自動添加附件，并將此發郵件予以發送。

制定自動發送任務

執行“開始→程序→系統工具→任務計劃”命令，選擇“添加計劃任務”，然后單擊“下一步”，在彈出的任務計劃向導的程序列表中，選擇Microsoft Outlook 2010，在隨之彈出的向導對話框中選擇執行此任務的循環周期，如“每天”，單擊“下一步”按鈕（圖2），在彈出的對話框中設置起始時間以及日期，如16：30，單擊“下一步”按鈕。

如何讓outlook自動更新郵件