Question

excel vba怎么实现 邮箱的定时发送邮件的功能？在哪里添加可以实现，outlook延时传递的功能

Sub mail()
Application.ScreenUpdating = False
On Error Resume Next
Dim Temp As Object
Dim Newmail As Object
Dim strg As String
Set Temp = CreateObject("outlook.application")
Set Newmail = Temp.CreateItem(0) '寻找默认的outlook
With Newmail
.Application.OnTime ("07:25:30")
.To = "1593976354@qq.com"
.DeferredDeliveryTime = 2014 / 9 / 30
.CC = ""
.Subject = "东方德发excel关键日期提醒"
.Body = "EXCEL发邮件" '
.Attachments.Add ("C:\Users\HOULEI\Desktop\dhdh\合同.xlsm")

.Send
End With
Set Temp = Nothing
Set Newmail = Nothing
Application.ScreenUpdating = True
End Sub
在哪里添加可以实现，outlook延时传递的功能

Answer 1

建议用易语言编写

追问

主要就差定时功能了，不知道怎么添加，你会吗？

追答

追问

留个qq号聊好吗，亲

Answer 2

我只知道怎么用QQ邮箱发送，OUTLOOK不知道是不是也适用

Answer 3

我有兴趣给你研究 已经私信你了