Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Автоматическая подпись OUTLOOK (интересная штука) / 8 сообщений из 8, страница 1 из 1
08.10.2013, 12:47
    #38420097
tyion
tyion
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоматическая подпись OUTLOOK (интересная штука)
всем привет)
прошу помощи в переделке скрипта...

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

Код: 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:58
    #38420111
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоматическая подпись OUTLOOK (интересная штука)
Сделать два раза Hyperlinks.Add же.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2013, 13:10
    #38420138
tyion
tyion
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоматическая подпись OUTLOOK (интересная штука)
AntonariyСделать два раза Hyperlinks.Add же.

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

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

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

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

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

и что у вас в строке 43 на 85 символе?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2014, 19:06
    #38535986
smileakafray
smileakafray
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоматическая подпись OUTLOOK (интересная штука)
Доброго времени суток столкнулся с задание стандартизировать корпоративную подпись в организации. Но возникли сразу проблемы с тем что знания в 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
| Ответить | Цитировать | Написать  
22.01.2015, 10:59
    #38860412
Analizer
Analizer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоматическая подпись OUTLOOK (интересная штука)
Здравствуйте.
Подскажите пжл как добавить условие если например: номер сотового телефона пуст в AD, то не показывать строку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Автоматическая подпись OUTLOOK (интересная штука) / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 413ms
Закрыть
start [/forum/topic.php?fid=22&mobile=1&tid=1446349]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 72ms
get topic data:
 11ms
get forum data:
 4ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 250ms
total:  413ms
x
x
Закрыть


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