Obecná diskuse

Téma: Hypertextový odkaz v outlooku

Zaslal/a Imh0tep 20.3.2020 7:43

Dobrý den,

Je prosím možné v Outlooku nadefinovat vlastní tlačítko, po jehož odkliknutí by se spustilo makro, které by ze zadané cesty ke konkrétnímu souboru automaticky vytvořilo hypertextový odkaz k tomuto konkrétnímu souboru?

V příloze je názorná grafika, jak by to mělo fungovat.

Díky moc

Příloha: zip

46232_odkaz.zip (180kB, staženo 22x)

Zaslat odpověď >

elninoslov(20.3.2020 13:33)#046235

Public Sub PridajHyperlink()
'Pridať referenciu na Microsoft Word 16.0 Object Library
Dim objItem As Object
Dim objInsp As Outlook.Inspector
Dim objWord As Word.Application
Dim objDoc As Word.Document
Dim objSel As Word.Selection

On Error Resume Next
Set objItem = Application.ActiveInspector.CurrentItem

If Not objItem Is Nothing Then
If objItem.Class = olMail Then
Set objInsp = objItem.GetInspector
If objInsp.EditorType = olEditorWord Then
Set objDoc = objInsp.WordEditor
Set objWord = objDoc.Application
Set objSel = objWord.Selection

With objSel
If Len(.Text) > 1 Then .Hyperlinks.Add .Range, .Text
End With
End If
End If
End If

Set objItem = Nothing
Set objWord = Nothing
Set objSel = Nothing
Set objDoc = Nothing
Set objInsp = Nothing
End Sub
Pridať Modul, pridať referenciu, kód do modulu. Pridať na karte Vložiť novú skupinu, pridať do nej makro. Vo VBA editore Uložiť.
V Centre zabezpečenia v nastaveniach treba povoliť všetky makrá.citovat

elninoslov(22.3.2020 22:24)#046268

Návod ako to sprevádzkovať.citovat

Imh0tep(23.3.2020 8:02)#046270

Odzkoušeno, funguje skvěle.

Jen nevím, jak je bezpečné mít v outlooku povolena všechna makra. Předpokládám, že záleží jako vždy na edukaci uživatele.

Každopádně děkuji mockrát.citovat

Téma: Hypertextový odkaz v outlooku

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje