438 - Object doesn't support this property or method

[Xivaz18]

Hi everybody,
can someone please help me fixing this script? I am trying to print attachments (mainly PDF) from emails in outlook but I am getting this "438 - Object doesn't support this property or method". Here is the script (not mine, found it on internet)...



Sub AttachmentPrint(Item As Outlook.MailItem)


On Error GoTo OError

'This script finds systems temp folders,
'saves any attachments, and runs the Print
'command for that file.

Dim oFS As FileSystemObject
Dim sTempFolder As String
Set oFS = New FileSystemObject
sTempFolder = oFS.GetSpecialFolder(TemporaryFolder)

cTmpFld = sTempFolder & "\OETMP" & Format(Now, "yyyymmddhhmmss")
MkDir (cTmpFld)

'In the next few lines, you'll see an entry that
'says FileType = .This line gets the last 4
'characters of the file name, which we'll use later.

Dim oAtt As Attachment
For Each oAtt In Item.Attachments
FileName = oAtt.FileName
FileType = LCase$(Right$(FileName, 4))
FullFile = cTmpFld & "" & FileName
oAtt.SaveAsFile (FullFile)

'We're using the FileType text. Note that it's the
'last 4 characters os the file name, shich is why
'the next chunk has .xls and xlsx (without the period)
'- the period counts as the fourth character.
'Insert any file extention you want printed.

Select Case FileType
Case ".doc", "docx", ".pdf"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(0)
Set objFolderItem = objFolder.ParseName(FullFile)
objFolderItem.InvokeVebrEx ("Print")
End Select
Next oAtt

If Not oFS Is Nothing Then Set oFS = Nothing
If Not objFolder Is Nothing Then Set objFolder = Nothing
If Not objFolderItem Is Nothing Then Set objFolderItem = Nothing
If Not objShell Is Nothing Then Set objShell = Nothing

OError:
If Err <> 0 Then
MsgBox Err.Number & " - " & Err.Description
Err.Clear
End If
Exit Sub
End Sub



Thanks in advance