Datum en of tijdstip toevoegen voor verzenden mail

[Andre175]

Hallo allen.

Weet iemand of het mogelijk is om in de VBA code een datum/tijdstip aan te geven voor het verzenden van een mail?

ik verzend vanuit excel mails via outlook, en heb een werkende code.
Nu worden de mails direct verzonden, en ik wil graag de mogelijk inbouwen dat ik datum en tijdstip voor verzenden kan aangeven.

Hier een stukje uit de code waar het volgens mij toegevoegd moet/kan worden.

    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    On Error Resume Next
    With OutMail
        .To = "test@test.nl"
        .CC = ""
        .BCC = ""
        .Subject = "Onderwerp......."
        .HTMLBody = Range........
        .Send   
    End With

    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing

 

[edmoor]

Lees er hier over:
https://medium.com/@BMatB/delaying-email-sending-outlook-vba-dbfd41a6ad01

 

[Andre175]

Thanks.

waarschijnlijk dus zoiets, ga ermee aan de slag.
Ik kom er nu vast wel uit.

    With OutMail
        .To = "test@test.nl"
        .CC = ""
        .BCC = ""
        .Subject = "Onderwerp......."
        .HTMLBody = Range........
        .SendDate = .....
        .SendHour = .......
        .Send   
    End With

 

[edmoor]

Nee, het gaat om .DeferredDeliveryTime

 

[Andre175]

oke...
ik had het ook ff globaal doorgenomen.... zal me er eerst beter in verdiepen.

 

[Andre175]

Kijk..... Als je weet waarnaar je moet zoeken kom je er wel uit.
"DeferredDeliveryTime " in de zoekbalk hierboven en deze oplossing gevonden.
(De code hieronder is een deel van de volledige code te vinden via de link onder "deze oplossing")

    With OutMail                                                    'Maak het mailtje aan
        .To = Ontvanger
        .CC = KopieNaam
        .BCC = BlindeKopieNaam
        .Subject = Onderwerp
        .Body = Aanhef & vbCr & vbLf & vbLf & _
                Tekst & vbCr & vbLf & vbLf & _
                Afsluiting
                
        .Attachments.Add Bestand
                
        .DeferredDeliveryTime = FactDatum & " 05:00"  'Stel verzenddatum uit tot tijdstip dat je meegeeft
        .ReadReceiptRequested = True                  'Ontvanstbevestiging = Aan
        .ReplyRecipientNames = ""                     'Eventueel afwijkend mailadres voor antwoorden.

        .Display    'Laat m in Outlook zien voor verzenden
        '.Send      'Verstuurt m meteen
        '.Save      'Bewaart m in de standaardmap voor concepten, verstuurt niet.
        
    End With

Wederom bedankt voor de aanzet Edmoor.

 

[edmoor]

Graag gedaan