Ich möchte eine Email mit der Standartanwenung von windows verwenden. Klappt jedoch nicht, obwohl ich die Sonderzeichen richtig (glaub ich) maskiere.
Ich habe ein Problem mit der Maskierung von Sonderzeichen z.b. / oder ß. Die kommen als Maskierung an:
Input: "Anschreiben / Kontaktaufname"
Output "Anschreiben %2F Kontaktaufname"
Wo liegt mein Fehler?
Code:
If Me.tbEmail.Text <> "" Then With New System.Text.StringBuilder .Append("mailto:") .Append(Me.tbEmail.Text) If Me.tbStelle.Text <> "" Then ' .Append("&subject=") ' Betreff ' .Append(Me.tbStelle.Text) 'Betreff festlegen Else ' .Append("&subject=") ' Betreff '.Append(My.Settings.Betreff) 'texte.TextToAscii() End If .Append("&body=") .Append(TextToAscii("test Ü ü Ö ö Ä ä ß < > * # & ! \")) Process.Start(.ToString) End With End If
Ich habe ein Problem mit der Maskierung von Sonderzeichen z.b. / oder ß. Die kommen als Maskierung an:
Code:
Public Function TextToAscii(ByVal text As String) As String text = text.Replace("/", "%2F") text = text.Replace("!", "%21") text = text.Replace("#", "%23") text = text.Replace("%", "%25") text = text.Replace("*", "%2A") text = text.Replace("/", "%2F") text = text.Replace("<", "%3C") text = text.Replace(">", "%3E") text = text.Replace("?", "%3F") text = text.Replace("Ä", "%C4") text = text.Replace("ä", "%E4") text = text.Replace("Ö", "%D6") text = text.Replace("ö", "%F6") text = text.Replace("Ü", "%DC") text = text.Replace("ü", "%FC") text = text.Replace("ß", "%DF") Return text End Function
Output "Anschreiben %2F Kontaktaufname"
Wo liegt mein Fehler?
Comment