在大企業大組織工作的人都知道,為了解除日報表做好後還需要用手工發送郵件的負擔,定制一套自動發送方案是很有必要的。下面系統之家小編就為大家介紹如何讓outlook自動更新郵件。
在工作中,有的朋友需要每天定時發送一封帶附件的郵件,比如每日上報的報表、文件等,這些文件每天都是更新的,但是一般郵件客戶端軟件中的定時發送只能生效一次,而且郵件附件不能自動定時更新,這個問題的確比較棘手,現有的郵件程序、網絡郵箱中均不帶有這種功能,附件添加去後就不能與原文件同步。其實,要實現這種目的,可以通過Outlook以及計劃任務來完成。具體方法如下:
編制自動方案代碼
啟動Outlook2010,按下Alt+F11組合鍵,啟動VBA編輯器,在代碼窗口左側點擊ThisOutlookSession,然後在右側代碼窗口中輸入如下代碼(圖1):
Sub Application_Startup()
Set oApp = Outlook.Application
Set oMessage = oApp.CreateItem(olMailItem)
oMessage.To = "
[email protected] "
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,單擊“下一步”按鈕。
接著在彈出的用戶名以及密碼設置對話框中,輸入你登錄本機的用戶名以及密碼(必須輸入,否則無法運行任務計劃)(圖3),單擊“下一步”,最後單擊“完成”按鈕即可。這樣,當每周的星期五就會自動將帶有附件的郵件自動發送到指定郵箱了。
需要注意的是,如果服務中的任務計劃程序沒有運行,運行上面設置的任務計劃時,會提示錯誤,這時候,可以執行“開始→程序→管理工具→服務”命令,將其中的Task Scheduler設置為“自動”,然後予以啟動即可。