Bonjour,
Je voudrai envoyer des mails automatiques une fois par semaine a quelques personnes et ceci 2 mois avant la fin de validité de quelques éléments de ma base de données, j'ai le code suivant qui me permet d'envoyer les mails 2 mois avant la fin des dates mais je ne suis pas comment faire pour l'envoyer uniquement une fois par semaine.
Des propositions svp Merci
Je voudrai envoyer des mails automatiques une fois par semaine a quelques personnes et ceci 2 mois avant la fin de validité de quelques éléments de ma base de données, j'ai le code suivant qui me permet d'envoyer les mails 2 mois avant la fin des dates mais je ne suis pas comment faire pour l'envoyer uniquement une fois par semaine.
Des propositions svp Merci
VB:
Dim Desti As String, Objet As String, Corps As String, olApp As Object
Sub AlertesDatesFormations() ' Formations externes
Dim Sh As Worksheet, Chaine As String, Lig As Integer, Alerte
Set olApp = CreateObject("Outlook.application")
Lig = 15 ' car les dates de validité se trouvent en ligne 15
For Each Sh In ActiveWorkbook.Sheets
If Sh.Range("A10") = "Formation externe " Then 'Formation concernée
Col = 2 ' car la premiére date de validité en en colonne B
While Sh.Cells(Lig - 5, Col) <> "" ' on regarde toutes les formations dans la colonne A10 (15-5=10)
If Sh.Cells(Lig, Col) <> "" And Sh.Cells(Lig, Col) < Date + 60 Then ' si formation et date
' on enrichit la chaine avec nom-date-formation
Chaine = Chaine & Sh.Name & vbTab & " Date: " & Sh.Cells(Lig, Col) & " " & Sh.Cells(Lig - 1, Col) & vbCrLf
End If
Col = Col + 1
Wend
If Chaine <> "" Then Chaine = Chaine & vbCrLf
End If
Next Sh
If Chaine <> "" Then
'MsgBox(Chaine, , "Alertes sur les dates de validit?formations.")
' Alerte = MsgBox(Chaine, , "Alertes sur les dates de validitéformations.")
MsgBox Chaine, , "Alertes sur les dates de validité formations."
Desti = "annabelle.delecour@nexans.com"
Objet = "Alertes sur les dates de validité des Formations Externes "
Corps = "Bonjour, ce message est un mail automatique, il vous informe sur la fin de valdité des formations externes, Merci "
EnvoiMail Desti, Objet, Corps
End If
End Sub
Sub EnvoiMail(Desti As String, Objet As String, Corps As String)
Dim M As Object
Set M = olApp.CreateItem(olMailItem)
With M
.Subject = Objet
.Body = Corps
.Recipients.Add Desti
.cc = "pascal.deguines@nexans.com;nicolas.debeyer@nexans.com"
.send
End With
End Sub