То, что я пытаюсь сделать, это отправить электронное письмо с использованием VBA в Excel, хотя Outlook, но с датой / временем отложенной отправки на следующий день около 8:30.Приведенный ниже код отправит электронное письмо в порядке, даже если оно отправлено с отключенным временем отправки, даже когда моя рабочая станция заблокирована, однако, кажется, когда я устанавливаю на следующий день 8:30, они просто остаются в моей папке исходящих сообщений, пока я их не откроювверх и удар, я могу даже открыть их и нажать отправить до отложенного времени, и они будут отправлены нормально, или после, и они отправят сразу.
Переданная переменная defredtime представляет собой строку с форматированием "dd / mm/ гггг чч: мм: сс "например" 15/10/2010 08:30:00 "
Sub Send_Outlook_Email(Addresses, attach, strSubject, strBody, defertime)
Dim objOL As Outlook.Application
Dim msg As Outlook.MailItem
Set objOL = New Outlook.Application
Set msg = objOL.CreateItem(olMailItem)
Dim d As Date
strEmail = ""
For i = 0 To UBound(Addresses)
strEmail = strEmail & Addresses(i) & "; "
Next
strEmail = Trim(strEmail)
With msg
.To = strEmail
.subject = strSubject
.HTMLBody = strBody
For i = 0 To UBound(attach)
strAttach = attach(i)
If Len(strAttach) > 0 And Len(Dir(strAttach)) > 0 Then
.Attachments.Add (strAttach)
End If
Next
.DeferredDeliveryTime = defertime
.Send
End With
End Sub
Я что-то упустил?