根据日期自动从excel发送电子邮件

Question

我有一张excel表格，上面有标注日期的日程信息。我想发送每日更新，有多少电话和有多少预约已经安排了每天。电子表格如下所示：

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

我正在试着写一个程序，说在7/06/2015，将生成一封电子邮件，其中包含计划的日期、电话和正文中的备注，并自动发送。这个是可能的吗？

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 = "bob@bob.com"
            Email_Send_To = "bob@bob.com"
            Email_Cc = "bob@bob.com"
            Email_Bcc = "bob@bob.com"
            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

Answer 2

这有点晚了，但可以对您和其他人有所帮助：

用上面的答案用下面的代码定义notifications.

• Create VB-

• 文件：(打开记事本，粘贴下面的代码，适合你的需要，另存为: vbscript文件)

Path="complete_file_path_of_your_excel_file.xlsm“Macro="email”Set objApp = CreateObject("Excel.Application.16") objApp.Visible = True Set wbToRun = objApp.Workbooks.Open(Path) objApp.Run宏

• 设置Windows任务计划程序，以便在每天的特定时间打开您创建的VBscript文件。

• 您现在有了一个设置并忘记通知机器人。