ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Автоматическая подпись OUTLOOK (интересная штука)
8 сообщений из 8, страница 1 из 1
Автоматическая подпись OUTLOOK (интересная штука)
    #38420097
tyion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tyion
Гость
всем привет)
прошу помощи в переделке скрипта...

есть код, рабочий.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)

strZpov = "С уважением,"
strPostIndex = ObjUser.postalCode
strName = objUser.FullName
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strPhone = objUser.telephoneNumber
strweb = objuser.wWWHomePage
strgorod = objuser.l
strstreet = objuser.streetAddress
strfax = objuser.facsimileTelephoneNumber
strIntPhone = objuser.ipPhone
strEmail = objuser.mail

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.ParagraphFormat.Space1
objselection.font.color = RGB(0, 0, 0)
objSelection.TypeText strZpov
objSelection.TypeText CHR(11)
objSelection.TypeText strName
objSelection.TypeText CHR(11)
objSelection.TypeText strTitle
objSelection.TypeText CHR(11)
objSelection.TypeText strCompany
objSelection.TypeText CHR(11)
objSelection.TypeText "Тел.    " & strPhone & " дб. " & strintPhone
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.font.color = RGB(0, 0, 0)
objSelection.TypeText strPostIndex & strgorod & strstreet

Set objSelection = objDoc.Range()

objSignatureEntries.Add "AD Signature", objSelection
objSignatureObject.NewMessageSignature = "AD Signature"
objSignatureObject.ReplyMessageSignature = "AD Signature"

objDoc.Saved = True


выдает что то типа этого
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
--------------------------
С уважением,
Фамилия Имя Отчество
Должность
Компания
Тел.   +7 (xxx) xxx-xx-xx дб. xxx
 e-mail 
 www.domen.ru 
--------------------------

со своей задачей справляется, но я решил переделать его чуть чуть под себя так сказать.
вот что получилось у меня
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)

strZpov = "С уважением,"
strPostIndex = ObjUser.postalCode
strName = objUser.FullName 
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strPhone = objUser.telephoneNumber
strweb = objuser.wWWHomePage
strgorod = objuser.l
strstreet = objuser.streetAddress
strfax = objuser.facsimileTelephoneNumber
strIntPhone = objuser.ipPhone
strEmail = objuser.mail

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.ParagraphFormat.Space1
objselection.font.color = RGB(0, 0, 0)
objSelection.TypeText CHR(11)
objSelection.TypeText strZpov
objSelection.TypeText CHR(11)
objSelection.TypeText strName
objSelection.TypeText CHR(11)
objSelection.TypeText strTitle & " " & strCompany
objSelection.TypeText CHR(11)
objSelection.TypeText "Тел. раб.: 5-555-555-55-55, доб.: " & strintPhone
objSelection.TypeText CHR(11)
objSelection.TypeText "Тел. моб.: " & strPhone
objSelection.TypeText CHR(11)
objselection.font.color = RGB(0, 0, 255)
objSelection.Hyperlinks.Add objSelection.range, "mailto:" & strEmail, , , strEmail & "   " & strWeb


Set objSelection = objDoc.Range()

objSignatureEntries.Add "Подпись", objSelection
objSignatureObject.NewMessageSignature = "Подпись"

objDoc.Saved = True



в моем варианте выглядит это так (ближе к стилю компании)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
--------------------------
С уважением,
Иванов Иван Иванович
самый важный человек Company
Тел. раб.: 5-555-555-55-55, доб.: 555
Тел. моб.: +5 (555) 555-55-55
 user@company.ru   www.mycompany.ru 
--------------------------

теперь перейдем к проблеме...
в первом варианте кода, почта пользователя, и вэб адрес компании на разных строчках
мне же надо что бы они были на одной.
во втором варианте они на одной строчке) только скрипт понимает их как одну гиперссылку...

собственно вопрос. как сделать что почта и адрес были на одной строчке в виде гиперссылок и при этом работали)

должно получиться вот так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
--------------------------
С уважением,
Иванов Иван Иванович
самый важный человек Company
Тел. раб.: 5-555-555-55-55, доб.: 555
Тел. моб.: +5 (555) 555-55-55
 user@company.ru     www.mycompany.ru 
--------------------------

заранее всем кому интересна тема, и сможет помочь - СПАСИБО)
...
Рейтинг: 0 / 0
08.10.2013, 12:47
| Ответить | Цитировать | Написать  
Автоматическая подпись OUTLOOK (интересная штука)
    #38420111
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Сделать два раза Hyperlinks.Add же.
...
Рейтинг: 0 / 0
08.10.2013, 12:58
| Ответить | Цитировать | Написать  
Автоматическая подпись OUTLOOK (интересная штука)
    #38420138
tyion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tyion
Гость
AntonariyСделать два раза Hyperlinks.Add же.

по сколько я не очень селен в программировании то прошу вас помочь с кодом... если можно пример строчки

З.Ы. пробовал дублировать гиперлинки... выдает ошибку.
...
Рейтинг: 0 / 0
08.10.2013, 13:10
| Ответить | Цитировать | Написать  
Автоматическая подпись OUTLOOK (интересная штука)
    #38420148
Zoria
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Zoria
Участник
tyionAntonariyСделать два раза Hyperlinks.Add же.

