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

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

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

Ответить
Настройки темы
CMD/BAT - Не работает vbs Подпись в почте

Аватара для Joni

Старожил


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

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

Собственно скрипт
Код: Выделить весь код
On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://"&strUser)
strRegard = "С уважением,"
strName = objUser.FullName
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strPhone = objUser.telephoneNumber
strMobile = objUser.mobile
strFax = objuser.facsimileTelephoneNumber
strIntPhone = objuser.ipPhone
strPostIndex = ObjUser.postalCode
strCity = objuser.l
strStreet = objuser.streetAddress
strEmail = objuser.mail
strWeb = objuser.wWWHomePage
strLogo = "\\nas\distr\auto.msi\logobslinepochta.bmp"
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 = "Arial"
objSelection.Font.Size = "10"
objSelection.Font.Color = -738164481
objSelection.ParagraphFormat.Space1
objSelection.TypeText strRegard
objSelection.TypeText CHR(11)
objSelection.TypeText strName
objSelection.TypeText CHR(11)
objSelection.TypeText strTitle
objSelection.TypeText CHR(11)
objSelection.TypeText strDepartment
objSelection.TypeText CHR(11)
objSelection.TypeText strCompany
objSelection.TypeText CHR(11)
objSelection.Font.Size = "9"
objSelection.TypeText strPostIndex & ", г. " & strCity & ", " & strStreet
objSelection.TypeText CHR(11)
objSelection.TypeText "Тел. " & strPhone ' доб. & strIntPhone
objSelection.TypeText CHR(11)
objSelection.TypeText "Моб. " & strMobile
objSelection.TypeText CHR(11)
objSelection.TypeText "Факс " & strFax
objSelection.TypeText CHR(11)
objselection.font.color = RGB(0, 0, 255)
objSelection.Hyperlinks.Add objSelection.range, "mailto:" & strEmail, , , strEmail
objSelection.TypeText CHR(11)
objSelection.Hyperlinks.Add objSelection.Range, strWeb, "", "", strWeb
objSelection.TypeText CHR(11)
objSelection.InlineShapes.AddPicture(strLogo)
Set objSelection = objDoc.Range()
objSignatureEntries.Add "Company Signature", objSelection
objSignatureObject.NewMessageSignature = "Company Signature"
objSignatureObject.ReplyMessageSignature = "Company Signature"
objDoc.Saved = True
objDoc.Close
objWord.Quit
Запускаю тишина. а подписи не появляются. ошибки тоже. как проверить по какой причине не работает у меня данный скрипт?

-------
230451837 ICQ

Отправлено: 12:31, 18-11-2009

 

Googler


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

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

Цитата Joni:
как проверить по какой причине не работает у меня данный скрипт? »
удалить или закомментировать 1-ю строчку

Отправлено: 13:21, 18-11-2009 | #2



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

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


Аватара для Joni

Старожил


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

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

Цитата amel27:
удалить или закомментировать 1-ю строчку »
Есть! Ошибка

-------
230451837 ICQ

Последний раз редактировалось Joni, 12-02-2013 в 12:07.

Отправлено: 13:31, 18-11-2009 | #3


Аватара для Joni

Старожил


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

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

не пашет. ошибка таже

-------
230451837 ICQ

Последний раз редактировалось Joni, 18-11-2009 в 14:49.

Отправлено: 13:44, 18-11-2009 | #4


Googler


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

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

Цитата Joni:
Есть! Ошибка »
Скрипт требует наличия Microsoft Office: Word и Outlook с настроенной учеткой. Для того, чтобы увидеть текст документа можно после строки "Set objWord = CreateObject("Word.Application")" вставить строку:
Код: Выделить весь код
objWord.Visible=1

Отправлено: 16:29, 18-11-2009 | #5


Аватара для Joni

Старожил


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

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

Цитата amel27:
Скрипт требует наличия Microsoft Office: Word и Outlook с настроенной учеткой. Для того, чтобы увидеть текст документа можно после строки "Set objWord = CreateObject("Word.Application")" вставить строку: »
Вставил ничего не увидел.
Office стоит 2007 всеравно ругается
word запускается не по word а по winword, с консоли проверил запускается такой командой. меняю в файле на winword всеравно такая херь ток уже не Word.Application а winword.Application

-------
230451837 ICQ

Отправлено: 16:48, 18-11-2009 | #6


Googler


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

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

и тем не менее следующий VBS-скрипт должен открыть Microsoft Word:
Код: Выделить весь код
Set objWord = CreateObject("Word.Application")
objWord.Visible=1

Отправлено: 10:19, 19-11-2009 | #7


Аватара для Joni

Старожил


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

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

неа. все таже ошибка. Пробывал и на других компах. тоже все самое!

Может есть другие варианты? решить эту проблему а именно. Подписи всем

-------
230451837 ICQ

Отправлено: 12:54, 19-11-2009 | #8



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

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

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
V. 2007 - Подпись. minion Microsoft Exchange Server 7 06-05-2012 20:01
VBS/WSH/JS - Помогите редактировать Autorun_Disable.vbs на Autorun_Enable.vbs nod201 Скриптовые языки администрирования Windows 0 05-12-2009 05:44
вирус и червь VBS/Small.k,VBS/Small.NAB zelen Лечение систем от вредоносных программ 1 25-12-2008 10:44
подпись участника perchinka О сайте и форуме 13 22-04-2007 22:10
Подпись к нику. Belansky О сайте и форуме 10 16-03-2004 15:07


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


 
Переход