Automatisches Ersetzen von Zeichenfolgen durch Hyperlinks mithilfe von Schnellbausteinen in Outlook 2010

Automatisches Ersetzen von Zeichenfolgen durch Hyperlinks mithilfe von Schnellbausteinen in Outlook 2010

Ist es möglich, eineschneller Teildas in Outlook 2010 automatisch eine Zeichenfolge durch einen Hyperlink ersetzt? Ich möchte das in der Frage verwendete VBA vermeidenKonvertieren von einfachem Text in einen Hyperlink in Outlook.

Beispiel

  • wenn ich tippe (und F3 drücke)

google etwas

  • Es wird durch den Hyperlink ersetzt

etwas

Mit Links zu:

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

Antwort1

Sie können VBA und Quick-Parts vermeiden, indem SieAutoHotkeyum ein Tastenkürzel-Makro zu erstellen, das die Tasten ausgibt, die die Aufgabe erledigen.

Da Sie aber nach einer Outlook-Lösung fragen, finden Sie hier ein einfaches (und sogar einigermaßen erprobtes) VBA-Makro, um den aktuell ausgewählten Text in einen Hyperlink des von Ihnen gewünschten Typs umzuwandeln:

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

verwandte Informationen