XL 2010 supprimer pdf dans dossier après envoi outllok

  • Initiateur de la discussion Initiateur de la discussion momo2394
  • 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 !

momo2394

XLDnaute Occasionnel
Bonsoir le forum

Je reviens vers vous pour une demande spéciale
j'ai une macro qui joint des fichier PDF qui se trouvent dans un dossier dans un mail, je voudrais une fois le message envoyé que le dossier soit vide, j'ai essayé avec kill sobject mais en vain, une petite aide de votre part serait la bienvenue

merci

Public Sub Envois_Valerdine()
Dim olapp As Object
Dim olmail As Object
Dim Rep$, Nom$, Rep_Pdf$

Set olapp = CreateObject("Outlook.Application")
Set olmail = olapp.CreateItem(0)

Rep = "C:\Users\Documents\Lescury\valerdine\"
Rep_Pdf = Dir(Rep & "*.*")

Do While Rep_Pdf <> ""
Nom = Rep & Rep_Pdf
Rep_Pdf = Dir
With olmail
.To = "toto.r@gmail.com"
.Subject = "test"
.Bcc = ""
.Attachments.Add Nom
.Display
End With
Loop

Set olapp = Nothing
Set olmail = Nothing

► Kill sObject ◄


End Sub
 
- 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

  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
821
Réponses
2
Affichages
522
Réponses
2
Affichages
815
Retour