主页 / computer / 问题 / 1668849
Accepted
ASD
Asked: 2021-08-12 08:00:27 +0800 CST

Powershell Outlook 电子邮件、附件、主题

  • 772

所以我得到了一个包含不同 PDF 文件的文件夹（“RG 330526.pdf”、“RG 330527.pdf”、“RG 330528.pdf”）等。

现在，我想创建一个新的电子邮件，附加文件夹中的第一个 pdf (C:\1_PDF) 并像 pdf 文件一样命名主题。将电子邮件保存在草稿中，然后从下一封电子邮件/下一个 pdf 文件重新开始。

这是我到目前为止所得到的，我需要一些关于循环的帮助：

$Outlook = New-Object -ComObject Outlook.Application
$namespace = $Outlook.GetNameSpace("MAPI")
$namespace.Logon($null, $null, $false, $true);
$EmailFrom = ("[email protected]")
$Mail = $Outlook.CreateItem(0)
$Mail.To = $EmailTo
$Mail.Subject = $EmailSubject
#$signature = $Mail.HtmlBody
#$Mail.HtmlBody = $EmailHtmlBody + $signature
$account = $outlook.Session.Accounts.Item($EmailFrom)
function Invoke-SetProperty {
    param(
        [__ComObject] $Object,
        [String] $Property,
        $Value
    )
    [Void] $Object.GetType().InvokeMember($Property,"SetProperty",$NULL,$Object,$Value)
}
Invoke-SetProperty -Object $mail -Property "SendUsingAccount" -Value $account

#$Mail.GetInspector.Activate()

$Mail.Save()
microsoft-outlook powershell

2 个回答

  1. Best Answer

    搞定了！

    这对我有用：

    $WorkDir = "C:\1_PDF"

$RGMailList = Get-ChildItem -Path $WorkDir -Filter *.pdf 

ForEach ($RGMail in $RGMailList)
{
$Outlook = New-Object -ComObject Outlook.Application
$namespace = $Outlook.GetNameSpace("MAPI")
$namespace.Logon($null, $null, $false, $true);
$EmailFrom = ("[email protected]")
$Mail = $Outlook.CreateItem(0)
$Mail.To = "[email protected]"
$Mail.Subject = "Subject " + "$RGMail".substring(3)
$account = $outlook.Session.Accounts.Item($EmailFrom)
function Invoke-SetProperty {
    param(
        [__ComObject] $Object,
        [String] $Property,
        $Value        
    )
    [Void] $Object.GetType().InvokeMember($Property,"SetProperty",$NULL,$Object,$Value)
   }
Invoke-SetProperty -Object $mail -Property "SendUsingAccount" -Value $account

$Mail.GetInspector.Activate()
$Mail.Attachments.Add("$WorkDir\$RGMail")
$Mail.Send()}
    • 1
    1. 您没有显示任何用于获取第一个文件的代码。Get-ChildItem, Select-Object, 等等..
    2. 你不是说你是如何确定文件的，这是第一个。名称、日期时间戳等的含义...

    您所追求的并不是新事物，网络和 Youtube 上都有大量示例代码。

    您不一定需要 Outlook 来执行此操作。这就是...

    Send-MailMessage

    ...cmdlet 可用于您可以安装和使用的众多模块之一。

    Find-Module -Name '*mail*'

    使用 Outlook 没有任何问题，而且网络上还有很多示例。例如：

    https://blogit.create.pt/andresilva/2017/12/07/sending-an-email-with-attachments-using-outlook-and-powershell/

    # Check to see we have all the arguments
if($args.Count -lt 1)
{
Write-Host "Use: SendMail.ps1 <Path>"
Write-Host
Write-Host " <Path>: Full path for the folder which contains the files"
Write-Host
exit
}

$FullPath=$args[0]

#Get an Outlook application object

$o = New-Object -com Outlook.Application

$mail = $o.CreateItem(0)

#2 = High importance message
$mail.importance = 2

$mail.subject = "This is the subject of the mail"
$mail.body = "This is the body of the email. It has been automatically generated by a script."

#separate multiple recipients with a ";"
$mail.To = <INSERT THE RECIPIENT HERE>
#$mail.CC = <OTHER RECIPIENT 1>;<OTHER RECIPIENT 2>

# Iterate over all files and only add the ones that have an .html extension
$files = Get-ChildItem $FullPath

for ($i=0; $i -lt $files.Count; $i++) {

$outfileName = $files[$i].FullName
$outfileNameExtension = $files[$i].Extension

# if the extension is the one we want, add to attachments
if($outfileNameExtension -eq ".html")
{
$mail.Attachments.Add($outfileName);
}
}

$mail.Send()

# give time to send the email
Start-Sleep 20

# quit Outlook
$o.Quit()

#end the script
exit
    • 0

相关问题