Macro Envoi de mail via Excel (CC)
Résolu
novicenovice78
Messages postés
3
Statut
Membre
-
novicenovice78 Messages postés 3 Statut Membre -
novicenovice78 Messages postés 3 Statut Membre -
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
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
A voir également:
- Macro envoi mail excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Mail delivery system - Astuces et Solutions
- Programmer envoi mail gmail - Guide
Pourriez-vous m'aider avec une macro d'envoi mail svp, via Excel/Outlook?
Merci par avance,
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 SubJe te remercie pour ton aide.
Tout marche exactement comme je le souhaitais.
Mille merci !!!