Упаковка в архив (с использованием пароля на архив) и отправка по почте

Sub Запаковать_документ_и_отправить()
    Dim MyDocPath As String, MyDocName As String
    Dim MyArhivPath As String, MyArhivName As String
    Dim Password As String, ShellArgument As String, ZipFullName As String, ZipPathCommand As String
    Dim fs As New Scripting.FileSystemObject
    ZipFullName = "C:\Program Files\7-Zip\7z.exe"
    ZipPathCommand = ZipFullName & " a "
    If Dir(ZipFullName) = "" Then
        MsgBox "Не найден файл 7z.exe" & Chr(10) & ZipFullName
        Exit Sub
    End If
    MyDocPath = "C:\temp\"
    MyDocName = "Document1.doc"
    MyArhivPath = "C:\temp\"
    MyArhivName = "Document1.zip"
    Password = "111"
    ShellArgument = ZipPathCommand & MyArhivPath & MyArhivName & " " & MyDocPath & MyDocName & " -tzip  -p" & Password
    Shell (ShellArgument)
    DoEvents: DoEvents: DoEvents: DoEvents: DoEvents
    Application.Wait (Now + TimeValue("0:00:01"))
    Dim oOutlook As New Outlook.Application
    ' в приложении откуда запускается макрос в VBE должна быть ссылка на объектную библиотеку Outlook
    ' У меня это Microsoft Outlook 12.0 Object library
    Dim oMessage As Outlook.MailItem
    'Создаем объект сообщения
    Set oMessage = oOutlook.CreateItem(olMailItem)
    'Кому
    oMessage.To = "Administrator@nwtraders.msft"
    'Тема сообщения
    oMessage.Subject = "Отправка " & MyDocName
    'Текст сообщения. Использование свойства Body означает,
    'что мы посылаем сообщение обычным текстом.
    'Можно также послать сообщение в формате HTML или RTF
    oMessage.Body = "Текст сообщения: вложение"
    'Добавляем вложение
    oMessage.Attachments.Add (MyArhivPath & MyArhivName)
    Kill MyArhivPath & MyArhivName
    'Отправляем сообщение
    oMessage.Send
End Sub