Question

如何引用它始终指向的代码中的特定电子邮件地址默认电子邮件帐户。我的Outlook中有多个电子邮件帐户，我想从其他帐户下载电子邮件，我想通过该电子邮件地址引用。我有一种感觉

$ folder = $ namespace.getDefaultFolder（$ olFolders :: olFolderInBox）必须改变请提出建议。

`[CmdletBinding(DefaultParameterSetName="All")] `

`Param( 
    [Parameter(Mandatory=$true, 
        Position=0, 
        HelpMessage='Folder path to store emails. Do not use quotation marks even if the path has spaces.', 
        ValueFromPipelineByPropertyName=$true 
    )] 
    [Alias("Destination", "Dest", "FullName")] 
    [String]$DestinationPath, `

    [Parameter(ParameterSetName="All")] 
    [Parameter(Mandatory=$true,ParameterSetName="Unread")] 
    [Switch]$UnreadOnly, 

    [Parameter(ParameterSetName="Unread")] 
    [Switch]$MarkRead 
) 

    #Removes invalid Characters for file names from a string input and outputs 
    the clean string 
`   #Similar to VBA CleanString() Method 
    #Currently set to replace all illegal characters with a hyphen (-) 
    Function Remove-InvalidFileNameChars {`

    param( 
        [Parameter(Mandatory=$true, Position=0)] 
        [String]$Name 
    ) 

    return [RegEx]::Replace($Name, "[{0}]" -f ([RegEx]::Escape([String][System.IO.Path]::GetInvalidFileNameChars())), '-') 
} 

#Test for destination folder nonexistence 
if (!(Test-Path $DestinationPath)) { 
    #Set values for prompt and menu 
    $yes = New-Object System.Management.Automation.Host.ChoiceDescription "&Yes", ` 
        "Confirmation Choice" 
    $no = New-Object System.Management.Automation.Host.ChoiceDescription "&No", ` 
        "Negative Response" 
    $options = [System.Management.Automation.Host.ChoiceDescription[]]($yes, $no) 
    $title = "Invalid Destination" 
    $message = "The folder you entered does not exist.  Would you like to create the folder?" 

    #Prompt for folder creation and store answer 
    $result = $host.UI.PromptForChoice($title, $message, $options, 0) 

    #If yes, create. 
    if ($result -eq 0) { 
        New-Item $DestinationPath -ItemType Directory | Out-Null 
        Write-Host "Directory created." 
    } 
    #If no, exit 
    else {exit} 
} 

#Add a trailing "\" to the destination path if it doesn't already 
if ($DestinationPath[-1] -ne "\") { 
    $DestinationPath += "\" 
} 

#Add Interop Assembly 
Add-type -AssemblyName "Microsoft.Office.Interop.Outlook" | Out-Null 

#Type declaration for Outlook Enumerations, Thank you Hey, Scripting Guy! blog for this demonstration 
$olFolders = "Microsoft.Office.Interop.Outlook.olDefaultFolders" -as [type] 
$olSaveType = "Microsoft.Office.Interop.Outlook.OlSaveAsType" -as [type] 
$olClass = "Microsoft.Office.Interop.Outlook.OlObjectClass" -as [type] 

#Add Outlook Com Object, MAPI namespace, and set folder to the Inbox 
$outlook = New-Object -ComObject Outlook.Application 
$namespace = $outlook.GetNameSpace("MAPI") 
#Future Functionality to Receive Email before saving - Still Needs Testing 
#$outlook.Session | Out-Null 
#$outlook.Session.SendAndReceive($false) | Out-Null 
$folder = $namespace.getDefaultFolder($olFolders::olFolderInBox) 

#Iterate through each object in the chosen folder 
foreach ($email in $folder.Items) { 

    #Get email's subject and date 
    [string]$subject = $email.Subject 
    [string]$sentOn = $email.SentOn 

    #Strip subject and date of illegal characters, add .msg extension, and combine 
    $fileName = Remove-InvalidFileNameChars -Name ($sentOn + "-" + $subject + ".msg") 

    #Combine destination path with stripped file name 
    $dest = $DestinationPath + $fileName 

    #Test if object is a MailItem 
    if ($email.Class -eq $olClass::olMail) { 

        #Test if UnreadOnly switch was used 
        if ($UnreadOnly) { 

            #Test if email is unread and save if true 
            if ($email.Unread) { 

                #Test if MarkRead switch was used and mark read 
                if ($MarkRead) { 
                    $email.Unread = $false 
                } 
                $email.SaveAs($dest, $olSaveType::olMSG) 
            } 
        } 
        #UnreadOnly switch not used, save all 
        else { 
            $email.SaveAs($dest, $olSaveType::olMSG) 
        } 
    } 
}

Answer 1

认为你可以这样做：

$outlook = New-Object -ComObject Outlook.Application  
$namespace =$outlook.GetNameSpace("MAPI") 
$namespace.Logon("Profilename","profilepassword",$false,$false)

您也可以使用Assembly - Microsoft.Exchange.WebServices.dll并执行以下操作：

[Reflection.Assembly]::LoadFile("C:\Program Files (x86)\Microsoft\Exchange\Web Services\2.0\Microsoft.Exchange.WebServices.dll") > $nul
$getref = New-Object Microsoft.Exchange.WebServices.Data.ExchangeService([Microsoft.Exchange.WebServices.Data.ExchangeVersion]::Exchange2010_SP2)
$getref.Credentials = New-Object Net.NetworkCredential('Account', 'Password', 'domain.local')
$getref.AutodiscoverUrl("Account@domain.com")
$inbox = [Microsoft.Exchange.WebServices.Data.Folder]::Bind($getref,[Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::Inbox)
#Write-Host "Total Messages:" $inbox.TotalCount
$psPropset = new-object Microsoft.Exchange.WebServices.Data.PropertySet([Microsoft.Exchange.WebServices.Data.BasePropertySet]::FirstClassProperties) 
$ivItemView = New-Object Microsoft.Exchange.WebServices.Data.ItemView($inbox.TotalCount)
$fiItems = $getref.FindItems($Inbox.Id,$ivItemView) 
[Void]$getref.LoadPropertiesForItems($fiItems,$psPropset) 

foreach($Item in $fiItems.Items){

if ($Item.From -EQ "Somemail@domain.com") {

New-Object -TypeName PSObject -Property @{

Emails = $Item.From

} | select Emails
}
}

Answer 2

您好！你可以加载一个正文文本（到html）：

 foreach($Item in $fiItems.Items){
if ($Item.Subject -match "Something special") {
$Item.Load()
$Save = ((Get-Date -Format "yyMMdd") + "-" + $Item.Subject[0] + ".html")
New-Item -Path "C:\file\exch\" -name $Save -ItemType file -value $Item.Body.Text
}
}

使用PowerShell从outlook下载电子邮件？

2 个答案: