récupérer l'extension des pièces jointes de mails dans outlook

bonjour,

je bricole un code qui récupère les pièces jointes de mails dans un certain dossier de ma boîte de réception et je voudrais renommer ces pièces jointes avant de les enregistrer.
Et pour cela j'aurai besoin de récupérer l'extension des pièces jointes.

Par exemple avec une pièce jointe "document.doc"
je voudrais pour insérer la date entre document et doc

Pour meilleure compréhension voici l'architecture de mon code:


Sub SaveClassSAttachmentsAndRename()

'mettre uniquement des mails avec pièces jointes dans le dossier

Const olFolderInbox = 6
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)

Set SubFolder = objFolder.Folders("Test")

Set colItems = SubFolder.Items
For Each objMessage In colItems
intCount = objMessage.Attachments.Count
If intCount > 0 Then
For i = 1 To intCount

Dim nom As String

nom = objMessage.Attachments.Item(i).FileName
MsgBox nom

'Pour renommer
Dim newname As String

'add the extension of the file in "ext"
Dim ext As String

ext = ??????? (c'est la fonction que je cherche)

MsgBox ext

Dim Day As String

Day = InputBox("date of the document DDMMYYYY")

newname = nom & "_" & Day & "." & ext
' newname c'est le nom avec la bonne nomenclature

MsgBox newname

objMessage.Attachments.Item(i).SaveAsFile "C:\Users\lbarj\Class S\" & newname

Next
End If
Next
End Sub