Установите другое время для отправки нескольких писем в Outlook, используя VBA

Question

Я хочу установить время доставки для отправки нескольких электронных писем.Я решаю ввести дату и время в столбце Excel (например, в столбце M).

Я пишу код, который я могу сохранить черновик электронной почты.После того, как я закончил проверку электронной почты.Я отправлю это.но можно ли использовать Vba для настройки времени доставки?

После того, как я закончил проверку, нажмите кнопку отправки.Письмо будет доставлено в определенное время, которое я установил в столбце М. Вот мой код

Sub preview()
On Error GoTo Endnow
Application.ScreenUpdating = False

Dim WordDoc As Object
Dim WordFile As String
'WordFile = Application.GetOpenFilename(Title:="Select MS Word file", MultiSelect:=False)
WordFile = Cells(1, 1).Value
Set WordDoc = GetObject(WordFile)

Dim OutApp As Object, OutMail As Object, OutWordEditor As Object
Set OutApp = CreateObject("Outlook.Application")

On Error GoTo cleanup

Dim cell As Range
For Each cell In Columns("C").Cells.SpecialCells(xlCellTypeConstants)

If LCase(Cells(cell.Row, "B").Value) = "y" Then
Set OutMail = OutApp.CreateItem(0)
Set OutWordEditor = OutMail.GetInspector.WordEditor
On Error Resume Next
With OutMail

.To = cell.Value
.cc = cell.Offset(, 2)
.Subject = Cells(cell.Row, "G").Value
.Body = Cells(cell.Row, "F").Value
Set editor = .GetInspector.WordEditor
editor.Content.Paste
Set WordDoc = GetObject(WordFile)
WordDoc.Content.Copy
OutWordEditor.Content.Paste
OutWordEditor.Range(0).InsertBefore (Cells(cell.Row, "F").Value & vbCrLf & vbCrLf)
WordDoc.Close

.Attachments.Add (Cells(cell.Row, "H").Text)
.Attachments.Add (Cells(cell.Row, "I").Text)
'.Display
.Save


End With
On Error GoTo 0

Set OutMail = Nothing

End If
Next cell

cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True

Endnow:
End Sub

Итак, как мне настроить время доставки с помощью vba?Потому что он получает разное время доставки для каждого получателя.