Сохранить защищенный паролем почтовый файл из электронной почты

Question

Мне нужно сохранить zip-файл, защищенный паролем, из электронного письма, используя VBA. Когда я пытаюсь сохранить этот zip-файл, появляется всплывающее окно, см. Рисунки ниже. Я использую этот код VBA:

    For Each objAttachment In objAttachments
    If Right(objAttachment.FileName, 3) = "zip" Then
       strFilePath = strTempFolder & "\" & objAttachment.FileName
       objAttachment.SaveAsFile (strFilePath)
       objShell.NameSpace((strTempFolder)).CopyHere objShell.NameSpace((strFilePath)).Items
    End If
Next

Есть ли способ загрузить zip-файл без появления windows?

Предупреждение

ZipMail - Хотите распаковать