Enregistrer pj vba Outllook selon extention fichier

Bonjour à tous
je vous remercie à l'avance de prendre le temps de me lire.

J'aimerais enregistrer automatiquement des pièces jointes dans outllook. J'ai trouvé un code sur les forums qui fonctionne très bien. Sauf que dans les courriels que je reçois, ce sont des photos qui proviennent de iphone. Dans le courriel, il y a donc deux fichiers. le premier est la photo en JPG et la deuxième est un fichier texte qui dit seulement : Envoyé de mon iphone. Moi ce que je veux enregistrer c'est le fichier jPG. mais avec mon code c'est le txt qui s'enregistre.

J'ai chercher durant des heures sur le net et j'ai essayé plusieurs choses mais sans succès, je fais donc appel à vous. J'imagine que ça doit être très simple mais je n'y arrive pas. Merci à l'avance

voici mon code

Sub SaveAttachementPhotos(item As Outlook.MailItem)

Set attachs = item.Attachments

For Each attach In attachs
File = item.Subject

attach.SaveAsFile "F:\All SKF\SKF 2016\Fichiers Liens\" & File & ".JPG"

Next


End Sub