Macro pour l'envoi de mail automatique

Version imprimable

14/01/2016, 11h04
Matheo31

1 pièce(s) jointe(s)

Macro pour l'envoi de mail automatique

Bonjour à tous,

Malgré mes recherches sur le forum et autres sites web je n'arrive toujours pas à créer la macro qu'il me faut...
Je suis en charge de l'informatique mais également des badges de sécurité pour les employés, j'ai donc créer un fichier excel comprenant les noms et prénoms des personnes, leurs date d'arrivée et leur supposée date de départ mais aussi le nom de leur référent.
L'idéal serait que ma macro génère automatiquement un mail outlook envoyé au référent demandant s'il faut ou non renouveler le badge et les accès informatique le tout 2 ou 3 semaines avant la date de départ inscrite.

J'ai trouvé des macro d'envoi de mail mais je n'arrive pas à faire en sorte que le mail envoyé le soit à une personne référencée sur une autre ligne du classeur.

ex:
Pièce jointe 197941

Dans l'exemple 3 semaines avant le départ de Sophie, Yann serait alerté par mail lui demandant si le stage de Sophie est prolongé et s'il faut renouveler son badge.

Merci d'avance pour vos conseils.

Mathieu
14/01/2016, 18h40
graphikris

Bonsoir,

En colonne H, tu mets les adresses mail des referents et le tour est joué. Il suufit ensuite de mettre dans la macro qu'il faut les adresses de la colonne G et aussi H
J'ai une base de donnees faite sur le meme principe et ça marche bien

Merci pour ton aide, effectivement je peux simplifier en ajoutant l'adresse mail du responsable sur la même ligne.

Code:

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
Dim Ws As Worksheet
Dim DerLig As Long
Dim r As Long
Dim Mbody As String
Dim Cdo_Message As Object
 
Set Ws = Sheets("Feuil1")
DerLig = Ws.Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
 
For r = 2 To DerLig
    If Ws.Cells(r, 4) 
        Mbody = Mbody & " / " & Ws.Cells(r, 1) 
    End If
Next r
 
Set Cdo_Message = CreateObject("CDO.Message")
    With Cdo_Message
        .To = "adresseresponsable" & Chr(64)
        .From = "adresseresponsableRH" & Chr(64)
        .Subject = "Alerte renouvellement"
        .HTMLBody = Mbody & Cdo_Message.HTMLBody
        '.Cc = "LeCC" & Chr(64) & "adresse stagiaire"
        .Send
    End With
Set Cdo_Message = Nothing
End Sub

Est ce que ce bout de code vous semble correct, cela ne fonctionne pas chez moi... :(

bonjour
bien sur que non ca ne peut pas fonctionner
il y a plusieur erreur et meprise dans ton raisonnement

Code:

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
Dim Ws As Worksheet
 Dim DerLig As Long
 Dim r As Long
 Dim Mbody As String
 Dim Cdo_Message As Object

 Set Ws = Sheets("Feuil1")
 DerLig = Ws.Cells(Columns(1).Cells.Count, 1).End(xlUp).Row

'tout d'abors ici !!!!!! quand on test avec un if a part avec un boolean on demande quelque chose toi tu ne demande rian 
' donc if ta cellule QUOI???????
 For r = 2 To DerLig
    If Ws.Cells(r, 4) 
        Mbody = Mbody & " / " & Ws.Cells(r, 1) 'il faut eviter ce genre de caractere dans la concatenation !!!!!!
    End If
 Next r

 Set Cdo_Message = CreateObject("CDO.Message")
    With Cdo_Message
      'ENSUITE ICI IL TE MANQUE LA CONFIGURATION  DE CDO (SERVEURSORTANT,(FACULTATIF USERNAME ET PASSWORD)) 

 .To = "adresseresponsable" & Chr(64)'ceci est en trop si il n'y a qu'un seul adresse mail 
        .From = "adresseresponsableRH" & Chr(64)'pareil 
        .Subject = "Alerte renouvellement"
        .HTMLBody = Mbody & Cdo_Message.HTMLBody' il y a un point c'est quoi cet object d'ou il viens !!!!!
        '.Cc = "LeCC" & Chr(64) & "adresse stagiaire"
        .Send
    End With
 Set Cdo_Message = Nothing
 End Sub

tu a moulte exemple sur le forum et dans les contributions un peu de recherche et tu trouvera ton bonheur

15/01/2016, 15h28
Matheo31

Merci à toi!!

pffff, je crois que je me suis embarqué dans un truc trop complexe pour moi :s je n'ai aucune expérience en macro.
Je vais continuer à fouiller dans les forums à la recherche de pistes.
15/01/2016, 16h59
patricktoulon

re

regarde dans ma signature ;) en bas de mes reponse ca va te parler :mrgreen:
18/01/2016, 07h42
Matheo31

Merci je vais regarder ça ce matin.