Discussion :

[xoroli]

Bonjour

J'ai créé un script sous Outlook avec VBA
Je cherche simplement à compléter.
A savoir :
J'ai un fichier DPF en piece jointe, que je classe dans un dossier spécifique de mon ordinateur.
Mais j'ai également un logo dans le corps du message SMTP qui s'enregistre également !!!! Mais ce dernier n'est pas le bienvenu, donc j'aimerais compléter mon script en indiquant que je souhaite UNIQUEMENT le fichier .pdf
Avez-vous le code, et ou dois-je le positionner ?

D'avance merci

[Nain porte koi]

Hello

Avez-vous le code, et ou dois-je le positionner ?

Pour ça il nous faudrait votre code pour savoir ce que vous faites et comment vous le faites

[xoroli]

Bonjour

Voila le code existant


Sub SaveAttachement_DV(Item As Outlook.MailItem)
Set attachs = Item.Attachments
WDestination = Left(Item.Subject, 5)
For Each attach In attachs
file = attach.FileName
attach.SaveAsFile "C:" & WDestination & "\DEVIS" & file
Next
End Sub

[Nain porte koi]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub SaveAttachement_DV(Item As Outlook.MailItem)
    Set attachs = Item.Attachments
    WDestination = Left(Item.Subject, 5)
    For Each attach In attachs
        file = attach.Filename
        If Right(file, 4) = ".pdf" Then attach.SaveAsFile "C:" & WDestination & "\DEVIS" & file
    Next
End Sub

A tester

[xoroli]

Merci cela fonctionne parfaitement
Encore merci pour votre aide