![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Создание подписи Outlook через VBS с условием |
|
VBS/WSH/JS - Создание подписи Outlook через VBS с условием
|
Пользователь Сообщения: 63 |
Есть VBS скрипт который берет данные из АД и формирует подпись
On Error Resume Next Set objSysInfo = CreateObject("ADSystemInfo") strUser = objSysInfo.UserName Set objUser = GetObject("LDAP://" & strUser) strZpov = "С уважением" strtel = "тел.:" strmob = "моб.:" strName = objUser.FullName strTitle = objUser.Title strDepartment = objUser.Department strstreet = objuser.streetAddress strPhone = objUser.telephoneNumber strMobile = objUser.mobile strEmail = objuser.mail strLogo = "\\111\public\temp\111.png" strsevdol = "\\222\public\temp\222.png" stryunt = "\\333\public\temp\333.png" str360 = "\\444\public\temp\444.png" strgorod = objuser.l strIPphone = objUser.ipPhone 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.Name = "Calibri" objSelection.Font.Size = "11" objSelection.Font.Color = RGB(99,99,99) objSelection.Font.Bold = False 'Формат objSelection.ParagraphFormat.Space1 objSelection.TypeText strRegard objSelection.TypeText CHR(11) objSelection.TypeText strZpov & ", " & strName objSelection.TypeText CHR(11) objSelection.TypeText strTitle objSelection.TypeText CHR(11) objSelection.TypeText strDepartment objSelection.TypeText CHR(11) objSelection.InlineShapes.AddPicture(strLogo) objSelection.TypeText CHR(11) objSelection.TypeText strgorod & ", " & strstreet objSelection.TypeText CHR(11) objSelection.TypeText strtel & strPhone &"(" & strIPphone & ")" objSelection.TypeText CHR(11) objSelection.TypeText strmob & objUser.mobile objSelection.TypeText CHR(11) objSelection.Hyperlinks.Add objSelection.range, "mailto:" & strEmail, , , strEmail objSelection.TypeText CHR(11) 'objSelection.InlineShapes.AddPicture(strsevdol) Set objLink = objSelection.Hyperlinks.Add(objSelection.InlineShapes.AddPicture("\\222\public\temp\222.png"), "http://111.ru/",,,"") Set objLink = objSelection.Hyperlinks.Add(objSelection.InlineShapes.AddPicture("\\333\public\temp\333.png"), "http://222.ru/",,,"") Set objLink = objSelection.Hyperlinks.Add(objSelection.InlineShapes.AddPicture("\\444\public\temp\444.png"), "http://333.ru/",,,"") ' ########### Tells outlook to use this signature for new messages and replys. Signature is called AD Signature. Set objSelection = objDoc.Range() objSignatureEntries.Add "AD Signature", objSelection objSignatureObject.NewMessageSignature = "AD Signature" objSignatureObject.ReplyMessageSignature = "AD Signature" objDoc.Saved = True objWord.Quit Все замечательно, но есть условие поле мобильный заполнено не у всех Следовательно если оно пустое strMobile = objUser.mobile то нужно сделать так что бы строка в подписи strmob = "моб.:" отсутствовала... Может кто знает как это сделать |
|
Отправлено: 12:23, 31-07-2014 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать |
Отправлено: 14:57, 31-07-2014 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Пользователь Сообщения: 63
|
Профиль | Отправить PM | Цитировать |
Отправлено: 15:20, 04-08-2014 | #3 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
VBS/WSH/JS - Создание ярлыка с условием | ozzzzi | Скриптовые языки администрирования Windows | 2 | 11-10-2014 22:40 | |
CMD/BAT - Создание подписи в Outlook 2007/2010 батником. | BumbleBee | Скриптовые языки администрирования Windows | 5 | 09-01-2014 18:15 | |
2007 - Outlook 2007 бегущая строка в подписи | Raz0rnsk | Microsoft Office (Word, Excel, Outlook и т.д.) | 0 | 01-08-2012 08:09 | |
2010 - [решено] Outlook | MCP Business Cards в качестве подписи к письмам | DreDa | Microsoft Office (Word, Excel, Outlook и т.д.) | 3 | 13-01-2012 05:20 | |
2007 - Outlook | Сохранение формата сообщения HTML, и форматирования подписи | __sa__nya | Microsoft Office (Word, Excel, Outlook и т.д.) | 2 | 16-06-2010 07:53 |
|