Bezeichnungsfeld als Hyperlink

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

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

Bild


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



 Bild

Beiträge aus den Excel-Beispielen zum Thema " Bezeichnungsfeld als Hyperlink"