Forum ThiWeb.com

Code : Tout sélectionner

# Définir le chemin du fichier de sortie
$outputPath = "C:\Path\To\Your\OutputFile.csv"

# Démarrer Outlook
$outlook = New-Object -ComObject Outlook.Application
$namespace = $outlook.GetNamespace("MAPI")

# Récupérer le dossier de la boîte de réception
$inbox = $namespace.GetDefaultFolder([Microsoft.Office.Interop.Outlook.OlDefaultFolders]::olFolderInbox)

# Vérifier si l'objet récupéré est du bon type
if ($inbox -is [Microsoft.Office.Interop.Outlook.MAPIFolder]) {
    Write-Host "Boîte de réception récupérée avec succès."
} else {
    Write-Host "Erreur : l'objet récupéré n'est pas du type attendu."
    exit
}

# Fonction récursive pour parcourir les sous-dossiers et exporter les e-mails
function Export-Mails {
    param (
        [Microsoft.Office.Interop.Outlook.MAPIFolder]$folder
    )

    foreach ($item in $folder.Items) {
        if ($item -is [Microsoft.Office.Interop.Outlook.MailItem]) {
            $mail = $item
            $obj = [PSCustomObject]@{
                Subject      = $mail.Subject
                Sender       = $mail.SenderName
                To           = $mail.To
                Cc           = $mail.CC
                Bcc          = $mail.BCC
                ReceivedTime = $mail.ReceivedTime
                Body         = $mail.Body
            }
            $obj | Export-Csv -Path $outputPath -Append -NoTypeInformation -Encoding UTF8
        }
    }

    foreach ($subFolder in $folder.Folders) {
        Export-Mails -folder $subFolder
    }
}

# Appeler la fonction pour exporter les e-mails de la boîte de réception et des sous-dossiers
Export-Mails -folder $inbox