Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
487 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Envoi mail plusieurs destinataires (excel)

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Envoi mail plusieurs destinataires (excel)

n°2038234
grosquick5​9
Posté le 25-11-2010 à 00:36:07  profilanswer
 

Salut  
 
je souhaite envoyer un mail type à plusieurs destinataires via Excel.  
Les destinataires se trouvent dans une colonne E.  
Dans la colonne F j'indique oui ou non. (oui = envoi mail)
Le problème est que j'ai un mail par destinataire ce qui est impossible à gérer. Je souhaiterai que toutes les adresses mail de la colonne E soient en destinataire dans un seul e-mail.  
 
Voici mon code :
 
 
 
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range
 
    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application" )
 
    On Error GoTo cleanup
         
   
   For Each cell In Columns("E" ).Cells.SpecialCells(xlCellTypeConstants)
        If cell.Value Like "?*@?*.?*" And _
           LCase(Cells(cell.Row, "F" ).Value) = "oui" Then
 
            Set OutMail = OutApp.CreateItem(0)
            On Error Resume Next
            With OutMail
                .To = cell.Value
                .Subject = "Infos"
                .Body = "Bonjour, xxxxxxxxxxxxxx"
                .Display
                 
            End With
            On Error GoTo 0
            Set OutMail = Nothing
        End If
    Next cell
 
cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub
 
J'espère que je suis assez clair ^^
Par avance, merci.  

mood
Publicité
Posté le 25-11-2010 à 00:36:07  profilanswer
 

n°2038247
Arwon
Posté le 25-11-2010 à 07:31:30  profilanswer
 

Hello,
 
je sais pas si ça marche mais essaie en envoyant un tableau a OutMail.To avec les adresses de tous les destinataires. Quelque chose comme ça :
 
   

Code :
  1. Dim OutApp As Object
  2.     Dim OutMail As Object
  3.     Dim cell As Range   
  4.     Dim tableauDestinataires() as String
  5.     Dim nbDestinataires as Integer
  6.     nbDestinataires = 0
  7.     Application.ScreenUpdating = False
  8.     Set OutApp = CreateObject("Outlook.Application" )
  9.     On Error GoTo cleanup
  10.        
  11.    
  12.    For Each cell In Columns("E" ).Cells.SpecialCells(xlCellTypeConstants)
  13.         If cell.Value Like "?*@?*.?*" And _
  14.            LCase(Cells(cell.Row, "F" ).Value) = "oui" Then
  15.                Redim Preserve tableauDestinataires(nbDestinataires)
  16.                tableauDestinataires(nbDestinataires) = cell.value
  17.                nbDestinataires = nbDestinataires + 1
  18.         End If
  19.     Next cell
  20.  
  21.             Set OutMail = OutApp.CreateItem(0)
  22.             On Error Resume Next
  23.             With OutMail
  24.                 .To = tableauDestinataires
  25.                 .Subject = "Infos"
  26.                 .Body = "Bonjour, xxxxxxxxxxxxxx"
  27.                 .Display
  28.                
  29.             End With
  30.             On Error GoTo 0
  31.             Set OutMail = Nothing
  32. cleanup:
  33.     Set OutApp = Nothing
  34.     Application.ScreenUpdating = True
  35. End Sub


Message édité par Arwon le 25-11-2010 à 07:31:55
n°2038283
grosquick5​9
Posté le 25-11-2010 à 09:45:33  profilanswer
 

Merci. ça fonctionne très bien.  
C'est sympa.  
 
Bonne journée


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Envoi mail plusieurs destinataires (excel)

 

Sujets relatifs
Application ExcelColoration des bords d'une case d'un tableau avec plusieurs couleurs.
Récupérer toutes les instances d'Exceltri tout simple sous excel
envoyer lien download ds mailEnvoi de mails préformatés par simple clic via Gmail
Creer une macro pour sommer plusieurs cellules de plusieurs feuilles[VBA/LOTUS]: écrire mail avec fichier attaché + JPEG intégré au corps
Besoin d'aide sur une macro ExcelPartager une route entre plusieurs voitures
Plus de sujets relatifs à : Envoi mail plusieurs destinataires (excel)


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR