☰

Substituição automática de string por hiperlink usando partes rápidas no Outlook 2010

tag-icon • tag-icon microsoft-outlook microsoft-outlook-2010
Substituição automática de string por hiperlink usando partes rápidas no Outlook 2010

É possível criar umparte rápidaque substitui automaticamente uma string por um hiperlink no Outlook 2010? Gostaria de evitar o vba usado na perguntaConverter texto simples em hiperlink no Outlook.

Exemplo

  • se eu digitar (e pressionar F3)

pesquise alguma coisa no Google

  • Ele o substitui pelo hiperlink

algo

Quais links para:

https://www.google.nl/?q=something#newwindow=1&q=something

Responder1

Você pode evitar VBA e peças rápidas usandoAutoHotkeypara criar uma macro de atalho que emita as teclas que fazem o trabalho.

Mas como você está solicitando uma solução do Outlook, aqui está uma macro VBA simples (e até um tanto testada) para converter o texto atualmente selecionado em um hiperlink do tipo que você solicitou:

Sub SelectionToHyperlink()
' Convert the current selection to a hyperlink
If ActiveInspector.EditorType = olEditorText Then
    MsgBox "Can't add links to textual mail"
    Exit Sub
End If
Dim doc As Object
Dim sel As Object
Set doc = ActiveInspector.WordEditor
Set sel = doc.Application.Selection
doc.Hyperlinks.Add Anchor:=sel.Range, _
    Address:="https://www.google.nl/?newwindow=1&q=" & sel.Text, _
    SubAddress:="", _
    ScreenTip:="", _
    TextToDisplay:=sel.Text
End Sub

informação relacionada