Macro envoi alerte Outlook

[lorsaint]

Bonjour à tous,

J'ai une macro qui me permet, à l'ouverture du fichier, d'afficher une msgbox qui m'alerte sur des dates. Je souhaiterais que, en même temps que la msgbox s'affiche, un message Outlook soit envoyé à une adresse mail.

Est-ce possible ?

Voici le code sur lequel je souhaiterais ajouter cette fonctionnalité :

Private Sub Workbook_Open()
Dim m_r As Integer
For n = 2 To Sheets("Feuil1").Range("L65536").End(xlUp).Row
j_r = Day(Range("L" & n))
a_r = Year(Range("L" & n))
m_r = Month(Range("L" & n)) - 3
If m_r < 1 Then
m_r = m_r + 12
a_r = a_r - 1
End If
If j_r > derj(m_r) Then j_r = derj(m_r)
If CDate(j_r & "/" & m_r & "/" & a_r) <= Date And CDate(j_r & "/" & m_r & "/" & a_r) > Date - 15 Then
MsgBox ("Attention, retour de " & Range("B" & n) & " " & Range("A" & n) & " le" & Chr(10) & Range("L" & n))
End If
Next n
End Sub

Function derj(m As Integer)
derj = Day(CDate("01/" & m + 1 & "/2009") - 1)
End Function


Par avance, merci pour votre aide.

Lorsaint 😛

 

[C@thy]

Re : Macro envoi alerte Outlook

ça ne fait plus que 75 clicks 😛

Meci JNP. A la limite les clics je m'en fiche c'est l'utilisateur qui va les faire! (Pas bon, mauvais esprit!!!!)

Je teste ce que tu m'as envoyé et je te tiens au courant.

Bisous parachutés.

C@thy

 

[C@thy]

Re : Macro envoi alerte Outlook

Yep! Ca marche nickel!!! Bravooooooo Jean-Noël (j'aime bien quand ça rime 😉).

Chapeau, c'est super!

Bisous et mille mercis

C@thy