Liste de diffusion outlook

Soyez le premier à donner votre avis sur cette source.

Snippet vu 18 925 fois - Téléchargée 28 fois

Contenu du snippet

Cette procédure permet d'envoyer un mail à une liste de diffusion outlook.
Je n'ai pas trouvé de source équivalente sur vbfrance donc je la rajoute.

Source / Exemple :


Public Sub mail(GROUPE As String, Optional JOINTE As String = "", Optional SUJET As String = "", Optional BODY As String = "", Optional dest As String = "")
'   FONCTION PERMETTANT D'ENVOYER UN MAIL AVEC UNE PIECE JOINTE
Dim MonOutlook As New Outlook.Application
Dim MonMessage As Outlook.MailItem
'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
MonMessage.CC = ""
'   OBJET DU MESSAGE
MonMessage.Subject = SUJET
'   LE MESSAGE
MonMessage.BODY = BODY
'   AJOUT DE LA PIECE JOINTE ( CHEMIN COMPLET DEMANDEE )
If JOINTE <> "" Then
    If Dir(JOINTE, vbNormal Or vbReadOnly Or vbHidden Or vbSystem Or vbArchive) = "" Then
        MsgBox "fichier introuvable !", vbCritical, "Attention"
        Set MonOutlook = Nothing
        Set MonMessage = Nothing
        Exit Sub
    End If
    MonMessage.Attachments.Add JOINTE
End If
'   ENVOI DE L'EMAIL
MonMessage.Send
MonOutlook.Quit
Set MonOutlook = Nothing
Set MonMessage = Nothing
End Sub

Conclusion :


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 ).

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de rambc

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.