Отправка электронной почты из 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