VB如何利用timer在指定时间发送文件到邮箱，高手进！

利用VB中的timer控件，在指定时间里（例如：一天一次）发送文件到指定邮箱。

代码怎么写？

本人菜鸟~~

您好，你的问题可以有这样的解答

如果用代码解释给你，可能没有这么多的时间

所以先给你一个思路，如果真的需要代码的话

可以继续追问

我可以在空闲时间给你写出相应的代码

思路如下

由于timer控件的时间间隔不能设得过大。

但你又要一天运行一次，所以将timer控件时间间隔设为1000毫秒，即为1秒运行一次

然后根据系统时间做出相应的对照

那就是，取出系统时间，和设定的时间比较，如果等于的话

即运行过程，设定的时间你可以随便变化，如果程序能每天运行的话，即可以每天一次

至于邮件发送的话，建议使用JMAIL组件帮助发送，不过需要你有一个支持SMTP服务的邮箱

如果对以上还有什么不明白的话，欢迎继续追问

Private Sub Command1_Click() Dim objEmail As Object Set objEmail = CreateObject("CDO.Message") objEmail.From = "自己的邮箱地址" objEmail.To = "要接收邮件人的地址" objEmail.Subject = "邮件主题" objEmail.Textbody = "邮件正文" objEmail.AddAttachment "F:\Visual Basic语言参考-函数速查.rar" '附件内容 objEmail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.tom.com" objEmail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objEmail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/sendusername") = "用户名" objEmail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/sendpassword") = "密码" objEmail.Configuration.Fields.Update objEmail.Send End Sub

加个定时器就好了

直接调系统时间取值吧 也算定时发送啊

你应该知道,timer时间是以0.001秒为单位。一秒是1000。一个小时3600秒。一天24小时，你说，这数很大。它的参数只能到50000以下（我试过60000不行，具体不知道最大值）。如果不加以计算，保存，累加时间的话，你只能用时间相减。每半分钟检查一次。这样才行！