Dmitriy Melkin
10-01-2013, 10:17
Добрый день!
Возникла необходимость автоматически печатать вложения формата PDF из Outlook. Т.е. как только на почту приходит письмо с вложением в формате PDF, его (сам файлик PDF) необходимо сразу же отправлять на принтер.
Вот примерчик скрипта, который выкопал из инета:
$ol = New-Object -ComObject Outlook.Application
$ns = $ol.GetNameSpace('MAPI')
$olinbox = 6
$inbox = $ns.GetDefaultFolder( $olInbox )
$olPdfFolder = $inbox.Folders.Item('pdf')
$olPdfFolder.Items | %{
foreach ($attachment in $_.Attachments)
{
$attachment.SaveAsFile( "C:\pdf\$($attachment.FileName)")
}
}
$shell = New -com Shell.Application
$shell.Namespace('C:\pdf').Items() | %{ $_.InvokeVerb('Print') }
Но проверить его не могу.
Подскажите, будет ли работать этот скрипт и как его импортнуть в Outlook.
Возникла необходимость автоматически печатать вложения формата PDF из Outlook. Т.е. как только на почту приходит письмо с вложением в формате PDF, его (сам файлик PDF) необходимо сразу же отправлять на принтер.
Вот примерчик скрипта, который выкопал из инета:
$ol = New-Object -ComObject Outlook.Application
$ns = $ol.GetNameSpace('MAPI')
$olinbox = 6
$inbox = $ns.GetDefaultFolder( $olInbox )
$olPdfFolder = $inbox.Folders.Item('pdf')
$olPdfFolder.Items | %{
foreach ($attachment in $_.Attachments)
{
$attachment.SaveAsFile( "C:\pdf\$($attachment.FileName)")
}
}
$shell = New -com Shell.Application
$shell.Namespace('C:\pdf').Items() | %{ $_.InvokeVerb('Print') }
Но проверить его не могу.
Подскажите, будет ли работать этот скрипт и как его импортнуть в Outlook.