title image


Smiley Re: "klickbaren" Link in UF-Label möglich
Hallo



Vielleicht hilft dir folgender Code weiter.







' Email

Option Explicit



'API-Dekleration für Email

Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" ( _

    ByVal hWnd As Long, _

    ByVal lpOperation As String, _

    ByVal lpFile As String, _

    ByVal lpParameters As String, _

    ByVal lpDirectory As String, _

    ByVal nShowCmd As Long) _

As Long





 

'************************************************************************

'Abschnitt Email öffnen



Sub Email_aufrufen()

    Dim sTo         As String   'Mailadresse

    Dim sSubject    As String   'Betreff

    Dim sBody       As String   'Text

   

    sTo = "grath.fritz@aon.at"

    sSubject = "AddIn-Sonderzeichen  --->  Reaktion"

    sBody = "Hallo Fritz" & vbCrLf & vbCrLf

     

    Call SendeEmail(sTo, sSubject, sBody)

End Sub

Sub SendeEmail(eMail As String, Optional Subject As String, Optional Body As String)

   On Error Resume Next

   Call ShellExecute(0&, "Open", "mailto:" + eMail _

   + "?Subject=" + Subject + "&Body=" + Body, "", "", 1)

End Sub





Code eingefügt mit Syntaxhighlighter 2.5







Mit freundlichen Grüßen, GraFri

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: