Как передать скрипт из VBA Access в PowerShell

Public Sub SendEmail(ByVal stTo As String, _
stFrom As String, _
stSubject As String, _
stSmtpServer As String, _
intPort As Integer, _
stPasswd As String, _
boolSSL As Boolean, _
Optional stBody As String = "", _
Optional stAttachment As String = "", _
Optional boolHTML As Boolean = False)
 
Dim strCmd As String
Dim WsShell As Object
 
'присваиваем значения переменным PowerShell
strCmd = strCmd & "$serverSmtp = " & Chr(34) & stSmtpServer & Chr(34) & ";"
strCmd = strCmd & "$port = " & intPort & ";"
strCmd = strCmd & "$from = " & Chr(34) & "<" & stFrom & ">" & Chr(34) & ";"
strCmd = strCmd & "$to = " & Chr(34) & stTo & Chr(34) & ";"
strCmd = strCmd & "$subject = " & Chr(34) & stSubject & Chr(34) & ";"
strCmd = strCmd & "$user = " & Chr(34) & stFrom & Chr(34) & ";"
strCmd = strCmd & "$pass = " & Chr(34) & stPasswd & Chr(34) & ";"
 
'создаем объект Сообщения Email
strCmd = strCmd & "$mes = New-Object System.Net.Mail.MailMessage;"
strCmd = strCmd & "$mes.From = $from;"
strCmd = strCmd & "$mes.To.Add($to);"
strCmd = strCmd & "$mes.Subject = $subject;"
 
    If boolHTML Then 'отправка в виде HTML страницы
    strCmd = strCmd & "$mes.IsBodyHTML = $true;"
    End If
    If Nz(stBody, "") > "" Then 'отправка с телом письма
    strCmd = strCmd & "$body = " & Chr(34) & stBody & Chr(34) & ";"
    strCmd = strCmd & "$mes.Body = $body;"
    End If
    If Nz(stAttachment, "") <> "" Then 'отправка письма с вложением файла
    strCmd = strCmd & "$file = " & Chr(34) & stAttachment & Chr(34) & ";"
    strCmd = strCmd & "$att = New-object Net.Mail.Attachment($file)" & ";"
    strCmd = strCmd & "$mes.Attachments.Add($att)" & ";"
    End If
 
'создаем связь с SmtpServer
strCmd = strCmd & "$smtp = New-Object Net.Mail.SmtpClient($serverSmtp, $port)" & ";"
    If boolSSL Then
    strCmd = strCmd & "$smtp.EnableSSL = $true" & ";"
    End If
strCmd = strCmd & "$smtp.Credentials = New-Object System.Net.NetworkCredential($user, $pass)" & ";"
 
'отправляем письмо
strCmd = strCmd & "$smtp.Send($mes)" & ";"
 
'освобождаем память
If Nz(stAttachment, "") <> "" Then
strCmd = strCmd & "$att.Dispose()" & ";"
End If
 
'формируем конечную строку скрипта для PowerShell
strCmd = "powershell -NoExit -Command &" & "{" & strCmd & "}" 'это не срабатывает??? -ошибка в формате передачи, я подозреваю
 
Debug.Print strCmd
 
'создаем объект PowerShell и передаем в него созданый скрипт
Set WsShell = CreateObject("WScript.Shell")
WsShell.Run strCmd, 7, True 'это не срабатывает???
 
End Sub