我目前正在使用 Visual Basic 在 excel 中撰寫一個宏，該宏將根據列中遇到的特定日期發送電子郵件。我附上了一個示例電子表格的螢屏截圖，以試圖幫助澄清我正在嘗試做的事情。
到目前為止，在撰寫的宏中，一旦滿足日期，程式就會發送一封電子郵件，告訴我它到期了。
我需要幫助的部分在電子郵件的主題中，我希望它發送與日期所在行相對應的“名稱”和“序列號”。例如（來自我附加的螢屏截圖）在“1 月 2 日” , 2022”（C 列第 3 行）當電子郵件以主題發送時，它會添加資訊“Gauge”（A 列，第 3 行）和“23456”（B 列，第 3 行）。
對于符合標準的每個日期，我都需要它來執行此操作。
電子郵件主題如下所示：
序列號為“23456”的“儀表”到期。
我已經嘗試了所有我能想到的方法，將在 R 中回傳為 True 的整行添加到電子郵件主題行中。
For Each cell In r
If cell.Value = Date 7 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 = "Gauge Calibration Due"
Email_Send_From = "[email protected]"
Email_Send_To = "[email protected]"
Email_Cc = ""
Email_Body = f
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
.body = Email_Body
.send
End With
End If
Next
Exit Sub
uj5u.com熱心網友回復：
如果“r”已經是您的日期范圍，并且它成功地遍歷它們并彈出電子郵件，那么您只需要主題-試試這個？
For Each cell In r
If cell.Value = Date 7 Then
Dim Email_Subject As String
Dim Email_Send_From, Email_Send_To, _
Email_Cc, Email_Bcc, Email_Body As String
Dim Mail_Object, Mail_Single As Variant
Email_Subject = cell.Offset(0,-2) & " with Serial Number " & cell.Offset(0,-1) & " is due."
Email_Send_From = "[email protected]"
Email_Send_To = "[email protected]"
Email_Cc = ""
Email_Body = f
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
.body = Email_Body
.send
End With
End If
Next cell
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/370217.html
上一篇：導軌。“捆綁安裝”給出了“錯誤的解釋器：Ruby版本升級后沒有這樣的檔案或目錄”錯誤(Windows)
下一篇：@SpringBootTest不會自動裝配JavaMailSender。我設定了所有內容并創建了一個顯式Bean。還是不行