Bezeichnungsfeld als Hyperlink

• Bezeichnungsfeld als Hyperlink von TOM vom 02.10.2003 09:16:17
  • AW: Bezeichnungsfeld als Hyperlink - von Michael Scheffler am 02.10.2003 09:20:59

Betrifft: Bezeichnungsfeld als Hyperlink
von: TOM
Geschrieben am: 02.10.2003 09:16:17
Morgen zusammen

Ist es möglich ein Bezeichnungsfeld als Hyperlink erscheinen zu lassen.
Beim anwählen möchte ich so gerade ein Mail an die entsprechende Adresse versenden.

Danke und Gruss
TOM

Betrifft: AW: Bezeichnungsfeld als Hyperlink
von: Michael Scheffler
Geschrieben am: 02.10.2003 09:20:59

Private Sub lblMail_Click()
Dim olApp As Object
Dim myMail As Object
'Create a message.
On Error GoTo Nomail
Set olApp = CreateObject("Outlook.Application")
Set myMail = olApp.CreateItem(0)
myMail.To = "scheff42@ima.com"
myMail.Subject = "[Test]"
myMail.Display
Set olApp = Nothing
Set myMail = Nothing
Exit Sub
Nomail:
MsgBox "Can't send mail!", vbCritical, "Test"
Unload Me
End Sub

Excel-Beispiele zum Thema " Bezeichnungsfeld als Hyperlink"
Hyperlink aufteilen	URLs eines ausgewählten Bereiches in HyperLinks umwandeln
HTML-Datei aus gefilterten Daten mit Hyperlinks aufbauen	Tabellenblatt-Hyperlink über UserForm aufrufen
Hyperlinks zu allen Excel-Dateien eines Verzeichnisses erstellen	Hyperlinks zu SVERWEIS-Bezugstabellen anlegen
Aus Zelleintragungen Hyperlinks und HTML-Tabelle erstellen	UserForm-TextBox-Inhalte mit Grafik-Hyperlinks einfügen
Zwei Hyperlinks in einer Zelle	Prüfung, ob Datei- und/oder Web-Hyperlink-Adressen existieren