[Outlook] Plus de 49 destinataires ?

[doudouallemand]

Bonjour a tous.

Je dois envoyer un meme mail a plus de 49 destinataires qui est la limite fixe par microsoft outlook.
comment faire pour enlever cette limite ou que me conseillez-vous de faire a la place sinon car je peux avoir jusqu'a plus de 2000 destinataires...???

d'avance

[Nemesys]

Utilise sendmail : http://www.infos-du-net.com/telecharger/SendMail.html

[doudouallemand]

desole, mais je dois rester sous outlook...

[SebCBien]

Et en créant un nouveau groupe ?

Dans le carnet d'adresse, au lieu de choisir Nouveau contact, il faut choisir Nouveau groupe.
Puis ajouter des contacts dans ce groupe.
Lors de l'envoie du mail, il suffit de choisir le groupe.

[doudouallemand]

Envoyé par SebCBien

Et en créant un nouveau groupe ?

Dans le carnet d'adresse, au lieu de choisir Nouveau contact, il faut choisir Nouveau groupe.
Puis ajouter des contacts dans ce groupe.
Lors de l'envoie du mail, il suffit de choisir le groupe.

je ne peux pas creer de groupe car, comme je l'ai explique dans mon premier post, c'est automatise et executer a partir d'access. a moins que tu me dises qu'on peux creer des groupes directement en vba a partir d'access???
inon, j'essaye de creer plusieurs messages avec a chaque fois 49destinataires voire moins et ca plante et je ne sais pas pourquoi.
je ne sais plus quoi faire la...
pour vos idees...

[zuxion]

Je sais aps si ça peut te convenir mais tu peux te tourner ver la fonction mail de php

[Louis-Guillaume Morand]

Envoyé par zuxion

Je sais aps si ça peut te convenir mais tu peux te tourner ver la fonction mail de php

on parle d'access...

[doudouallemand]

Envoyé par pharaonix

on parle d'access...

en effet, c'est en vba sous access que je lance outlook...

[f_bobo]

Salut,

A tout hasard, va faire un tour sur www.outlookcode.com.
Perso, les infos que j'y ai trouvé mon permis de faire de l'import-export de RDV du calendrier avec une base Access.

En fouillant, tu devrais trouver ton bonheur!

[doudouallemand]

j'ai regarde ton site mais je ne trouve rien repondant a ma question car ce n'est pas de la programmation outlook mais access que je fais ou alors, ca dois juste etre une option et pas du code a changer.
par contre, du coup, j'essaye d'utiliser ce qui est la : http://access.developpez.com/faq/?page=Outlook#outlook
mais je ne parviens pas a faire afficher le message outlook, une idee ?

[doudouallemand]

aucune idee de solution ?

[pc75]

Bonjour,

Si ça peut t'aider, voila une procédure qui créé des groupes sous Outlook, par paquets de 150 adresses. C'est du VB6, mais tu dois pouvoir t'en inspirer pour l'adapter à VBA.

 
   ' Exemple de création d'une liste de distribution
   Dim myOlApp As New Outlook.Application
   Dim myDistList As Outlook.DistListItem
   Dim myTempItem As Outlook.MailItem
   Dim myRecipients As Outlook.Recipients
   Set myTempItem = myOlApp.CreateItem(olMailItem)
   Set myRecipients = myTempItem.Recipients
   
   Screen.MousePointer = vbHourglass
   
   Set conn = CreateObject("ADODB.RecordSet")
   MySql = ""
   MySql = MySql & "SELECT EMAIL "
   MySql = MySql & "FROM MATABLE "
   MySql = MySql & "order by NOM, PRENOM "
   
   conn.Open MySql, DriverAccess & BaseAccess
   If Not conn.EOF Then
      conn.MoveFirst
      CptList = 1
      Do While Not conn.EOF
         Set myDistList = myOlApp.CreateItem(olDistributionListItem)
         myDistList.DLName = "Groupe" & CptList
         z = 0
         Do While z < 150 And Not conn.EOF
               Email = conn("EMAIL")
               z = z + 1
               myRecipients.Add Email
               ' Tentative de résolution de l'adresse
               If Not myRecipients.Item(z).Resolve Then
                  myRecipients.Item(z).Delete
                  z = z - 1
               End If
            End If
            conn.movenext
            If conn.EOF Then Exit Do
         Loop
         myDistList.AddMembers myRecipients
         myDistList.Save
         ' Suppression des membres
         For i = myRecipients.Count To 1 Step -1
            On Error Resume Next
            myRecipients.Item(i).Delete
            Err.Clear
         Next i
         Set myDistList = Nothing
         CptList = CptList + 1
      Loop
   End If
 
   Set myTempItem = Nothing
   Set myRecipients = Nothing
 
   Screen.MousePointer = Default
   MsgBox "Terminé."
 

[doudouallemand]

Envoyé par pc75

Bonjour,
Si ça peut t'aider, voila une procédure qui créé des groupes sous Outlook, par paquets de 150 adresses. C'est du VB6, mais tu dois pouvoir t'en inspirer pour l'adapter à VBA.

ok, mais comment les utilises-tu apres ces groupes, pour creer tes mails avec les groupes dans le champ To...
et a-t-on le droit d'avoir par exemple 3 groupes de 150 personnes dans le meme mail a envoye ? le mail va-t-il passer le serveur ?
d'avance

[pc75]

Un autre bout de code pour envoyer

 
   Dim iOutlook As Outlook.Application
   Dim myApp As Outlook.MailItem
   Dim myRecipient As Recipient
   Dim myitem As Outlook.MailItem
    
   Screen.MousePointer = vbHourglass
   Set conn = CreateObject("ADODB.RecordSet")
   MySql = ""
   MySql = MySql & "SELECT EMAIL "
   MySql = MySql & "FROM MATABLE"
   
   conn.Open MySql, DriverAccess & BaseAccess
   If Not conn.EOF Then
      conn.MoveFirst
      ' Création d'une instance de Outlook
      Set iOutlook = CreateObject("Outlook.Application")
      ' Nouveau message
      Set myitem = iOutlook.CreateItem(olMailItem)
      ' Objet du message
      myitem.Subject = txtObjet.Text
      ' Corps du message
      myitem.Body = txtMessage.Text
      ' Pièce jointe ?
      If Len(Trim(txtJoindre.Text)) > 0 Then
         Dim myAttachments As Attachments
         Set myAttachments = myitem.Attachments
         myAttachments.Add txtJoindre.Text
      End If
      NbErr = 0
 
      Do While Not conn.EOF
            Set myRecipient = myitem.Recipients.Add(conn("EMAIL"))
            ' Si l'adresse n'est pas résolue, on la supprime
            If Not myRecipient.Resolve Then
               myRecipient.Delete
            End If
            conn.movenext
            If conn.EOF Then Exit Do
         End If
      Loop
      conn.Close
      Set conn = Nothing
      ' Envoi du message
      myitem.Send
      Set iOutlook = Nothing
      Set myitem = Nothing
      Set myRecipient = Nothing
      Screen.MousePointer = vbDefault
      MsgBox "Message(s) envoyé(s) avec succès."
   Else
      MsgBox "Aucun destinataire trouvé."
      conn.Close
      Set conn = Nothing
      Exit Sub
   End If
 

[doudouallemand]

ok, merci, je suis en train de tester. juste un truc, c'est quoi tes "DriverAccess" et "BaseAccess" lors de ta connection car moi il me refuse?