Consulting

Results 1 to 1 of 1

Thread: 438 - Object doesn't support this property or method

  1. #1
    VBAX Newbie
    Joined
    Sep 2019
    Posts
    1
    Location

    Question 438 - Object doesn't support this property or method

    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
    Last edited by xld; 09-19-2019 at 08:58 AM. Reason: Added code tags

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •