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
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