Как вызвать функцию в строке в 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 ThisDay As String'. У вас есть другие проблемы с этим кодом? Вы получили сообщение об ошибке? – HansUp

Хорошо, спасибо за это, но как я его вызову .Subject = «Ежедневный подсчет электронной почты» и «Сегодня» и как это или что? – CrashOverride

Обычно проще составлять URL-адрес mailto: // .. 'с темой, телом, получателями и т. Д., И пусть ОС разрешает почтовому клиенту редактировать сообщение перед отправкой. См. Http://email.about.com/od/mailtoemaillinks/a/mailto_elements.htm и убедитесь, что вы все данные UrlEncode перед добавлением в URL. – ja72

Вы намерены хранить выражение Format() в вашем ThisDay переменной. 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

Как вызвать функцию в строке в VBA

ответ

Смежные вопросы