![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - Не работает vbs Подпись в почте |
|
CMD/BAT - Не работает vbs Подпись в почте
|
![]() Старожил Сообщения: 291 |
Собственно скрипт
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 |
|
------- Отправлено: 12:31, 18-11-2009 |
Googler Сообщения: 3665
|
Профиль | Отправить PM | Цитировать Цитата Joni:
|
|
Отправлено: 13:21, 18-11-2009 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
![]() Старожил Сообщения: 291
|
Профиль | Отправить PM | Цитировать Цитата amel27:
|
|
------- Последний раз редактировалось Joni, 12-02-2013 в 12:07. Отправлено: 13:31, 18-11-2009 | #3 |
![]() Старожил Сообщения: 291
|
Профиль | Отправить PM | Цитировать не пашет. ошибка таже
|
------- Последний раз редактировалось Joni, 18-11-2009 в 14:49. Отправлено: 13:44, 18-11-2009 | #4 |
Googler Сообщения: 3665
|
Профиль | Отправить PM | Цитировать Цитата Joni:
|
||
Отправлено: 16:29, 18-11-2009 | #5 |
![]() Старожил Сообщения: 291
|
Профиль | Отправить PM | Цитировать Цитата amel27:
Office стоит 2007 всеравно ругается word запускается не по word а по winword, с консоли проверил запускается такой командой. меняю в файле на winword всеравно такая херь ток уже не Word.Application а winword.Application |
|
------- Отправлено: 16:48, 18-11-2009 | #6 |
Googler Сообщения: 3665
|
Профиль | Отправить PM | Цитировать |
Отправлено: 10:19, 19-11-2009 | #7 |
![]() Старожил Сообщения: 291
|
Профиль | Отправить PM | Цитировать неа. все таже ошибка. Пробывал и на других компах. тоже все самое!
Может есть другие варианты? решить эту проблему а именно. Подписи всем |
------- Отправлено: 12:54, 19-11-2009 | #8 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
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 |
|