Question

我有一个MS Access数据库，我想在其中调用一个函数，该函数今天的日期字符串如下所示。我正在尝试将今天的日期放在主题行和电子邮件正文中，以便创建新电子邮件。有任何想法来实现这个目标吗？

Private Sub Command_Click()

Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem
Dim ThisDay As Date

ThisDay = Format(Now, "mm/dd/yy")    

Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)

With objEmail
    .To = ""
    .CC = ""
    .Subject = "Daily Email Processed " *(Thisday)
    .Body = "Hi," + vbNewLine + vbNewLine + vbNewLine + "Please find below the number of Emails processed for the  " + vbNewLine + vbNewLine + "Email Count = " + vbNewLine + "O Count = "
    .Attachments.Add ""
    .Attachments.Add ""
    .Display        
End With

Set objOutlook = Nothing

End Sub

Answer 1

您打算在 ThisDay 变量中存储Format()表达式。 Format()返回一个字符串，因此声明要匹配的变量。

'Dim ThisDay As Date
Dim ThisDay As String

将格式化的日期字符串加载到 ThisDay 后，您可以将其连接到主题行的其余部分。

'.Subject = "Daily Email Processed " *(Thisday)
.Subject = "Daily Email Processed " & Thisday

如何在VBA中调用字符串中的函数

1 个答案: