Envoi feuille excel par mail à plusieurs destinataires
Résolu
Eric
-
Eric -
Eric -
A voir également:
- Envoi feuille excel par mail à plusieurs destinataires
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Word et excel gratuit - Guide
2 réponses
Aide Excel : Email "Spécifie le nom du destinataire sous la forme de texte ou, s'il y a plusieurs destinataires, d'un tableau de chaînes de caractères."
Donc : Email doit représenter un tableau
Perso, je fais ça en pilotant Outlook depuis Excel :
Dim OutlookApp As Outlook.Application ' Outils > références > Microsoft Outlook 14 Object Library
Dim Racine As Outlook.Namespace ' Le contenant Outlook
Dim LaBoite As Outlook.MAPIFolder ' Sera la boite des brouillons
Dim ListeMessages As Outlook.Items ' La collection des messages
Donc : Email doit représenter un tableau
Perso, je fais ça en pilotant Outlook depuis Excel :
Dim OutlookApp As Outlook.Application ' Outils > références > Microsoft Outlook 14 Object Library
Dim Racine As Outlook.Namespace ' Le contenant Outlook
Dim LaBoite As Outlook.MAPIFolder ' Sera la boite des brouillons
Dim ListeMessages As Outlook.Items ' La collection des messages
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 583
Dim Email() As String
Email= Array("***@***", "***@***")
Email= Array("***@***", "***@***")
L'erreur est à la ligne: Email = Array("***@***", "***@***")
Sub EnvoiPage()
Dim Email() As String
Dim Sujet As String
Dim AccuseReception As Boolean
Sheets("Valeurs").Select 'Saisir le nom exact la feuille
ActiveSheet.Copy 'Crée une copie de la feuille active
Email = Array("***@***", "***@***")
Sujet = "Envoi automatique: Consommations"
AccuseReception = True
ActiveWorkbook.SendMail Email(), Sujet, AccuseReception
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True
MsgBox "L'email a bien été transmis aux destinataires suivants: ***@*** & ***@***"
End Sub
Ça doit être un tableau dans le fichier excel? (je suis vraiment mauvais)
Je ne veux pas trop directement piloter Outlook car c'est un fichier qui est sur réseau et on est plusieurs personnes à le faire en fait