CDO.Message Проблема с вложениями

Sub SendMail()
    AttachmentFolder = "\\10.0.1.143\Obmen\CP"
    Dim oMessage
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objShellApp = CreateObject("Shell.Application")
     
    Set objFolderItems = objShellApp.NameSpace(AttachmentFolder).Items()
    For Each objFolderItem In objFolderItems
        If Not objFolderItem.IsFolder Then
            Set objFile = objFSO.GetFile(objFolderItem.Path)
            If (LCase(Right(objFolderItem.Name, 4)) = ".zip" Or LCase(Right(objFolderItem.Name, 4)) = ".rar") Then

                Set oMessage = CreateObject("CDO.Message")
                oMessage.To = "a87@i.ua"
                oMessage.From = "yes@i.ua"
                oMessage.AddAttachment objFile
                oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
                oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.0.7.1"
                oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
                oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
                oMessage.Configuration.Fields.Update
               
                oMessage.Send
                Set oMessage = Nothing
            End If
       End If
    Next
End Sub