根據日期自動從excel發送電子郵件

我有一個帶有過期日程安排信息的Excel工作表。我想每天發送更多的電話和預約多少次約會。電子表格如下所示：根據日期自動從excel發送電子郵件

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

我試圖寫一個程序，說在2015年7月6日，電子郵件將與日如期產生，來電，並在身體的筆記和自動發送。這可能嗎？

來源

2015-07-02 Reg Robinson

這是我認爲可能是一個堅實的開始。您顯然必須解決該郵件應該發送到哪個電子郵件地址以及如何格式化正文以及其他內容。

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 = "[email protected]" 
      Email_Send_To = "[email protected]" 
      Email_Cc = "[email protected]" 
      Email_Bcc = "[email protected]" 
      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

來源

2015-07-02 17:31:06 Dportology

謝謝，這太棒了！但是，您是否知道如何將電子郵件正文中的計劃，調用和Notes單元的引用？現在，它只會發送一封電子郵件，其中包含我爲「body」所分配的任何文本。 –

我沒有時間編輯我的代碼（對不起！），但我會使用索引來跟蹤您所在的行，然後您可以從其他列中獲取適當的數據。祝你好運！ – Dportology

Upvote！任何有用的答案應該是upvoted，爲了海報！ –

根據日期自動從excel發送電子郵件

回答

相關問題