по сколько я не очень селен в программировании то прошу вас помочь с кодом... если можно пример строчки

З.Ы. пробовал дублировать гиперлинки... выдает ошибку.
а текст ошибки?
...
Рейтинг: 0 / 0
08.10.2013, 13:13
| Ответить | Цитировать | Написать  
Автоматическая подпись OUTLOOK (интересная штука)
    #38420155
tyion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tyion
Гость
Zoria,
пишет что ошибка синтаксическая...

видимо не правильно пишу сам код...
...
Рейтинг: 0 / 0
08.10.2013, 13:16
| Ответить | Цитировать | Написать  
Автоматическая подпись OUTLOOK (интересная штука)
    #38420271
Zoria
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Zoria
Участник
tyion,

и что у вас в строке 43 на 85 символе?
...
Рейтинг: 0 / 0
08.10.2013, 14:04
| Ответить | Цитировать | Написать  
Автоматическая подпись OUTLOOK (интересная штука)
    #38535986
smileakafray
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
smileakafray
Гость
Доброго времени суток столкнулся с задание стандартизировать корпоративную подпись в организации. Но возникли сразу проблемы с тем что знания в vbs скудны. Путем серфинга интернета, проб и ошибок получилось собрать работоспособный скрипт. Но как известно без но не бывает.
Проблема в том что в корпоративной подписи присутствует логотип организации. И я никаки не могу сделать обтекание текстом. Один способ получился,но опять же но, обтекание работает, но сама картинка стала прикрепляться файлом к письму что не есть хорошо.
Вот код скрипта:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
On Error Resume Next
 
Set objSysInfo = CreateObject("ADSystemInfo")
 
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
 
strZpov = "С уважением,"
strDev = "-----------"
strDev1 = " "
strPostIndex = ObjUser.postalCode
strName = objUser.FullName
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strPhone = objUser.telephoneNumber
strmobile = objUser.mobile
strweb = objuser.wWWHomePage
strgorod = objuser.l
strstreet = objuser.streetAddress
strfax = objuser.facsimileTelephoneNumber
strIntPhone = objuser.ipPhone
strEmail = objuser.mail
strLogo = "\\rezerv\Подпись\logo.png"
 
 
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 = "Times New Roman" 
objselection.font.italic = true
objselection.font.bold = true

 objSelection.ParagraphFormat.Space1
objSelection.TypeText strZpov
objSelection.TypeText CHR(11)
objSelection.TypeText strName

objselection.font.color = RGB(0, 104, 178) 
objSelection.ParagraphFormat.Space1 
objselection.font.italic = true
objselection.font.bold = true
 objSelection.TypeText CHR(11)
 objSelection.TypeText CHR(11)
 Set objShapePic = objSelection.InlineShapes.AddPicture(strLogo)
  With objShapePic.Range.Sections(1).PageSetup
 ileft = .PageWidth - .LeftMargin - .RightMargin
 End With
  
 Set objShapeBehind = objShapePic.ConvertToShape
  With objShapeBehind
   'Задаем положение картинки
  .Left = ileft - .Width
 'Привязываем положение картинки к странице
 .RelativeHorizontalPosition = 1 'wdRelativeHorizontalPositionPage
 .RelativeVerticalPosition = 1 'wdRelativeVerticalPositionPage
   'Обтекание текстом
  .WrapFormat.Type = wdWrapTight
 End With
 
 

objSelection.TypeText strTitle
objSelection.TypeText CHR(11)
objSelection.Font.Size = "2"
objSelection.TypeText strDev1
objSelection.TypeText CHR(11)
objSelection.Font.Size = "11"
objSelection.TypeText "Т.: " & strPhone & " (вн."& strintPhone & ")"
objSelection.TypeText CHR(11)
objSelection.TypeText "М.: " & strmobile
objSelection.TypeText CHR(11)
objselection.font.color = RGB(0, 0, 255)


'objSelection.TypeText CHR(11)
'objSelection.InlineShapes.AddPicture(strLogo)
  

 
Set objSelection = objDoc.Range()
 
objSignatureEntries.Add "AD Signature", objSelection
objSignatureObject.NewMessageSignature = "AD Signature"
objSignatureObject.ReplyMessageSignature = "AD Signature"
 
objDoc.Saved = True


http://www.radikal.ru][img] http://s003.radikal.ru/i204/1401/af/f74b0f2c71a8.jpg [/img]
Вот так отображается подпись.

В идеале должно быть так
http://www.radikal.ru][img] http://s017.radikal.ru/i426/1401/5a/91cfa824ff49.jpg [/img]
Получается что не сохраняется даже цвет подписи, ни как не могу разобраться. Если обтекание текстом убрать, фото не прикрепляется.
Прошу помощи...
...
Рейтинг: 0 / 0
23.01.2014, 19:06
| Ответить | Цитировать | Написать  
Автоматическая подпись OUTLOOK (интересная штука)
    #38860412
Analizer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Analizer
Гость
Здравствуйте.
Подскажите пжл как добавить условие если например: номер сотового телефона пуст в AD, то не показывать строку.
...
Рейтинг: 0 / 0
22.01.2015, 10:59
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Автоматическая подпись OUTLOOK (интересная штука)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=22&msg=38420138&tid=1446349]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 19ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 238ms
total:  346ms
созд. / загр.: 346ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]