將下面代碼復制到文本文檔，并保存為vbs格式，然后用win7的定時任務執行。

' 注意：以單引號'開頭的行為注釋

' fdt為今日日期的字符串，比如 '2012-3-1'，可用于附件名字里和郵件標題里


' receiptions 為收件人列表，多個收件人之間用分號隔開


' Subject 為郵件標題


' Body 為郵件正文


' Attachments 為附件列表，每個附件都需附帶路徑并用逗號隔開。


' 以下代碼可自定義修改


fdt = FormatDateTime(Date)


receiptions = "1551587600@qq.com"


Subject = "報告 " & fdt


Body = "附件是今日測試，請查收。"


Attachments = Array("H:\其他\測試.xls")?




' 以下代碼無需修改


Dim xOutLook


Dim xMail


On Error Resume Next


Set xOutLook = GetObject(, "Outlook.Application")


If xOutLook Is Nothing Then


?Set xOutLook = CreateObject("Outlook.Application")


End If


Set xMail = xOutLook.CreateItem(olMailItem)


With xMail


?.Display


?Dim signature


?signature = .HTMLBody


?.To = receiptions


?.Subject = Subject


?.HTMLBody = Body


.Importance = olImportanceHigh?



?Dim xDoc


?Set xDoc = xMail.Application.ActiveInspector.WordEditor



?If IsArray(Attachments) Then


?Dim attachment


?For Each attachment In Attachments


?.Attachments.Add attachment


?Next


?End If


?.HTMLBody = .HTMLBody & signature


?.Send

End With

總結

以上是生活随笔為你收集整理的每天定时发邮件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。