Discussion :

[Hio62]

Bonjour !

Je possède un programme qui envoi automatiquement des mails si une date butoir est atteinte. Dès que le mail est envoyé, le mot "Oui" s'écrit dans une cellule pour empêcher que le mail se renvoi :

Code :

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

1
2
3
        Set oCell = zSheet.Cells(zRow, cColMailEnvoi)
        oCell.Value = "Oui"
        oCell.Font.Bold = True

Actuellement mon programme fonctionne très bien, les mails s'envoient une seule fois grâce au programme au dessus. Mon problème est le suivant : comment faire pour envoyer un seul mail quand il s'agit d'une commande groupée ? (La partie suivante vérifie que "Oui" n'est pas écrit) :

Code :

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

1
2
                 If oCell.Offset(, cColMailEnvoi - cColJoursRestants).Value <> "Oui" Then
                    SendFollowUpMail Worksheets("Commandes urgentes"), oCell.Row

Chaque fois qu'une commande dépasse la date butoir un mail s'envoi donc automatiquement, et le mot "Oui" s'écrit dans ma colonne cColMailEnvoi. Donc si je rentre une commande de 50 pièces différentes (soit 50 colonnes, donc 50 "Oui") mais de la même commande, 50 mails seront envoyé ce qui pose problème (Alors qu'un seul mail aurait suffit).

Avez-vous une idée sur comment envoyer un seul mail s'il s'agit d'une commande de multiples pièces ?

[Tylert]

Je ne vois pas de fichier d'exemple, et la partie de code montrée ici ne permet pas de déterminer ce qu'il faudrait changer dans ton code...
Quelques pistes:
Quand tu as une ligne sans "Oui", il faut essayer de trouver l'ensemble des lignes qui se rapportent à la même commande afin de les regrouper dans un même mail.
Je ne sais pas ou et comment tu stockes ce que tu envoies dans le mail, mais globalement il faut enrichir cela avec les données de chaque ligne trouvée, et ensuite tagguer chaque ligne trouvée comme envoyée (avec ton fameux "Oui"), ainsi quand on parcours le reste du fichier, on ne renvoi pas un mail pour chaque ligne.

Bonne chance.