根据date自动从Excel中发送电子邮件

我有一个Excel表格与过时的日程安排信息。 我想每天发送更多的电话以及每天有多less次预约。 电子表格如下所示：

Date Scheduled Called Notes 07/06/2015 0 5 None 07/07/2015 5 12 None 07/08/2015 2 10 None 

我想写一个程序，说在2015年6月7日，一个电子邮件将生成与计划的日子，电话和笔记在身体并自动发送。 这可能吗？

Answer 1

这是我认为可能是一个坚实的开始。 你显然必须解决什么电子邮件地址的消息应该被发送到如何格式化正文什么的。

r给出的范围取决于您提供的样本数据，它占据了A2-A4，但将其更改为任何正确的数据。

 Option Explicit Sub email() Dim r As Range Dim cell As Range Set r = Range("A2:A4") For Each cell In r If cell.Value = Date Then Dim Email_Subject, Email_Send_From, Email_Send_To, _ Email_Cc, Email_Bcc, Email_Body As String Dim Mail_Object, Mail_Single As Variant Email_Subject = "subject" Email_Send_From = "[e-mail]" Email_Send_To = "[e-mail]" Email_Cc = "[e-mail]" Email_Bcc = "[e-mail]" Email_Body = "body" On Error GoTo debugs Set Mail_Object = CreateObject("Outlook.Application") Set Mail_Single = Mail_Object.CreateItem(0) With Mail_Single .Subject = Email_Subject .To = Email_Send_To .cc = Email_Cc .BCC = Email_Bcc .Body = Email_Body .send End With End If Next Exit Sub debugs: If Err.Description <> "" Then MsgBox Err.Description End Sub