OpenConcerto

Dépôt officiel du code source de l'ERP OpenConcerto
sonarqube

svn://code.openconcerto.org/openconcerto

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
182 ilm 1 
Add-Type -assembly "Microsoft.Office.Interop.Outlook"
2 
Add-Type -assembly "System.Runtime.Interopservices"
3 
try {
4 
$outlook = [Runtime.Interopservices.Marshal]::GetActiveObject('Outlook.Application')
5 
    $outlookWasAlreadyRunning = $true
6 
} catch {
7 
    try {
8 
        $Outlook = New-Object -comobject Outlook.Application
9 
        $outlookWasAlreadyRunning = $false
10 
    } catch {
11 
        write-host "You must exit Outlook first."
12 
        exit
13 
    }
14 
}
15 
 
16 
$mail = $Outlook.CreateItem( [Microsoft.Office.Interop.Outlook.OlItemType]::olMailItem)
17 
 
18 
$stdin = [Console]::OpenStandardInput()
19 
try {
20 
  $sr = New-Object -TypeName 'System.IO.StreamReader' -ArgumentList  $stdin,[Text.UTF8Encoding]
21 
  $mail.body = $sr.ReadToEnd()
22 
} finally {
23 
  $stdin.Close()
24 
}
25 
 
26 
$mail.subject = @subject@
27 
$mail.to = @to@
28 
foreach ( $att in @attachments@ ) {
29 
    $mail.attachments.add($att)
30 
}
31 
$mail.Display()