XL 2016 Mail quand une date est dépassée

yanisa

XLDnaute Nouveau
Bonjour à tous,

Je ne sais pas si cela est possible.

Je souhaiterai envoyer un email à plusieurs destinataires qui sont concernés par une date d'échéance dépassée (en jaune). En reprenant un petit texte dans l'onglet "Mail"

Avant de poster j'ai essayé mais sans succès. En PJ un fichier qui sera plus parlant.

Merci d'avance pour votre aide.
 

Pièces jointes

  • Relances clients.xlsm
    177.6 KB · Affichages: 5
Solution
Une facon de faire
Pour le moment d'OUTLOOKs'ouvre pour voir le message.
Pour envoi sans ouverture d'OUTLOOK, dans la procedure
VB:
Sub Mail_for_Julius(Dest, T_Cc, Num_AF, Client, Date_Exp)
        .Display 'visu @Mail
        '.Send       ' pour l'envoi du @mail
Mettre .Display en commentaire et enlever le ' devant .Send

yanisa

XLDnaute Nouveau
Bonjour,
Dans ce fichier, y a pas ce que vous avez essaye..
Envoi par Outlook ?
Test pour Envoi sur ouverture du fichier?
Bonjour Oneida,
Merci pour votre réponse. J’ai effectivement laissé le fichier sans macros car je n’arrivais pas à les adapter… J’ai réussi à m’embrouiller tout seul (…)
Oui c’est pour un envoi via Outlook et avec un test avec ouverture du fichier.
Merci et bonne journée
 

Oneida

XLDnaute Impliqué
Une facon de faire
Pour le moment d'OUTLOOKs'ouvre pour voir le message.
Pour envoi sans ouverture d'OUTLOOK, dans la procedure
VB:
Sub Mail_for_Julius(Dest, T_Cc, Num_AF, Client, Date_Exp)
        .Display 'visu @Mail
        '.Send       ' pour l'envoi du @mail
Mettre .Display en commentaire et enlever le ' devant .Send
 

Pièces jointes

  • yanisa_Relances clients_1.xlsm
    194.2 KB · Affichages: 10

Discussions similaires

Réponses
2
Affichages
608

Statistiques des forums

Discussions
314 708
Messages
2 112 097
Membres
111 416
dernier inscrit
philipperoy83