Gestion d'une liste d'utilisateurs avec la fonction SendMessage.

Bonjour à Toutes et à Tous,

J'utilise l'excellente fonction proposée par Raymond sur son site pour
pallier l'erreur DoCmd.SendObject à parti d'Access 2000.

Mon seul souci est que cette fonction ne s'est pas gérée plus de d'un
destinataire (même si les adresses e-mail sont séparées par un ; dans
une chaîne String).

Auriez-vous déjà trouver la parade ?

Merci à Raymond pour son site très utile,
Merci d'avance pour votre aide,

Amicalement,

Michaël

******
Voici le code disponible sur le site :

Sub SendMessage(Destinataire As String, _
Sujet As String, _
Corps As String, _
Optional CopieCC As String,
_
Optional PièceJointe As
String)

Dim OL_App As New Outlook.Application
Dim OL_Attach As Outlook.Attachment
Dim OL_Recipient As Outlook.Recipient
Dim OL_Msg As Outlook.MailItem

Set OL_Msg = OL_App.CreateItem(olMailItem)
With OL_Msg
Set OL_Recipient = .Recipients.Add(Destinataire)
OL_Recipient.Type = olTo

If Not IsMissing(CopieCC) Then
If CopieCC <> "" Then
Set OL_Recipient = .Recipients.Add(CopieCC)
OL_Recipient.Type = olCC
End If
End If

.Subject = Sujet
.Body = Corps
.Importance = olImportanceHigh

If Not IsMissing(PièceJointe) Then
If PièceJointe <> "" Then
Set OL_Attach = .Attachments.Add(PièceJointe)
End If
End If

For Each OL_Recipient In .Recipients
OL_Recipient.Resolve
If Not OL_Recipient.Resolve Then
OL_Msg.Display
End If
Next
.Send

End With
Set OL_Msg = Nothing
Set OL_App = Nothing
Set OL_Attach = Nothing
Set OL_Recipient = Nothing
End Sub