J'utilise le code suivant mais à un seul fichier est attaché au mail et c'est à chaque fois le dernier de la liste. Apparement à chaque attachement de mail il remplace le précédent. Pourtant j'assigne une position différente à chaque fois ... enfin je crois ...
Si la ligne en vert n'est pas en commentaire rien est envoyé.
Si quelqu'un a une idée pour résoudre le problème ...
MAPISession.SignOn
MAPIMessages.SessionID = MAPISession.SessionID
MAPIMessages.Compose
MAPIMessages.RecipDisplayName = "XXXXXXXXXXXXX"
MAPIMessages.RecipAddress = "XXXXX@XXXXX.com"
On Error Resume Next
MAPIMessages.MsgSubject = Mail_Sujet.Text
MAPIMessages.MsgNoteText = Mail_Message.Text
' Si l'utilisateur souhaite envoyer les fichiers logs avec le message alors ...
If Check_Logs.Value = 1 Then
' Définit le chemin du contrôle "FileListBox_Logs"
FileListBox_Logs.Path = App.Path & "\Programme\Logs"
Dim Index As Integer
Index = 0
While Index < FileListBox_Logs.ListCount
On Error Resume Next
' MAPIMessages.AttachmentPosition = Index + 1
MAPIMessages.AttachmentType = Index + 1
MAPIMessages.AttachmentPathName = FileListBox_Logs.Path & "\" & FileListBox_Logs.List(Index)
Index = Index + 1
Wend
End If
MAPIMessages.Send
MAPISession.SignOff