Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Создание подписи Outlook через VBS с условием

Ответить
Настройки темы
VBS/WSH/JS - Создание подписи Outlook через VBS с условием

Пользователь


Сообщения: 63
Благодарности: 2

Профиль | Отправить PM | Цитировать

Есть 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
Благодарности: 8087

Профиль | Отправить PM | Цитировать

С «On Error Resume Next» никогда не бывает «замечательно». Где у Вас определяется «strRegard», что за «objDoc.Range()»?

Общий принцип:
Код: Выделить весь код
If Not IsEmpty(objIADsUser.mobile) Then
	.TypeText "моб.:" & objIADsUser.mobile
	.TypeText CHR(11)
End If

Отправлено: 14:57, 31-07-2014 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Пользователь


Сообщения: 63
Благодарности: 2

Профиль | Отправить PM | Цитировать

Сделал вот так
Код: Выделить весь код
If objUser.mobile <> "" Then
  objSelection.TypeText CHR(11)
  objSelection.TypeText strmob & objUser.mobile
End If

Отправлено: 15:20, 04-08-2014 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Создание подписи Outlook через VBS с условием

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
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


« Предыдущая тема | Следующая тема »


 
Переход