Войти

Показать полную графическую версию : Форматирование в скрипте генерации подписи Outlook через Word


amped
09-02-2016, 16:32
Подскажите, есть такой скрипт, он создает через Word подпись для Outlook 2013.
Необходимо его модифицировать т.о., чтобы получилась такая компоновка:
http://bestpics.ru/full/ap_signature.jpg

Где 1, 2, 3 -- гиперссылки. Насколько я понимаю единственный способ это резать картинку на 5 отдельных и на нужные назначать ссылки? Но можно ли быть уверенным в том, что между картинками не будет отступов?

И самое главное, как сделать так, чтобы картинки были одна под другой, а текст справа?


On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
strRegard = "Best regards,"
strBlank =""
'Получаем полное имя
strName = objUser.FullName
'Должность
strTitle = objUser.Title
'Подразделение
strDepartment = objUser.Department
'Компания
strCompany = objUser.Company
'Номер телефона
strPhone = objUser.telephoneNumber
strOffice = objUser.PhysicalDeliveryOfficeName
'Сотовый
strMobile = objUser.mobile
'Факс
'strFax = objuser.facsimileTelephoneNumber
'Получаем почтовый индекс
'strPostIndex = ObjUser.postalCode
'Город
'strCity = objuser.l
'Улица
'strStreet = objuser.streetAddress
'адрес электронной почты
strEmail = objuser.mail
'WEB страница
'strWeb = objuser.wWWHomePage
strWeb = "apsite.com"
'Логотип организации
strLogo = "C:\Program Files\Logo.png"

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'СОЗДАЕМ САМУ ПОДПИСЬ
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'Начертаниен шрифта
objSelection.Font.Bold = False
'Шрифт
objSelection.Font.Name = "Arial"
'Размер
objSelection.Font.Size = "11"
'Цвет, можно указывать в десятичном или RGB формате, тогда: RGB(0, 0, 110)
objselection.font.color = RGB(0, 0, 0)

'Формат
objSelection.TypeText strRegard
objSelection.TypeText CHR(11)

'пустая строка
objSelection.Font.Size = "8"
objSelection.TypeText strBlank
objSelection.TypeText CHR(11)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Начертание шрифта
objSelection.Font.Bold = False
'Шрифт
objSelection.Font.Name = "Arial"
'Размер
objSelection.Font.Size = "11"
'Цвет, можно указывать в десятичном или RGB формате, тогда: RGB(0, 55, 110)
objselection.font.color = RGB(0, 0, 0)

'Вставляем полное имя
objSelection.TypeText strName
objSelection.TypeText CHR(11)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Начертание шрифта
objSelection.Font.Bold = False
'Шрифт
objSelection.Font.Size = "11"
'Цвет, можно указывать в десятичном или RGB формате, тогда: RGB(0, 55, 110)
objselection.font.color = RGB(0, 0, 0)
'Должность
objSelection.TypeText strTitle
objSelection.TypeText CHR(11)
'Подразделение
'''objSelection.TypeText strDepartment
'''objSelection.TypeText CHR(11)

'Наименование Компании
'objSelection.TypeText strCompany
objSelection.TypeText CHR(11)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Шрифт
'objSelection.Font.Size = "4"

'пустая строка
'objSelection.TypeText strBlank
'objSelection.TypeText CHR(11)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'ДОБОВЛЯЕМ ЛОГОТИПЫ

'логотип компании
objSelection.InlineShapes.AddPicture(strLogo)
objSelection.TypeText CHR(11)

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Шрифт
'objSelection.Font.Size = "4"

'пустая строка
objSelection.TypeText strBlank
objSelection.TypeText CHR(11)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Начертание шрифта
objSelection.Font.Bold = False
'Уменьшаем размер шрифта для адреса
objSelection.Font.Size = "9"
'Цвет, можно указывать в десятичном или RGB формате, тогда: RGB(0, 55, 110)
objselection.font.color = RGB(0, 0, 0)

'Телефон
objSelection.TypeText "Tel: " & strPhone

'Телефон
If (strOffice<>"") then objSelection.TypeText " ext. " & strOffice
'objSelection.TypeText " ext. " & strOffice
objSelection.TypeText CHR(11)

'Сотовый
If (strMobile<>"") then objSelection.TypeText "Mob: " & strMobile & CHR(11)
'objSelection.TypeText " Mob: " & strMobile
'objSelection.TypeText CHR(11)


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'ДОБОВЛЯЕМ ССЫЛКИ
'Начертание шрифта
objSelection.Font.Italic = True
'Изменяем цвет для адреса электронной почты и сайта
objselection.Font.Color = RGB(0, 0, 0)

'Вставляем адрес почты
Set hyp = objSelection.Hyperlinks.Add(objSelection.Range, "mailto:" & strEmail, , , strEmail)
hyp.Range.Font.Size = "11"
objSelection.TypeText CHR(11)

'корпоративный сайт
Set hyp = objSelection.Hyperlinks.Add(objSelection.Range, strWeb, "", "", strWeb)
hyp.Range.Font.Size = "11"
objSelection.TypeText CHR(11)

'пустая строка
objSelection.TypeText strBlank
objSelection.TypeText CHR(11)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'ДОБОВЛЯЕМ ЛОГОТИПЫ

'логотип компании
'objSelection.InlineShapes.AddPicture(strLogo)

Set objSelection = objDoc.Range()

objSignatureEntries.Add "Corp. Signature", objSelection
objSignatureObject.NewMessageSignature = "Corp. Signature"
objSignatureObject.ReplyMessageSignature = "Corp. Signature"

objDoc.Saved = True
objDoc.Close
objWord.Quit




© OSzone.net 2001-2012