169 похожих чатов

$Mail = "test@mail.ru" function Add-HyperLink { param (

[PARAMETER(Mandatory=$True)][string]$text,
[PARAMETER(Mandatory=$True)][string]$link,
[array]$objects = @($Global:objSelection,$Global:objSelection_reply),
[string]$size_font = "9",
[int]$color = $Grey_color,
[string]$font = "Tahoma",
[bool]$Bold
)
#foreach ($i=0; $i -le ($objects.Count-1); $i++) {
$objects | %{
$Range = $_.Range
$hyp = $_.Hyperlinks.Add($Range, $link, "" , "",$text)
$hyp.Range.Font.Name = $font
$hyp.Range.Font.Size = $size_font
$hyp.Range.Font.Color = $color
if ($Bold) {
$hyp.Range.Font.Bold = $True
}
else {
$hyp.Range.Font.Bold = $False
}
}
}

function Add-Text {
param (
[PARAMETER(Mandatory=$True)][string]$text,
[array]$objects = @($Global:objSelection,$Global:objSelection_reply),
[string]$font="Tahoma",
[string]$fontsize="9",
[switch]$bold,
[int]$colortext=$Grey_color
)
for ($i=0; $i -le ($objects.Count-1); $i++) {
$objects[$i].ParagraphFormat.SpaceAfter=1
$objects[$i].Font.Color = $colortext
if ($bold){$objects[$i].Font.Bold = $True}
else{$objects[$i].Font.Bold = $False}
$objects[$i].Font.Name = $font
$objects[$i].Font.Size = $fontsize
$objects[$i].TypeText($text)
}
}

function Add-NewLine {
param (
[array]$objects = @($Global:objSelection,$Global:objSelection_reply)
)
for ($i=0; $i -le ($objects.Count-1); $i++) {
Add-Text "`n" -objects $objects[$i]
}

}

$objWord = New-Object -ComObject Word.Application

#region Создаём COM объект, устанавливаем опции
$objWord = New-Object -ComObject Word.Application

$objDoc = $objWord.Documents.Add()
$Global:objSelection = $objWord.Selection

$objDoc_reply = $objWord.Documents.Add()
$Global:objSelection_reply = $objWord.Selection

#$Global:objSelection.Style = "No Spacing"
$objEmailOptions = $objWord.EmailOptions
$objSignatureObject = $objEmailOptions.EmailSignature
$objSignatureEntries = $objSignatureObject.EmailSignatureEntries
#endregion

#region наполняем контент
Add-Text -text "ТЕКСТ ТЕКСТ ТЕКСТ ТЕКСТ" -fontsize "11" -bold
Add-NewLine
Add-Text -text "ТЕКСТ ТЕКСТ ТЕКСТ ТЕКСТ" -fontsize "11"
Add-NewLine
Add-HyperLink -link "mailto:$mail" -text $mail
Add-NewLine
Add-Text -text "ТЕКСТ ТЕКСТ ТЕКСТ ТЕКСТ" -fontsize "11" -bold
Add-NewLine
Add-Text -text "ТЕКСТ ТЕКСТ ТЕКСТ ТЕКСТ" -fontsize "11"
Add-NewLine
#endregion

#region Сохраняем результат и устанавливаем в подпись
$Global:objSelection = $objDoc.Range()
$Global:objSelection_reply = $objDoc_reply.Range()

$objSignatureEntries.Add("Sign", $Global:objSelection)
$objSignatureEntries.Add("Sign_reply", $Global:objSelection_reply)
$objSignatureObject.NewMessageSignature = "Sign"
$objSignatureObject.ReplyMessageSignature = "Sign_reply"

$objDoc.Saved = $True
$objDoc.Close

$objDoc_reply.Saved = $True
$objDoc_reply.Close

$objWord.Quit
#endregion

# Закрываем все процессы outlook. Бывает что он подвисает в момент закрытия COM объекта.
Get-WmiObject Win32_Process | ?{$_.name -match "outlook.exe|word"} | %{$_.Terminate()}

1 ответов

7 просмотров

сорям, я подобное последний раз делал лет 10 назад, нича не помню уже)

Похожие вопросы

Обсуждают сегодня

Anyone here suffers from unexplained aural migraines, who would be up for talking for a bit? Doesn't *have* to be aural, but I am not asking about headaches, I mean actual mi...
Martin Rys
55
Я тут за тем, чтобы задать вопрос, так как не знаю ассемблер, учу с/с++. Короче, насколько дорога операция перехода в функцию при ее вызове? Дело в том, что в с++ есть макросы...
Максим Рябцев
12
А какие чаты вообще в ходу? Auto aim? И что еше
do you think you're better off alone? А
13
hello friends. Do you know how can I learn getx? I have a software project that I should deliver it up to 5 weeks later and I need to learn firebase too. I will be thankfull
AmirHossein Razavi
15
Привет, нужен совет старших товарищей. Есть глобальная переменная var DefaultDataFolder:string; инициализируем DefaultDataFolder:='a:\_OUT\'; есть примитивная процедур...
Max Otto
14
Доброе время суток! у меня тут иноды закончились. и понял почему по сути кстит, я периодически очищаю постгрес и сентри контайнер: postgres=# DELETE FROM nodestore_node WHER...
Юсиф Насиров
9
Вопрос. Теоретический. Есть список команд. Команды отправляю в обработку некой функции, по очереди. Разные команды могут давать разные результаты после обработки. В зависимос...
Serjone
7
Какой дос блять?
007
9
lazarus-3.2.0/gtk, linux патч "имя проекта по умолчанию project1 -> prj" день добрый не нравится "именя проекта по умолчанию" (project1), к.раз приходится переименовывать (н...
livontiy
5
Коллеги, а в чём сейчас хорошо писать на перле, в смысле ide? Пробовал в идее с плагином, подсветка есть, даже какие-то предупреждения есть, но рефакторинга считай нет. Перене...
Дмитрий Петров
9
Карта сайта