Отправка электронной почты Outlook в VBA с отложенным временем не отправит на следующий день? - PullRequest
1 голос
/ 15 октября 2010

То, что я пытаюсь сделать, это отправить электронное письмо с использованием 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

Я что-то упустил?

Ответы [ 2 ]

1 голос
/ 04 сентября 2012

cached mode - отключить.

Это случилось со мной, и айтишник на моей работе смог помочь мне это исправить.Я бегу Office 2010.

0 голосов
/ 15 октября 2010

DeferredDeliveryTime является свойством почтового сообщения Outlook.

Если у вас есть сервер Exchange, «отложенная отправка» будет выполняться Exchange.Если у вас нет Exchange, ваше приложение Outlook должно быть активным.

...