Error en función para enviar email

Para Dante

Buenas dante tengo el error "Variable de objeto with no establecidad" en la línea: getFrom = itm.SenderName.

Os dejo el código

Public Sub guardaAdjuntoDisco()
Dim objAtt As Outlook.Attachment
Dim itm As Outlook.MailItem
Dim saveFolder As String
Dim dateFormat
Dim getFrom
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
    dateFormat = Format(Now, "dd-mm-yyyy H-mm")
    getFrom = itm.SenderName
    saveFolder = "C:\Users\JUANFRAN\Desktop\ADJUNTOS\" & getFrom & "\"
If Not oFSO.FolderExists(saveFolder) Then
  oFSO.CreateFolder saveFolder
End If
     For Each objAtt In itm.Attachments
          objAtt.SaveAsFile saveFolder & "\" & dateFormat & " - " & objAtt.DisplayName
          Set objAtt = Nothing
          Set itm = Nothing
     Next
End Sub