通过Powershell和Outlook发送电子邮件

Question

我的文件系统上有一个.msg文件。 使用powershell，我可以打开Outlook窗口，并显示以下消息：

Invoke-Item "MY MAIL.msg"

如何通过Powershell更改主题并将其转发到给定地址？

提前致谢

Answer 1

我们有一个问题，要求从Outlook转发电子邮件，这需要3000多个电子邮件。

Iain给出的答案使我走上了成功之路，所以谢谢。

但是，它对我来说不起作用，但失败了。 我注意到您需要将forward的方法保存到变量中，然后从中执行代码，以下是我完整的脚本，用于遍历文件夹中的每个msg文件并将其转发给一个人。

我也照原样离开了主体，因为没有必要，所以没有留下尸体。

#Open Outlook and get a list of emails to forward
$Outlook = New-Object -comObject Outlook.Application 
$Emails = Get-ChildItem -Path C:\Users\APerson\Documents -Filter *.msg

#Loop through each email and open it up
Foreach($Email IN $Emails){
    $Message = $Outlook.Session.OpenSharedItem($($Email.FullName))
    $Forward = $Message.Forward()
    $Forward.Recipients.Add('a.person@gmail.com') 
    $Forward.Send()

    #Sleep is optional :D
    Start-Sleep -Seconds 1
}

#Close Outlook
$Outlook.Quit()

还应注意，如果您有应用到Outlook的安全策略阻止了您运行此脚本，例如它将删除收件人的Add（），只需导入以下注册表设置（可以另存为reg文件）：

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Policies\Microsoft\office\14.0\outlook\security]
"PromptOOMSend"=dword:00000002
"PromptOOMAddressBookAccess"=dword:00000002
"PromptOOMAddressInformationAccess"=dword:00000002
"PromptOOMMeetingTaskRequestResponse"=dword:00000002
"PromptOOMSaveAs"=dword:00000002
"PromptOOMFormulaAccess"=dword:00000002
"PromptSimpleMAPISend"=dword:00000002
"PromptSimpleMAPINameResolve"=dword:00000002
"PromptSimpleMAPIOpenMessage"=dword:00000002

Answer 2

您可以尝试类似的方法，并与Outlook 2010配合使用

$ol = New-Object -comObject Outlook.Application 
gm -InputObject $ol
$mail = $ol.Session.OpenSharedItem("C:\Users\fred\Desktop\Test Email Subject.msg")
$mail.Forward()
$Mail.Recipients.Add("fred@bloggs.com") 
$Mail.Subject = "Test Mail" 
$Mail.Body = " Test Mail 22222 "
$Mail.Send() 

Answer 3

在PowerShell 2.0中，有一个Send-MailMessage cmdlet，允许您附加文件，指定主题和收件人，例如：

Send-MailMessage -smtpServer smtp.doe.com -from 'joe@doe.com' `
                 -to 'jane@doe.com' -subject 'Testing' -attachment foo.txt

不知道该如何处理.msg文件，但是您可以尝试一下。