LISTE DE DIFFUSION OUTLOOK

Commentaire de rambc le 23/04/2006 12:26:15

DES EXPLICATIONS .....

JOINTE : quelle syntaxe ? Un chemin d'accès ?
GROUPE, SUJET, BODY, dest : ????

Donnez un exemple éventuellement bidon mais un exemple tout de même car quand on débute on ne sait pas de quoi vous parlez.

Je dis tout ceci sans agressivité pour faire avancer le schmilblick.

C'est dommage car ta source m'intéresse a priori.

Commentaire de Baddante le 24/04/2006 12:59:36

Bonjour,

savez-vous qu'une liste de diffusion est équivalent à 1 destinataire et qu'elle possède une adresse.
par exemple fictif : sous Smtp (internet) liste-d01@groupe-mail.fr.

Donc trouvez l'email de la liste et utilisez directement son adresse.

Commentaire de christ_28 le 02/05/2006 14:38:31

C'est pas trop mal, mais ça ne fonctionne pas sous office 2000.
Moi-même je n'avais pas réussi à le faire puisque une liste de dest. dans l'adresse ne fonctionne pas.
J'ai fait d'une autre façon que je mettrai à dispos bientôt.
Je me suis permis de faire quelques modifications et anotations pour faire une procédure plus complète sans développer plus loin.
Je vous la soumets ci-dessous :

Public Sub Envoi_Mail(GROUPE As String, _
                      Optional Pièce_Jointe As String = "", _
                      Optional Sujet As String = "", _
                      Optional Corps As String = "", _
                      Optional Dest As String = "")
' FONCTION PERMETTANT D'ENVOYER UN MAIL AVEC UNE PIECE JOINTE
' Version Office 2000 !
' Explication finale :
' Cette procédure va ouvrir l'outlook du PC et va aller chercher la liste de diffusion dans cet outlook
' pour récupérer les adresses de la liste.
' Ce code ne marche que pour une version francaise.
' La constante des contacts est la suivant : "oleContact" ( merci Baddante ).

Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
' CREATION D'UN NOUVEAU MESSAGE
Set MonMessage = MonOutlook.CreateItem(0)
' DESTINATAIRE
Dim TO_Dest As String
Dim i As Integer
For i = 1 To MonOutlook.Session.AddressLists.Item("Contacts").AddressEntries.Item(GROUPE).Members.Count
    If TO_Dest <> "" Then TO_Dest = TO_Dest & "; "
    TO_Dest = TO_Dest & MonOutlook.Session.AddressLists.Item("Contacts").AddressEntries.Item(GROUPE).Members.Item(i)
Next
' DESTINATAIRE ( ENSEMBLE DE MAIL )
MonMessage.To = TO_Dest
' ici on peut rajouter un paramètre pour un destinataire en copie
' et éventuellement refaire la boucle ci-dessus pour une liste (note Christ_28)
MonMessage.CC = ""
' OBJET DU MESSAGE
MonMessage.Subject = Sujet
' LE MESSAGE
MonMessage.BODY = Corps
' AJOUT DE LA PIECE JOINTE (donner le chemin complet "x:\Rep\sous-rep\fichier.extension")
' on peut éventuellement rajouter un test de présence physique du fichier avant (note Christ_28)
If Pièce_Jointe <> "" Then MonMessage.Attachments.Add Pièce_Jointe
' ENVOI DE L'EMAIL
' MonMessage.Display (n'est pas nécessaire est doit être mis avant "send", sinon plantage (note Christ_28)
MonMessage.Send
MonOutlook.Quit
Set MonOutlook = Nothing
Set MonMessage = Nothing

End Sub

Commentaire de rambc le 02/05/2006 15:07:59

Mea Culpa concernant GROUPE.

Ceci étant dit, il aurait été plus simple d'expliquer rapidement comment se crée un GROUPE de contact dans le carnet d'adresse sous OUTLOOK car un utilisteur lambda comme moi ne connait pas cette fonctionnalité (car il n'en a pas le besoin).

Amicalement.