envoie mail + pièce jointe

  • Initiateur de la discussion Initiateur de la discussion Eric D
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

E

Eric D

Guest
Bonjour à toutes et à tous,

J' ai un soucis pour envoyer un mail + pièce jointe, car en fait il me met un dèbut de chemin sur le nom de fichier à envoyer.
Ex : C:\\debut_de_chemin\\C:\\mon_chemin\\mon_fichier
En fait, la valeur de sèlection de fichier est dèjà initialisée avec une 1ère racine. Comment l'initialiser à ''.Voici mon 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
'
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
Merci de votre aide.
Eric D
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
812
  • Question Question
Microsoft 365 Excel VBA
Réponses
14
Affichages
884
Réponses
1
Affichages
1 K
Réponses
1
Affichages
1 K
Compte Supprimé 979
C
Retour