添付ファイルの種類を1つだけ保存する

Question

私は、すべての添付ファイルを特定のフォルダに保存するコードを用意していますが、これはほとんどの時間が必要ですが、特定のインスタンスに添付ファイルを1つだけ保存する必要がありますPDFのみまたはXLSのみ。

これを行うには、コードに何を追加する必要がありますか？

マイコード：事前に

Public Sub SavePayRoll() 
' Save data from Payroll Service 
Dim objOL As Outlook.Application 
Dim objMsg As Outlook.MailItem 'Object 
Dim objAttachments As Outlook.Attachments 
Dim objSelection As Outlook.Selection 
Dim i As Long 
Dim lngCount As Long 
Dim strFile As String 
Dim strFolderpath As String 
Dim strDeletedFiles As String 

    ' Get the path to folder 
    strFolderpath = CreateObject("WScript.Shell").SpecialFolders(16) 
    On Error Resume Next 

    ' Instantiate an Outlook Application object. 
    Set objOL = CreateObject("Outlook.Application") 

    ' Get the collection of selected objects. 
    Set objSelection = objOL.ActiveExplorer.Selection 

' The attachment folder needs to exist 
' You can change this to another folder name of your choice 

    ' Set the Attachment folder. 
    strFolderpath = "C:\DrBox\" 



    ' Check each selected item for attachments. 
    For Each objMsg In objSelection 

    Set objAttachments = objMsg.Attachments 
    lngCount = objAttachments.Count 

    If lngCount > 0 Then 

    ' Use a count down loop for removing items 
    ' from a collection. Otherwise, the loop counter gets 
    ' confused and only every other item is removed. 

    For i = lngCount To 1 Step -1 

    ' Get the file name. 
    strFile = objAttachments.Item(i).FileName 

    ' Combine with the path to the Temp folder. 
    strFile = strFolderpath & strFile 

    ' Save the attachment as a file. 
    objAttachments.Item(i).SaveAsFile strFile 

    Next i 
    End If 

    Next 

ExitSub: 

Dim shel As String 
shel = strFolderpath 

Set objAttachments = Nothing 
Set objMsg = Nothing 
Set objSelection = Nothing 
Set objOL = Nothing 

Dim retVal As Long 
    retVal = Shell("explorer.exe " & shel, vbNormalFocus) 

End Sub 

おかげ

Answer 1

あなたは strFileがしたい拡張子を持っているかどうかを確認しようとすることができ

、例えばあなたの提案があった

' Get the file name. 
strFile = objAttachments.Item(i).FileName 

' Only save pdf files 
If strFile.EndsWith("pdf") Then 
    ' Combine with the path to the Temp folder. 
    strFile = strFolderpath & strFile 

    ' Save the attachment as a file. 
    objAttachments.Item(i).SaveAsFile strFile 
End If 

Answer 2

おかげ@Datエラーが発生しましたが、私を正しい軌道に乗せてください。私のコードは今すぐ読み取られます

dim sFileType as string 

' Get the file name. 
strFile = objAttachments.Item(i).FileName 
sFileType = LCase$(Right$(strFile, 4)) 
MsgBox (sFileType) 
' Only save pdf files 
    If sFileType = ".pdf" Then 
' Combine with the path to the Temp folder. 
strFile = strFolderpath & strFile 

' Save the attachment as a file. 
objAttachments.Item(i).SaveAsFile strFile 
    End If 

    Works fine!