Question

我正在尝试设置宏以发送电子邮件，以在截止日期时间轴上更新人员。该电子邮件应从特定单元格中提取日期并将其放入消息正文中。到目前为止，我可以设置电子邮件以阅读所需的方式，但是在调用日期时遇到了麻烦。

我是vba的超级新手，这可能不是一个可行的功能，但是任何变通办法将不胜感激！谢谢！

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

Dim rev_1 As Date, rev_2 As Date, final_due As Date
rev_1 = Range(I2)
rev_2 = Range(K2)
final_due = Range(M2)

strbody = "XXXXXXX" & vbNewLine & vbNewLine & _
          "This is an update on your project dates:" & vbNewLine & vbNewLine & _
          "Review 1 Suspense: CALL CELL I2 HERE" & vbNewLine & _
          "Review 2 Suspense: CALL CELL K2 HERE" & vbNewLine & _
          "Final Due Date: CALL CELL M2 HERE" & vbNewLine & vbNewLine & _
          "Acoording to this timeline, you are AHEAD/ON TIME/BEHIND." & vbNewLine & vbNewLine & _
          "If you have any questions, please contact XXXX." & vbNewLine & vbNewLine & _



On Error Resume Next
With OutMail
    .To = ""
    .CC = ""
    .BCC = ""
    .Subject = "Upcoming Project - Timeline Update"
    .Body = strbody
    .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

结束子

Answer 1

你好，你可以这样做

"Review 1 Suspense: " & range("I2") & vbNewLine & _

如何在字符串中调用单元格值？

1 个答案: