locked
Дбавление гиперссылки для картинки в файле word который создаеться VBS скриптом.

    Вопрос

  • Добрый день!
    Есть задача создать скриптом VBS подпись для outlook, задача была решена путем логон скрипта,
    который подпись собственно и генерит подпись на основе данныз из Active Directory,
    так же есть неободимость прикреплять некую картинку в конец подписи.
    Вопрос в том как добавить в кртинку гиперсылку и сделать картинку кликабельной?
    'On Error Resume Next
    '''''''''''''''''''''''''''''''''''''''''''
    'Очищение папки с подписями.
    '''''''''''''''''''''''''''''''''''''''''''
    Const DeleteReadOnly = TRUE
    
    set WshShell = WScript.CreateObject("WScript.Shell") 
    
    TargetFolder = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")+"\Application Data\Microsoft\Signatures" 
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(""& TargetFolder &"")
    Set colSubfolders = objFolder.Subfolders
    
    For Each objSubfolder in colSubfolders
    	objFSO.DeleteFolder(""& objSubfolder.Path &"")
    Next
    
    objFSO.DeleteFile(""& TargetFolder &"\*.*"), DeleteReadOnly
    '''''''''''''''''''''''''''''''''''''''''''''''''
    'начало генерации подписи из AD
    '''''''''''''''''''''''''''''''''''''''''''''''''
    Set objSysInfo = CreateObject("ADSystemInfo")
    
    strUser = objSysInfo.UserName
    Set objUser = GetObject("LDAP://" & strUser)
    
    strName = objUser.FullName
    strTitleEN = objUser.extensionAttribute2
    strTitleRU = objUser.extensionAttribute3
    strLEVEL1_ENG = objUser.extensionAttribute4
    strLEVEL2_ENG = objUser.extensionAttribute5
    strLEVEL3_ENG = objUser.extensionAttribute6
    strLEVEL4_ENG = objUser.extensionAttribute7
    strLEVEL5_ENG = objUser.extensionAttribute8
    strLEVEL1_RUS = objUser.extensionAttribute9
    strLEVEL2_RUS = objUser.extensionAttribute10
    strLEVEL3_RUS = objUser.extensionAttribute11
    strLEVEL4_RUS = objUser.extensionAttribute12
    strLEVEL5_RUS = objUser.extensionAttribute13
    strCompanyEN = "company name"
    strCompanyRU = "имя компании"
    strPhone = objUser.telephoneNumber
    strEmail = objuser.mail
    strIntPhone = objuser.ipPhone
    
    
    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.Font.Size = "11"
    objSelection.Font.Bold = True
    objSelection.TypeText strName
    objSelection.Font.Bold = False
    objSelection.TypeText CHR(11)
    if (strTitleEN <> "") and (strTitleEN <> "not set") then
    objSelection.TypeText strTitleEN & " | "
    Else
    objSelection.TypeText ""
    end if
    if (strTitleRU <> "") and (strTitleRU <> "not set") then
    objSelection.TypeText strTitleRU
    end if
    objSelection.TypeText CHR(11)
    if (strLEVEL1_ENG <> "") and (strLEVEL1_ENG <> "not set") then
    objSelection.TypeText strLEVEL1_ENG
    end if
    if (strLEVEL2_ENG <> "") and (strLEVEL2_ENG <> "not set") then 
    objSelection.TypeText " | " & strLEVEL2_ENG
    end if
    if (strLEVEL3_ENG <> "") and (strLEVEL3_ENG <> "not set") then 
    objSelection.TypeText " | " & strLEVEL3_ENG
    end if
    if (strLEVEL4_ENG <> "") and (strLEVEL4_ENG <> "not set") then 
    objSelection.TypeText " | " & strLEVEL4_ENG
    end if
    if (strLEVEL5_ENG <> "") and (strLEVEL5_ENG <> "not set") then 
    objSelection.TypeText " | " & strLEVEL5_ENG
    End if
    objSelection.TypeText CHR(11)
    if (strLEVEL1_RUS <> "") and (strLEVEL1_RUS <> "not set") then
    objSelection.TypeText strLEVEL1_RUS 
    end if
    if (strLEVEL2_RUS <> "") and (strLEVEL2_RUS <> "not set") then 
    objSelection.TypeText " | " & strLEVEL2_RUS
    end if
    if (strLEVEL3_RUS <> "") and (strLEVEL3_RUS <> "not set") then 
    objSelection.TypeText " | " & strLEVEL3_RUS
    end if
    if (strLEVEL4_RUS <> "") and (strLEVEL4_RUS <> "not set") then 
    objSelection.TypeText " | " & strLEVEL4_RUS
    end if
    if (strLEVEL5_RUS <> "") and (strLEVEL5_RUS <> "not set") then 
    objSelection.TypeText " | " & strLEVEL5_RUS
    End if
    objSelection.TypeText CHR(11)
    objSelection.Font.Bold = True
    objSelection.TypeText strCompanyEN & " | " & strCompanyRU
    objSelection.Font.Bold = False
    objSelection.TypeText CHR(11)
    objSelection.TypeText "Тел. " & strPhone
    if strintPhone <> "" then
    objSelection.TypeText " Доб. " & strintPhone
    end if
    objSelection.TypeText CHR(11)
    objSelection.TypeText strEmail
    objSelection.TypeText CHR(11)
    ''''''''''''''''''''''''''''''''''''''''''''''''''''
    'картинка с гиперссылкой
    ''''''''''''''''''''''''''''''''''''''''''''''''''''
    objSelection.InlineShapes.AddPicture "\\server_share\picture.jpg", True, True
    
    Set objSelection = objDoc.Range()
    
    objSignatureEntries.Add "Signature 1", objSelection
    objSignatureObject.NewMessageSignature = "Signature 1"
    
    objSignatureObject.ReplyMessageSignature = "Signature 1"
    
    objDoc.Saved = True
    
    objDoc.Close
    
    objWord.Quit

    11 июня 2010 г. 8:22

Ответы

Все ответы

  • Что, никто не может помочь????
    Если сообщение полезно, нажмите "Сообщение было информативным". Если сообщение является ответом или частью ответа на Ваш вопрос, нажмите "Пометить как ответ".
    24 июня 2010 г. 11:04
  • Вот тут есть пример как вставить гиперлинк http://blogs.technet.com/b/heyscriptingguy/archive/2009/05/11/how-can-i-convert-a-vbscript-to-a-windows-powershell-script-that-creates-an-office-word-document-with-hyperlinks.aspx

    Set objLink = objDoc.Hyperlinks.Add _
        (objRange, " http://www.microsoft.com/technet/scriptcenter ", , , "Script Center")

    Тут в ObjRange должна быть ваша картинка.

     


    Сазонов Илья http://www.itcommunity.ru/blogs/sie-wl/
    • Помечено в качестве ответа Ivan.Bauzhadze 25 июня 2010 г. 6:43
    25 июня 2010 г. 3:53
    Модератор
  • Спасибо помогло.
    Если сообщение полезно, нажмите "Сообщение было информативным". Если сообщение является ответом или частью ответа на Ваш вопрос, нажмите "Пометить как ответ".
    25 июня 2010 г. 6:43
  • Вот тут есть пример как вставить гиперлинк http://blogs.technet.com/b/heyscriptingguy/archive/2009/05/11/how-can-i-convert-a-vbscript-to-a-windows-powershell-script-that-creates-an-office-word-document-with-hyperlinks.aspx

    Set objLink = objDoc.Hyperlinks.Add _
        (objRange, " http://www.microsoft.com/technet/scriptcenter ", , , "Script Center")

    Тут в ObjRange должна быть ваша картинка.

     


    Сазонов Илья http://www.itcommunity.ru/blogs/sie-wl/
    А можно для тех кто в танке? ) Я этот код вставляю и он не как не отображается в подписи. Что может быть не так?
    12 марта 2019 г. 14:04
  • Вот тут есть пример как вставить гиперлинк http://blogs.technet.com/b/heyscriptingguy/archive/2009/05/11/how-can-i-convert-a-vbscript-to-a-windows-powershell-script-that-creates-an-office-word-document-with-hyperlinks.aspx

    Set objLink = objDoc.Hyperlinks.Add _
        (objRange, " http://www.microsoft.com/technet/scriptcenter ", , , "Script Center")

    Тут в ObjRange должна быть ваша картинка.

     


    Сазонов Илья http://www.itcommunity.ru/blogs/sie-wl/

    А можно для тех кто в танке? ) Я этот код вставляю и он не как не отображается в подписи. Что может быть не так?

    Приветствую.

    Уважаемый davas1,

    Если у вас вопрос, пожалуйста создайте новую тему.

    Данной теме более Девяти лет, тема не Актуальна


    Я не волшебник, я только учусь MCP, CCNA. Если Вам помог чей-либо ответ, пожалуйста, не забывайте нажать на кнопку "Пометить как ответ" или проголосовать за полезное сообщение. Мнения, высказанные здесь, являются отражением моих личных взглядов, а не позиции работодателя. Вся информация предоставляется как есть без каких-либо гарантий. Блог IT Инженера, Twitter, YouTube, GitHub, Instagram

    12 марта 2019 г. 18:42
    Модератор