Macro Envoi de mail via Excel (CC) [Résolu/Fermé]

Signaler
Messages postés
3
Date d'inscription
mercredi 4 mai 2016
Statut
Membre
Dernière intervention
9 mai 2016
-
novicenovice78
Messages postés
3
Date d'inscription
mercredi 4 mai 2016
Statut
Membre
Dernière intervention
9 mai 2016
-
Bonjour,

J'essaie de mettre en place un système d'envoi de mail via un bouton macro sur un fichier excel (une sorte de reporting). Ce que j'ai pu trouver jusque là ne me satisfait pas car je ne peux mettre personne en copie:

Sub envoimail()
Workbooks("Reporting besoins journaliers_Transfert_V5").sendmail Recipients:="xxx@mail.com", _
Subject:="Besoin journalier transfert", _
ReturnReceipt:=True
End Sub


Si quelqu'un peut m'aider (d'urgence) à mettre d'autres destinataires en copie, ce serait très gentil.

Merci tout de tenir compte (dans les explications), le fait que je sois débutant en matière de macro.

Encore merci par avance

1 réponse

Messages postés
14949
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 janvier 2020
1207
Bonjour,

Avec sendmail excel pas possible de mettre en copie
4
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 79659 internautes nous ont dit merci ce mois-ci

novicenovice78
Messages postés
3
Date d'inscription
mercredi 4 mai 2016
Statut
Membre
Dernière intervention
9 mai 2016

Merci pour cette précision.

Pourriez-vous m'aider avec une macro d'envoi mail svp, via Excel/Outlook?

Merci par avance,
f894009
Messages postés
14949
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 janvier 2020
1207 > novicenovice78
Messages postés
3
Date d'inscription
mercredi 4 mai 2016
Statut
Membre
Dernière intervention
9 mai 2016

Bonjour,

Workbooks("Reporting besoins journaliers_Transfert_V5")
Il est ou ce fichier ??

en attendant:

Sub Envoidu_Mail_Outlook()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    'corps du message si besoin
    strbody = Contenu
    With OutMail
        .To = "xxxxxx@gmail.com"        'destinataire(s)
        .CC = "aaaaa@gmail.com,bbbbbb@gmail.com,ccccccc@gmail.com"          ' copie
        '.BCC = "aaaaa@gmail.com,bbbbbb@gmail.com,ccccccc@gmail.com"       ' si BCC
        .Subject = "Besoin journalier transfert."
        .Body = strbody
        'Piece_jointe
        .Attachments.Add ("C:\test.txt")        'mettre chemin et fichier a joindre
        .Display        'ouvre Outlook
        'or use
        '.Send           'envoi sans ouvrir Outlook
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub
novicenovice78
Messages postés
3
Date d'inscription
mercredi 4 mai 2016
Statut
Membre
Dernière intervention
9 mai 2016
> f894009
Messages postés
14949
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 janvier 2020

Bonjour @f894009

Je te remercie pour ton aide.

Tout marche exactement comme je le souhaitais.

Mille merci !!!