Envoit de mail différé erreur

Bonjour à tous,

J'ai un soucis avec un petit bout de code en apparence tout simple que j'essaye d'écrire.

Je veux envoyer un mail avec la personne en copie en différé.

Sub Envoyer_Mail_Outlook()
Dim oBjMail
Dim DeferredDeliveryTime As Object ' j'ai essayé sans le as Object ou avec d'autre truc comme String)
'(J'ai également essayé en faisant Dim Delai, en gros toutes les combinaisons qui me passais par la tete)

Delai = DateValue(Now) + TimeSerial(0, 5, 0)
With OutMail
    .DeferredDeliveryTime = Delai
End With
    Set ObjOutlook = New Outlook.Application
    Set oBjMail = CreateItem(olMailItem)
      With oBjMail
        .CC = "quelquun@gmail.com" ' le destinataire
        .Display
    End With

End Sub

Quand j'essaye d’exécuter ma macro cela m'affiche erreur 424 sur la ligne : DeferredDeliveryTime = Delai.

Est ce que vous auriez une solution ?

Merci d'avance

Razou

Bonjour Razou,

Il est mieux de définir systématiquement ses variables

Ensuite, pour délai, il faut mettre

Delai = Now() + TimeSerial(0, 5, 0)

Ce qui vous donnera la date et l'heure actuelle + 5 minutes, à tester

@+

Salut,

Pour ce qui est du délai j'avais réussis a solutionner mon problème après je préfère ta façon de faire, ça m'évitera d'avoir a rentrer une valeurs de 2000 minute. Maintenant je suis bloqué sur l'envoie du deuxième mail.

En gros j'envoie le premier mail et je veux qu'il soit envoyer à une autre personne 15 jours plus tard. le premier mail s’envoie très bien mais pas le deuxième.

Pour l'instant niveau code j'en suis la et la deuxième partie de la macro ne se déclenche pas.

Dim oBjMail As Object

Sub EnvoyerMailOutlook()
Dim ObjOutlook As New Outlook.Application
    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
      oBjMail.Dispay 
End Sub

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim Delay As Date
Minutes = 2 '21600 ; le nombre de minutes que je mettrais plus tard
Delay = Now() + TimeSerial(0, 1, 0)
      With oBjMail
        .DeferredDeliveryTime = Delay
        .To = "LeClient@gail.com" ' le destinataire
        .Send
    End With
End Sub

Je suis sur que c'est juste un micro détail qui me manque, si quelqu'un a une solution je suis preneur.