Discussion :

[kamsy]

Bonjour, j'ai trouvé un script vba que j'ai adapté à ce que je voulais, mais je me retrouve avec un problème car je n'arrive pas à faire.
Le script permet de vérifier une date d'expiration et d'envoyer aux personnes concernées un mail les prévenants de l'expiration d'un certificats.
Là ou je bloque c'est que l'alerte dois se faire avant 60 jours et 30 jours
mais si j'automatise la macro tous les jours, les personnes vont recevoir un mails tous les jours, et j'aimerai que ce mail soit envoyé une fois à partir de 60 jrs et une autre à partir de 30 jrs.
si vous pouvez m'aider.
Merci
Si je ne suis pas claire n'hésitez pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub envoimail()
 
Dim messagerie As Object
Dim email As Object
Dim cel As Range
Dim delai As Integer
 
Set messagerie = CreateObject("Outlook.Application")
 
delai = 60 'jours
 
For Each cel In Range("A2:A" & Range("A2").End(xlDown).Row)
    If cel.Offset(, 0).Value - Now < delai Then
 
        Set email = messagerie.CreateItem(0)
 
        With email
            .to = cel.Offset(, 4).Value
            .Bcc = cel.Offset(, 5).Value
            .Subject = "Expiration " & "[" & cel.Offset(, 2) & "]"
            .body = "Bonjour," & vbCrLf & vbCrLf & "corps du message" & cel.Offset(, 3) & " arrive à échéance le " & cel.Offset(, 0) & vbCrLf & "corps du message" & vbCrLf & "corps du message" & vbCrLf & "signature" & vbCrLf & "Tel:"
 
            .ReadReceiptRequested = True
            .display ' à remplacer par .send si ok
        End With
 
        Set email = Nothing
 
    End If
Next cel
 
Set messagerie = Nothing
 
End Sub

[Menhir]

mais si j'automatise la macro tous les jours, les personnes vont recevoir un mails tous les jours, et j'aimerai que ce mail soit envoyé une fois à partir de 60 jrs et une autre à partir de 30 jrs.

Solution simple : tu crées une colonne "Mail envoyé".

Tu la mets à 0 par défaut.

Lorsque tu arrives à ta date d'échéance de -60 jours, tu vérifies que cette colonne de la ligne correspondante est inférieure à 1.
Si ce n'est pas le cas, ma macro n'envoie pas le mail.
Si c'est le cas, elle envoie le mail et passe la case à 1.

Lorsque tu arrives à ta date d'échéance de -30 jours, tu vérifies que cette colonne de la ligne correspondante est inférieure à 2.
Si ce n'est pas le cas, ma macro n'envoie pas le mail.
Si c'est le cas, elle envoie le mail et passe la case à 2.

Et ainsi de suite si tu as d'autres dates d'échéance.

[kamsy]

Bonjour,
Désolé je n'étais pas revenu, entre temps, j'avais trouvé la solution.
j'ai un autre soucis, je mets en place une tache automatisée sur mon serveur, mais le problème c'est qu'elle ne se lance pas.
ce qui est bizarre, c'est que si dans tâche j'active le "paramètre Run Only when user is logged" on ça fonctionne. et si je met "Run whether user is logged on or not" , là ça ne marche pas.
Pour expliquer ce que j'ai fait,
1 ) j'ai créé un script vbs pour l'expiration des dates
2 ) Vbs permettant de lancer la macro
3 ) batch cmd permettant de lancer le vbs
je sais pas si c'était utile.
Ce que je remarque c'est quand je lancer mon vbs à la main ou mon batch cmd ça fonctionne et il lance la commande excel /DDE
lorsque je l'exécute via l'outil task Scheduler , là ça ne fonctionne pas, et il le lance avec le commutateur excel /automation - Embedding
Si vous avez déjà eu le problème
Merci de votre aide, je bloque là

[Invité]

Bonsoir,

Si tu peux exécuter ton vbs c'est parce que tu a une session Windows ouverte ce qui n'est pas forcement le cas avec le gestionnaire de tache.

Si tu utilises dans ton code des lecteurs réseau genre z:\ il est possible qu'il ne soit pas Mapé.

Dans ce cas utilises l'adresse ip \\172.168.1.1 par exemple ou le nom du serveur \\MonServeur.

[kamsy]

Bonjour déjà fait mais toujours rien
Impossible

[kamsy]

Bonjour,
Autre chose,
j'aimerai utiliser ce script VBA avec le protocole Smtp et non en passant par OutlooK
Mon serveur n'a pas outlook d'installer et je ne souhaite pas le mettre.
Comment je pourrai adapter le vba avec le SMTP
Merci

[julien59270]

Bonjour, j'ai trouvé un script vba que j'ai adapté à ce que je voulais, mais je me retrouve avec un problème car je n'arrive pas à faire.
Le script permet de vérifier une date d'expiration et d'envoyer aux personnes concernées un mail les prévenants de l'expiration d'un certificats.
Là ou je bloque c'est que l'alerte dois se faire avant 60 jours et 30 jours
mais si j'automatise la macro tous les jours, les personnes vont recevoir un mails tous les jours, et j'aimerai que ce mail soit envoyé une fois à partir de 60 jrs et une autre à partir de 30 jrs.
si vous pouvez m'aider.
Merci
Si je ne suis pas claire n'hésitez pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub envoimail()
 
Dim messagerie As Object
Dim email As Object
Dim cel As Range
Dim delai As Integer
 
Set messagerie = CreateObject("Outlook.Application")
 
delai = 60 'jours
 
For Each cel In Range("A2:A" & Range("A2").End(xlDown).Row)
    If cel.Offset(, 0).Value - Now < delai Then
 
        Set email = messagerie.CreateItem(0)
 
        With email
            .to = cel.Offset(, 4).Value
            .Bcc = cel.Offset(, 5).Value
            .Subject = "Expiration " & "[" & cel.Offset(, 2) & "]"
            .body = "Bonjour," & vbCrLf & vbCrLf & "corps du message" & cel.Offset(, 3) & " arrive à échéance le " & cel.Offset(, 0) & vbCrLf & "corps du message" & vbCrLf & "corps du message" & vbCrLf & "signature" & vbCrLf & "Tel:"
 
            .ReadReceiptRequested = True
            .display ' à remplacer par .send si ok
        End With
 
        Set email = Nothing
 
    End If
Next cel
 
Set messagerie = Nothing
 
End Sub

bonjour copment puis je faire ppour réaliser cette macro ?

[Menhir]

Etant donné que la macro semble déjà faite, la question est étrange...