Как я могу автоматически отправлять электронную почту с задержкой из Outlook Inbox usign VBA?

Question

Я новичок в способах VBA, и я хочу создать правило (скрипт), которое может автоматически перенаправлять электронную почту, полученную в моем почтовом ящике Outlook, с указанной задержкой? Не могли бы вы дать мне несколько инструкций о том, как я могу это достичь?

Я пробовал:

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMiliseconds As Long) 
Sub send(Item As Outlook.MailItem) 
Set fwd = Item.Forward 
fwd.Recipients.Add "mail@email.com" 
Sleep (10000) 
fwd.send 
End Sub 

также пытался:

Sub WasteTime(Finish As Long) 

    Dim NowTick As Long 
    Dim EndTick As Long 

    EndTick = GetTickCount + (Finish * 1000) 

    Do 

     NowTick = GetTickCount 
     DoEvents 

    Loop Until NowTick >= EndTick 

End Sub 


Sub send(Ite As Outlook.mailItem) 
    Set fwd = Item.Forward 
    fwd.Recipients.Add "mail@email.com" 
    WasteTime (10) 
    fwd.send 
End Sub 

никакого эффекта.

2-й код фактически замораживает все мое приложение Outlook, которое не является моим желаемым эффектом. Я хочу только отложить повторную отправку сообщения по электронной почте ...

Answer 1

Попробуйте использовать DeferredDeliveryTime Property Который задает время доставки почты.

Пример

Option Explicit 
Public Sub Example() 
    Dim Item As Outlook.MailItem 

    Set Item = Application.CreateItem(0) 

    With Item 
     .Subject = "test" 
     .To = "0m3r" 
     .DeferredDeliveryTime = DateAdd("n", 10, Now) 
     Debug.Print Item.DeferredDeliveryTime 
     .Send 
    End With 

    Set Item = Nothing 
End Sub 

DateAdd Function

DateAdd("n", 10, Now) 

+--------+-----------------+ 
| Value | Explanation | 
+--------+-----------------+ 
| yyyy | Year   | 
| q  | Quarter   | 
| m  | Month   | 
| y  | Day of the year | 
| d  | Day    | 
| w  | Weekday   | 
| ww  | Week   | 
| h  | Hour   | 
| n  | Minute   | 
| s  | Second   | 
+--------+-----------------+