 |
|
Не работает vbs Подпись в почте
Собственно скрипт
Код:
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
Запускаю тишина. а подписи не появляются. ошибки тоже. как проверить по какой причине не работает у меня данный скрипт? |
Цитата:
Цитата Joni
как проверить по какой причине не работает у меня данный скрипт? »
|
удалить или закомментировать 1-ю строчку |
Цитата:
Цитата amel27
удалить или закомментировать 1-ю строчку »
|
Есть! Ошибка |
Скрипт требует наличия Microsoft Office: Word и Outlook с настроенной учеткой. Для того, чтобы увидеть текст документа можно после строки "Set objWord = CreateObject("Word.Application")" вставить строку:
|
Цитата:
Цитата amel27
Скрипт требует наличия Microsoft Office: Word и Outlook с настроенной учеткой. Для того, чтобы увидеть текст документа можно после строки "Set objWord = CreateObject("Word.Application")" вставить строку: »
|
Вставил ничего не увидел.
Office стоит 2007 всеравно ругается
word запускается не по word а по winword, с консоли проверил запускается такой командой. меняю в файле на winword всеравно такая херь ток уже не Word.Application а winword.Application |
и тем не менее следующий VBS-скрипт должен открыть Microsoft Word:
Код:
Set objWord = CreateObject("Word.Application")
objWord.Visible=1
|
неа. все таже ошибка. Пробывал и на других компах. тоже все самое!
Может есть другие варианты? решить эту проблему а именно. Подписи всем
|
Время: 08:19.
© OSzone.net 2001-