2

以下のような文字列で今日の日付を持つ関数を呼び出したいMSAccessデータベースがあります。作成される新しいメールの件名とメール本文に今日の日付を入れようとしています。これを達成するためのアイデアはありますか？

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
4

1 に答える 1

2

ThisDay変数 Format()に式を格納しようとしています。文字列を返すので、一致する変数を宣言します。Format()

'Dim ThisDay As Date
Dim ThisDay As String

書式設定された日付文字列をThisDayに読み込んだ後、それを残りの件名に連結できます。

'.Subject = "Daily Email Processed " *(Thisday)
.Subject = "Daily Email Processed " & Thisday
于 2013-02-12T07:01:35.600 に答える