Запустите командную строку powershell с VBA

Question

Hy:)

Я бы знал, как мне запустить powershell из vba. Это строка, которую я хочу поставить из ячейки Excel для запуска в powershell.

[System.Net.ServicePointManager]::SecurityProtocol = 'TLS12'
$sendMailParams = @{
        From = 'test@some.thing'
        To = 'thast.where@itshould.go'
        Subject = "Thats a test!"
        Body = "Cheap meatballs on sale"; 
        SMTPServer = 'smtp sever name'
        SMTPPort = 25
        UseSsl = $true}
    Send-MailMessage -From $sendMailParams.From -To $sendMailParams.To -Body $sendMailParams.Body -SmtpServer $sendMailParams.SMTPServer -Port $sendMailParams.SMTPPort -UseSsl -Subject $sendMailParams.Subject -Encoding UTF8

Вот что я нашел:

Sub SendMailwShell()
Dim Email As String
Dim retval
ActiveSheet.Select
Email = Cells(1,1).Value
Debug.Print Email

retval = Shell("powershell " & Email)

MsgBox retval

End Sub

Спасибо за любой полезный комментарий / идею. Хорошего дня!