Announcement

Collapse
No announcement yet.

Mailto: Emailtext wird nicht richtig konvertiert

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Mailto: Emailtext wird nicht richtig konvertiert

    Ich möchte eine Email mit der Standartanwenung von windows verwenden. Klappt jedoch nicht, obwohl ich die Sonderzeichen richtig (glaub ich) maskiere.
    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
    Input: "Anschreiben / Kontaktaufname"
    Output "Anschreiben %2F Kontaktaufname"

    Wo liegt mein Fehler?

  • #2
    Der Fehler liegt daran das es keine einheitliche Lösung für dieses Problem gibt. Jeder E-Mail-Client macht hier seine eigenen sperenzien wenn eine e-mail per ShellExecute gestartet. Selbst wenn du MAPI nimmst macht jeder Client was anderes draus.

    Comment


    • #3
      Und wie gehe ich dann am besten vor?
      Ok, das Problem ist zuminedest in meinen Fall das gleiche bei Mozilla und bei Outlook Express.

      Comment

      Working...
      X