rappel automatique par mail

[malvira180]

Bonjour,

voila j'ai céer un petit "formulaire" sous excel

1 spreadsheet avec le listing des questions
1 spreadsheet avec page de garde accompagnant la question

dans le formulaire page de garde une liste déroulante permettant de sélectionner le numéro de la question la sélection d'un numéro dans cette liste déroulante permet le garnissage des différents champs de la page de garde

maintenant j'aimerais implémenter un système de rappel lié aux échéances
car en effet dans la feuille il y a une date buttoir pour réception de la réponse

j'aimerais que quand la date système à atteint la date buttoir et que la date de réception est vide un mail de rappel soit envoyé à la personne en charge de la question.

ma question est quelqu'un aurait-il une idée quand à la piste à suivre
pour pouvoir mettre en place un tel système

 

[malvira180]

Re : rappel automatique par mail

Bonjour,

j'aimerai parcourir la colonne rappel de la feuille 1 créer un mail et ajouter à ce mail chaque question pour laquelle la condition serait vrai et finalement l'envoyer à une liste de distribution via outlook

Merci

 

[malvira180]

Re : rappel automatique par mail

Bonjour,

je n'y connais pas grand chose en VB je me suis lancé sur base d'un exemple que j'ai trouvé sur le forum

j'ai creer ma macro envoyer_mail mais je ne sais pas comment garnir les variables CCI - Sujet - HTMLBody

avec le contenu des cellules de la ligne active

pour le reste du code je ne suis pas très sur donc si quelqu'un pouvait voir si ça tiens la route ce serait super

ps: je travaille avec Outlook 2007 je ne sais pas ci cela change quelque chose au niveau du libellé des objects
je sais également qu'il faut activer Microsoft Outlook 12 Object Library

 

[malvira180]

Re : rappel automatique par mail

bon ben voila ça à l'air de focntionner
pour la génération des mails

reste le problème du garnissage des variables cci, sujet, corps
qui sont respectivement les colonnes Mail agent N°Question et Question

voici le code de ma macro

Sub envoyer_mail()
'
' envoyer_mail Macro
' envoyer mail de rappel lorsque la date de retour de la question est dépassée.
'

'
Dim LIGNE As Integer, Desinataire, CopieCarbonne, CopieCarbonneInvisible, Sujet, Corps As String

Sheets("questions").Select
Cells.Find("Rappel").Offset(1, 0).Activate

LIGNE = Cells(65536, ActiveCell.Column).End(xlUp).Row

For i = 1 To LIGNE
    If ActiveCell = "envoyer mail" Then
    
        Destinataire = ""
        CopieCarbonne = ""
        CopieCacarbonneInvisble = ""            'cellule l de la ligne active
        Sujet = "Question écrite n° " & ""      'cellule a de la ligne active
        Corps = ""                              'cellule f de la ligne active
        
        Set OutApp = CreateObject("Outlook.Application")
        OutApp.Session.Logon
        Set OutMail = OutApp.CreateItem(olMailItem)
        On Error Resume Next
        
        With OutMail
            .to = Destinataire
            .CC = CopieCarbonne
            .CCI = CopieCarbonneInvisible
            .Subject = Sujet
            .HTMLBODY = Corps
            .Save
        End With
        
        OutMail.Display
        On Error GoTo 0
        Set OutMail = Nothing
        Set OutApp = Nothing
            
        
        
    End If
    ActiveCell.Offset(1, 0).Select
Next
End Sub

mon problème ce situe ici

Destinataire = ""
        CopieCarbonne = ""
        CopieCacarbonneInvisble = ""            'cellule l de la ligne active
        Sujet = "Question écrite n° " & ""      'cellule a de la ligne active
        Corps = ""                              'cellule f de la ligne active

 

[malvira180]

Re : rappel automatique par mail

voila cela fonctionne avec le code suivant (version2)
avec la version2 je n'ai pas eu de réponses

mais bon vu que j'ai trouvé la soluce, je communique

bav

Sub envoyer_mail()
'
' envoyer_mail Macro
' envoyer mail de rappel lorsque la date de retour de la question est dépassée.
' CTRL+MAJ+E

'


' version 1

Dim Desinataire, CopieCarbonne, CopieCarbonneInvisible, Sujet, Corps As String

Sheets("questions").Select

For n = 1 To Sheets("questions").Range("K65536").End(xlUp).Row

    If Sheets("questions").Range("K" & n).Value = "envoyer mail" Then
        Destinataire = Sheets("questions").Range("L" & n).Value
        CopieCarbonne = ""
        CopieCarbonneInvisible = Sheets("questions").Range("L" & n).Value           'cellule l de la ligne active
        Sujet = "Question écrite n° " & Sheets("questions").Range("A" & n).Value      'cellule a de la ligne active
        Corps = Sheets("questions").Range("F" & n).Value                              'cellule f de la ligne active
        
        Set OutApp = CreateObject("Outlook.Application")
        OutApp.Session.Logon
        Set OutMail = OutApp.CreateItem(olMailItem)
        On Error Resume Next
        
        With OutMail
            .to = Destinataire
            .CC = CopieCarbonne
            .CCI = CopieCarbonneInvisible ' cette version ne fonctionne pas
            .BCC = CopieCarbonneInvisible ' cette version fonctionne
            .Subject = Sujet
            .HTMLBODY = Corps
            .Save
        End With
        
        OutMail.Display
        On Error GoTo 0
        Set OutMail = Nothing
        Set OutApp = Nothing
    End If
    
Next n

' version 2

'Dim LIGNE As Integer, Desinataire, CopieCarbonne, CopieCarbonneInvisible, Sujet, Corps As String
' Cells.Find("Rappel").Offset(1, 0).Activate
'LIGNE = Cells(65536, ActiveCell.Column).End(xlUp).Row

'For i = 1 To LIGNE
'    If ActiveCell = "envoyer mail" Then
    
'        Destinataire = ""
'        CopieCarbonne = ""
'        CopieCacarbonneInvisible = ""           'cellule l de la ligne active
'        Sujet = "Question écrite n° " & ""      'cellule a de la ligne active
'        Corps = ""                              'cellule f de la ligne active
        
'        Set OutApp = CreateObject("Outlook.Application")
'        OutApp.Session.Logon
'        Set OutMail = OutApp.CreateItem(olMailItem)
'        On Error Resume Next
        
'        With OutMail
'            .to = Destinataire
'            .CC = CopieCarbonne
'            .CCI = CopieCarbonneInvisible
'            .Subject = Sujet
'            .HTMLBODY = Corps
'            .Save
'        End With
'
'        OutMail.Display
'        On Error GoTo 0
'        Set OutMail = Nothing
'        Set OutApp = Nothing
            
        
        
'    End If
'    ActiveCell.Offset(1, 0).Select
' Next
End Sub

 

[floriane houss]

Re : rappel automatique par mail

Bjr
j'ai un probleme , j'ai un fichier excel ou se trouve des dates d'échéance, j'aimerai que10 jours avant la date, un msg me soit envoyé sur ma messagerie outlook . Comment dois je faire????
je suis perdu ...
Merci d'avance

J'ai la version 2003