gap5
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, есть такой скрипт, он создает через Word подпись для Outlook 2013.
Необходимо его модифицировать т.о., чтобы получилась такая компоновка:
Где 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 |
|
