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

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

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

来源

2013-02-12 CrashOverride

'Format（）'返回一个字符串，所以Dim Dim ThisDay As String'。该代码是否存在其他问题？你有错误吗？ – HansUp 2013-02-12 05:55:56

好的谢谢你，但我将如何在.Subject =“每日电子邮件计数”＆Thisday＆像这样或什么？ – CrashOverride 2013-02-12 06:01:49

通常情况下，编写带有主题，正文，配方等的'mailto：// ..'url并让操作系统在发送之前解析邮件客户端以编辑邮件。请参阅http://email.about.com/od/mailtoemaillinks/a/mailto_elements.htm，并确保您在添加到网址之前对所有数据进行UrlEncode。 – ja72 2013-02-12 06:12:46

要存储在您的THISDAY变量Format()表达。 Format()返回一个字符串，所以声明要匹配的变量。

'Dim ThisDay As Date 
Dim ThisDay As String

加载了格式化的日期字符串转换成THISDAY后，可以将其串联在主题行的其余部分。

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

来源

2013-02-12 07:01:35 HansUp

真棒它的作品感谢您的支持@Hansup – CrashOverride 2013-02-12 07:27:49

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

回答

相关问题