Problème avec OE + pièce jointe

[Eric D]

Bonjour à toues et tous,

 

Pour le développement de mon appli, j'utilise OE pour envoyer des pièces jointes.

Voici le code:

Dim Dossier As FileDialog, Fichier As FileDialog
Dim Destination, joint As String
Dim Source() As String
Dim Fso As Object
Dim i As Byte
Dim ouvrirfichiers As Variant 'Dim destfichiers As Variant
'
' modification du chemin par defaut
ChDir ("C:")
'
Set Fichier = Application.FileDialog(msoFileDialogOpen)
Fichier.Show
  If Fichier.SelectedItems.Count = 0 Then GoTo Fin
  For i = 1 To Fichier.SelectedItems.Count
      ReDim Preserve Source(i)
      Source(i) = Fichier.SelectedItems(i)
   Next i
For ct = 1 To 10 ' boucle de lecture des adresses
   If Sheets("Mail").Range("DE" & 1000 + ct).Value <> "" Then
      Dest = ThisWorkbook.Sheets("Mail").Range("DE" & 1000 + ct).Value
      Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujet & "&Body=" & Msg & ""
      SendKeys "%I" & "p" & joint & "~" & "%s"
   End If
Next ct

 

'joint' est pour les Pièces jointes.

Mon soucis est qu'il ajoute automatiquement une 1ère racine à 'joint', de ce fait mon fichier au lieu d'être 'C:\son_chemin\mon_fichier' est 'C:\Racine\;C:\son_chemin\mon_fichier.

 

il doit y avoir une initialisation à faire du style ChDir ... quelque part, mais je ne sais pas où.

D'autre part comment faire pour envoyer plusieurs fichiers joints.

Merci d'avance pour votre aide et bonne journée.

Eric D