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
