有什么办法可以每天定时发送邮件么

cxzdd

比如，每天上午7点要发送邮件到xx@sohu.com，同样的内容，可以使用outlook实现么？当然电脑是24小时开着的

Kevin

需要自行创建相应的VBA代码来实现。

cxzdd

创建了一个，结果设成死循环了，有没有现成可以用的代码呢？

aaaaabbbbb

把你的代码帖出来大家帮你看一下。

cxzdd

Sub SendMyMail()
    Set myOlApp = CreateObject("Outlook.Application")
    Set myItem = myOlApp.CreateItem(olMailItem)
    myItem.To = "test" 'test用相应收件人或收件人组代替'
    myItem.Subject = "test"  'test为邮件标题'
    Set myAttachments = myItem.Attachments
    myAttachments.Add "C:\path\" '附件地址'
    myItem.Send
End Sub
Private Sub Application_Startup()
thistime = Time
Dim runtime1 As Date
Dim runtime2 As Date
runtime1 = "h1:m1:s1" '在此时间后发送'
runtime2 = "h2:m2:s2" '在此时间前发送'
If thistime > runtime1 Then '或 And thistime < runtime2 Then
Call SendMyMail
End If
End Sub

经测试这个不是很好用，无法实现循环的效果，比如一小时发一次。。。

亦我

我也需要实现这样的功能，关注中～

wangjwpx

好懒的管理员，用一句话回答网友的问题。人家不知道才问，大家不是学计算机，不是研究计算机的，我们只要应用。

binxue168

假如不是每天的话，Outlook其实自带了定时发送这个功能:方法如下
　  首先新建一封邮件，填写好你要发送的主题、内容、收件人等信息，然后点击工具栏的“选项按键”（也可点击“视图/选项”）。在弹出的对话框中在“传递不早于”前面打上勾，然后在后面的下拉菜单中选择要发送这封邮件日期和时间。最后点击发送按键，这个时候这封信就在你的发件箱中呆着了。接下来将Outlook自动收发信件的功能打开：点击“工具/选项/邮件设置/发送/接受”，将“安排自动发送/接受的时间间隔为”前面打上勾，然后输入一个你希望的间隔时间，比如5分钟，这样到了邮件设置的时间后就会自动发送这封提示邮件了，非常方便。

cxzdd

嗯，这个方法我知道，和定时发送邮件差不多，现在已经研究出使用excel自动调用的方法定时发送邮件，弊端是必须开着excel，计算机设成自动启动也可以，哎，，，

aaaaabbbbb

你写的是IF判断，没有达到循环的效果。
可以参考一下以下帖子：

http://topic.csdn.net/t/20051227/20/4484938.html