Question

Excel VBA 能实现定时自动发送邮件吗

Answer 1

可以，

Private Sub CommandButton1_Click()
 Dim cm As New CDO.Message
 cm.From = "w@163.com" '设置发信人的邮箱"
 cm.To = "c@163.com" '设置收信人的邮箱
 cm.Subject = Range("C5").Value & Format(Now, "yyyymmdd") & "跨界断面附表8" '设定邮件的主题
 cm.AddAttachment ThisWorkbook.FullName
 stUl = "
微软服务器网址
 With cm.Configuration.Fields
     .Item(stUl & "smtpserver") = "smtp.163.com"         'SMTP服务器地址
     .Item(stUl & "smtpserverport") = 25             'SMTP服务器端口
     .Item(stUl & "sendusing") = 25                       '发送端口
     .Item(stUl & "smtpauthenticate") = 1      '需要提供用户名和密码，0是不提供           '
     .Item(stUl & "sendusername") = "wnn19841213"                '发送方邮箱名称
     .Item(stUl & "sendpassword") = "123321"                  '发送方邮箱密码
     .Update
 End With
 cm.Send '最后当然是执行发送了
 Set cm = Nothing
 '发送成功后即时释放对象
 End Sub