2014-01-04 2 views
0

привет, я хочу отправить письмо в любой день в тот же час, как и в случае с 1630, возможно с помощью макросов. Я нашел несколько макросов, но они работают вручную. вот простой код:отправка автоматической почты с использованием прогноза

Sub sendMail() 
    Dim olApp As Outlook.Application 
    Dim objMail As Outlook.MailItem 
    Set olApp = Outlook.Application 
    Set objMail = olApp.CreateItem(olMailItem) 
    objMail.BodyFormat = olFormatPlain 
    objMail.Subject = "Hi!" 
    objMail.Body = "A test mail" 
    objMail.To = "[email protected]" 
    objMail.Send 
End Sub 

Я не мог вставить временную переменную, могу ли вы мне помочь?

ответ

0

Вы должны использовать свойство DeferredDeliveryTime:

objMail.DeferredDeliveryTime 
более

информации о here

+0

спасибо за ответ, но я не получаю, что я должен запускать это каждый день макро или один прогон будет достаточно? –

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