Как при помощи VBS сделать активные html и e-mail в подписи

Программирование на Active Server Pages и VBScript.
taran13
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 26.04.2009 (Вс) 12:33

Как при помощи VBS сделать активные html и e-mail в подписи

Сообщение taran13 » 26.04.2009 (Вс) 12:53

:roll: за грамотность сразу прошу прошения.
есть скрипт делаю для подписи в почту берет с AD все вставляет, все супер НО надо чтоб :) http и e-mai стали как линки активными то есть
Пример:
1. как счас в подписи.
test @ mail . ru
www . test . ru (ps пробелы поставил чтоб не стали активными)

2. как надо.
test@mail.ru
http://www.test.ru



а вот сам код
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
strGorod = objuser.l
strStreet = objuser.streetAddress
strEmail = objuser.mail
strWeb = "www.test.ru"
strLogo = "\\Server\.....\scripts\aitax_logo.gif"
strPhone = objUser.telephoneNumber

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.Size = 10
objSelection.Font.Name = "Arial"
objSelection.Font.Color = wdColorBlack
objSelection.TypeText strZpov
objSelection.TypeText CHR(11)
objSelection.font.bold = true
objSelection.TypeText strName
objSelection.TypeText CHR(11)
objSelection.font.bold = wdToggle
objSelection.TypeText strTitle
objSelection.TypeText CHR(11)
objSelection.TypeText strDepartment
objSelection.TypeText CHR(11)
objSelection.TypeText strCompany
objSelection.TypeText CHR(11)
objSelection.TypeText CHR(11)
objSelection.Font.Italic = True
objSelection.TypeText "Тел. " + strPhone
objSelection.TypeText CHR(11)
objSelection.TypeText "E-mail: " & strEmail
objSelection.TypeText CHR(11)
objSelection.TypeText "Web: " & strWeb
objSelection.TypeText CHR(11)
objSelection.Font.Size = "1"
objSelection.TypeText CHR(11)
objSelection.Font.Size = "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
Последний раз редактировалось taran13 26.04.2009 (Вс) 14:18, всего редактировалось 1 раз.

taran13
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 26.04.2009 (Вс) 12:33

Re: Как при помощи VBS сделать активные html и e-mail в подписи

Сообщение taran13 » 26.04.2009 (Вс) 14:17

objSelection.Hyperlinks.Add objSelection.range, "mailto:" & strEmail, , ,strEmail
objSelection.Hyperlinks.Add objSelection.range, "http://" & strWeb, , ,strWeb
сам нашел :)..

Jerrod
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 16.10.2009 (Пт) 21:53

Re: Как при помощи VBS сделать активные html и e-mail в подписи

Сообщение Jerrod » 16.10.2009 (Пт) 22:26

Скрипт просто супер,
В вашем скрипте получается вот так (фразу "E-mail: я дописал в целях более эстетического вида, ")
E-mail: test@mail.ru
не подскажете как можно изменять размер шрифта в активных гиперссылках

чтобы получилось не E-mail: test@mail.ru, а E-mail: test@mail.ru
используя
objSelection.Font.Size = 9
шрифт меняется только для надписей


Вернуться в ASP и VBScript

Кто сейчас на конференции

Сейчас этот форум просматривают: Bing-бот и гости: 1

    TopList