Macro pour envoyer un mail automatique

Question

Bonjour,

J'ai un fichier Excel pour suivre l'échantillonnage de nos clients. J'aimerais être prévenu par mail ainsi que d'autres personnes le jour de la date de relance pour savoir quel client relancer, ainsi que les jours suivants si la date n'a pas été changée.

Pour le moment j'ai juste réussi à faire une macro pour vérifier si une date de relance est déjà passée mais pas à faire un mail automatique. Je débute tout juste en VBA.

Merci par avance pour votre aide.

PS : je joins mon fichier test. fichier echantillonnage

Answer 1

Bonjour,

Essaie :

Sub alerteBlafo()
Dim w1 As Worksheet
Dim i As Long
Dim D As Date
Dim j As Integer
Set w1 = Worksheets("BLAFO") 'Feuille qui contient les alertes
D = Date
Set olApp = CreateObject("Outlook.application")
' ********************************* Relance client
For i = 6 To w1.Range("B" & Rows.Count).End(xlUp).Row
If w1.Cells(i, 14) = D Then
MsgBox ("LE CLIENT : " & w1.Cells(i, 4) & " Doit etre relancŽ aujourd'hui mme le : " & D)
Set m = olApp.CreateItem(olMailItem)
With m
.Subject = "Subject"
.Body = "Body"
.Recipients.Add "******@test.com"
' .Send
.display
End With
End If
If w1.Cells(i, 14) < D Then MsgBox ("ATTENTION !!!! Le client : " & w1.Cells(i, 4) & " n'as pas ŽtŽ relancŽ depuis le : " & w1.Cells(i, 14))
Next i
End Sub

En remplaçant "Subject" par le titre du message, "Body" par le texte du message et "******@test.com" par ton adresse mail.

Daniel

Answer 2

Désolé. le message soit s'afficher, mais pas s'envoyer. Remplace la macro par :

Sub alerteBlafo()
Dim w1 As Worksheet
Dim i As Long
Dim D As Date
Dim j As Integer
Set w1 = Worksheets("BLAFO") 'Feuille qui contient les alertes
D = Date
Set olApp = CreateObject("Outlook.application")
' ********************************* Relance client
For i = 6 To w1.Range("B" & Rows.Count).End(xlUp).Row
If w1.Cells(i, 14) = D Then
MsgBox ("LE CLIENT : " & w1.Cells(i, 4) & " Doit etre relancŽ aujourd'hui mme le : " & D)
Set m = olApp.CreateItem(olMailItem)
With m
.Subject = "Subject"
.Body = "Body"
.Recipients.Add "******@test.com"
.Send
End With
End If
If w1.Cells(i, 14) < D Then MsgBox ("ATTENTION !!!! Le client : " & w1.Cells(i, 4) & " n'as pas ŽtŽ relancŽ depuis le : " & w1.Cells(i, 14))
Next i
End Sub

Daniel

Answer 3

Merci, j'ai supprimé ma macro et mis la votre à la place dans le module 1 mais j'ai le même résultat.

J'ai bien le message d'alerte dans exel mais pas par mail. Je n'ai pas non plus de message d'erreur?

Answer 4

Il faut remplacer ta macro par la mienne.

Daniel

Answer 5

Bonjour Daniel,

Merci pour cette réponse si rapide. Je viens d'essayer, mais je ne reçois pas de mail. J'ai juste les messages d'alerte qui s'affichent.

J'ai mis le code à la suite dans le module1. Faut-il le copier dans un autre module ou dans workbook ??? Le code s'active-t-il automatiquement à l'ouverture ou faut-il le lancer ??

Merci