Sujet Précédent Sujet Suivant

Macro envoi mail

Résolu/Fermé
Ceyaline Messages postés 2 Date d'inscription mercredi 25 mars 2015 Statut Membre Dernière intervention 27 mars 2015 - 25 mars 2015 à 16:27
Ceyaline Messages postés 2 Date d'inscription mercredi 25 mars 2015 Statut Membre Dernière intervention 27 mars 2015 - 27 mars 2015 à 09:20
Bonjour,
Je n'y connais absolument rien en macro, j'ai beau chercher sur le net, je ne trouve pas de solution à mon problème;
Je m'explique...
Dans le fichier joint, sous le bouton "Envoyer" je souhaite créer une macro pour:
1 - envoyer le fichier par mail (à une adresse outlook qui sera toujours la même) en PJ avec un texte d'accompagnement type "Bonjour, veuillez trouver ci-joint une demande de sécurisation. Cordialement."
- envoyer à un destinataire en copie qui serait différent en fonction du contenu de la cellule L6C3 (si L6C3 = "Bus", destinataire en cci du mail = bus@outlook.fr ; si L6C3 = "Métro", destinataire en cci du mail = metro@outlook.fr...)
J'utilise Excel 2010.
Merci par avance pour votre aide,
Bonne fin de journée.
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
Modifié par f894009 le 25/03/2015 à 18:32
Bonjour,

code a adapter pour vous:

https://forums.commentcamarche.net/forum/affich-17760876-macro-excel-envoi-mail-avec-fichier-joint

pour la partie envoi en copie:

ajoutez ce code apres la ligne: 
myItem.To = y 


    'L6C3 adaptez le nom de la feuille
    CC = Worksheets("feuil1").Range("C6")
    If UCase(Left(CC, 1)) = "B" Then
        Copie = "bus@outlook.fr"
    ElseIf UCase(Left(CC, 1)) = "M" Then
        Copie = "metro@outlook.fr"
    End If
    myItem.CC = Copie


Si probleme, nous somme la pour vous aider

A+
0
Ceyaline Messages postés 2 Date d'inscription mercredi 25 mars 2015 Statut Membre Dernière intervention 27 mars 2015
27 mars 2015 à 09:20
Bonjour,
Merci beaucoup pour votre réponse, j'ai bien pris le temps de l'appliquer à tête reposée ce matin et tout fonctionne,
Un grand merci à vous et bonne journée!
0

Discussions similaires

'Votre colis est dans le site de livraison qui dessert votre adresse' que faire
relakztek82 -
Unemeuf -

25 réponses
Échec d’envoie message messenger
Kris68 -
Colibri -

2 réponses
Arnaque ou pas?
Pauline -
bonjour -

24 réponses
comment faire si on a un mail delivery system
angeldu5954 -
angeldu5954 -

5 réponses