Excel Outlook VBA: DeferredDeliveryTime: не работает

Question

Я проверяю, работает ли отложенное время доставки, и вижу, что эти письма не отправляются.Я ничего не вижу в исходящих.Письма будут отправлены, если я просто. Отправить и закомментировать .DeferredDeliveryTime.Кроме того, я попытался вручную изменить Не доставлять раньше времени в Outlook, и это работает.Поэтому я не уверен, что здесь происходит с VBA.

Option Explicit

Private Sub CommandButton1_Click()

Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
Dim olAccount As Outlook.Account

Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)

With olMail

.To = "my email"
.Subject = "test"
.Body = "test"

' .Send
 .DeferredDeliveryTime = DateAdd("n", 10, Now)
End With

End Sub

Answer 1

Согласно моему тесту, вы должны изменить .DeferredDeliveryTime = DateAdd("n", 10, Now) Позицию следующим образом:

Dim olAccount As Outlook.Account

Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)

With olMail
.To = "email address"
.Subject = "test"
.Body = "test"
.DeferredDeliveryTime = DateAdd("n", 10, Now)
.Send

End With

End Sub

Этот код успешно выполнен на моем ПК.