mailto über userform eingeben
28.11.2018 01:54:53
Matthias
ich suche momentan nach einer Lösung um eine Email Adresse über eine userform in meine Tabelle eintragen zu lassen. Das vorgesehene Feld dafür ist G5.
Leider nimmt er meinen String "mail" nicht für die vorgesehene Adresse.
Private Sub btnOk_click()
Dim mail As String
Dim sheet As Worksheet
Set sheet = ActiveWorkbook.Sheets("Reparatur")
mail = TxtBox_Defekt_Email.Value
sheet.Hyperlinks.Add Anchor:=sheet.Range("G5"), _
Address:="mailto:mail?subject=Geräte Reparatur", _
SubAddress:="", ScreenTip:="", TextToDisplay:="mail"
Unload Me
End Sub
Anzeige