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 ответов

22 просмотра

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

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

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

Господа, а что сейчас вообще с рынком труда на делфи происходит? Какова ситуация?
Rꙮman Yankꙮvsky
29
А вообще, что может смущать в самой Julia - бы сказал, что нет единого стандартного подхода по многим моментам, поэтому многое выглядит как "хаки" и произвол. Короче говоря, с...
Viktor G.
2
30500 за редактор? )
Владимир
47
а через ESC-код ?
Alexey Kulakov
29
Чёт не понял, я ж правильной функцией воспользовался чтобы вывести отладочную информацию? но что-то она не ловится
notme
18
У меня есть функция где происходит это: write_bit(buffer, 1); write_bit(buffer, 0); write_bit(buffer, 1); write_bit(buffer, 1); write_bit(buffer, 1); w...
~
14
Добрый день! Скажите пожалуйста, а какие программы вы бы рекомендовали написать для того, чтобы научиться управлять памятью? Можно написать динамический массив, можно связный ...
Филипп
7
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
Ребят в СИ можно реализовать ООП?
Николай
33
https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_h_common.erl#L174 https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_olp.erl#L76 15 лет назад...
Maksim Lapshin
20
Карта сайта