Discussion :

[Wise_Sherkaan]

Bonjour à tous,
Je vous préviens, je débute en VBA (en fait, je viens de découvrir les macros)...donc je risque de ne pas être très clair. Dire que je pensais maîtriser Cobol et Java....je coince sur du VB....

Bref, soit un tableau excel dans lequel j'ai, notamment, une colonne "Date de fin de contrat", ainsi qu'une colonne "email".
Ce que je voudrais faire, c'est relancer par mail 30 jours avant échéance de la date de fin de contrat les personnes concernées.

Voici le peu de code que j'ai réussi à créer :

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
Sub relance()
 
' déclaration des variables
Dim appOutlook As Outlook.Application
Dim message As Outlook.MailItem
Dim myRecipient As Object
Dim email As String
 
'Crée une session Microsoft Outlook
Set appOutlook = CreateObject("outlook.application")
 
'Crée un nouveau message
Set message = appOutlook.CreateItem(olMailItem)
 
' initialisation de variables
email = Sheets("Feuil1").Range("O3")
 
'Titre, texte, destinataires, etc ... et envoi.
With message
.Subject = "EFS - message de relance"
.Body = "Bonjour, nous approchons de la date limite de fin de contrat, merci de me contacter au 03.03.03.03.03" & vbCr & vbCr
.Recipients.Add (email)
.Send
End With
 
End Sub

J'ai 2 questions à ce sujet :
1- comment tester l'échéance -30 jours?
2- puis-je procéder à des envois de mails multiples en saisissant plusieurs mails dans la cellule séparés par une virgule ou un point virgule?

Je vous remercie pour vos lumières.
Cordialement,
TS

[SfJ5Rpw8]

pour le 1/

il faut voir ou tu trouve ta date d'échéance et ensuite effectuer le test :

Code :

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

MaDate < (Date +30)

Pour le 2/ tu n'as qu'as tester

[All4n]

Pour le 2/

C'est sous la forme
"xxx@xxx.xx;xxx@xxx.xx;xxx@xxx.xx"

Si j'ai bien compris ta question..?

[Wise_Sherkaan]

Alors, j'ai donc une colonne date au format jj/mm/aaaa.

Mais je ne vois pas comment la tester facilement.

Et ensuite, comment puis-je tester le lancement de la macro (oui, j'ai prévenu, je débute de chez débute....)

Merci pour les éléments que tu pourras m'apporter

@All4n : tout à fait, je pense que ça devrait passer "nativement", mais comme je n'y connais rien, je préfère demander ....

[All4n]

Oui ne t'en fais pas, ça passera comme ça