Sonderzeichen werden nicht korrekt dargestellt

Julgo · 13. Mai 2011

Hallo zusammen,

ich habe ein kleines Problem. In der Betreffzeile einer E-Mail stehen bei einem Agenten den ich geschrieben habe unter Umständen sonderzeichen, die Betreffzeile wird flexibel aus den Datenbanktiteln bezogen. Sonderzeichen werden jedoch nicht korrekt dargestellt, sondern durch andere Zeichen wie Anführungsstriche ersetzt. Liegt das Problem im Headeraufbau?

Code

Dim overviewheader As NotesMIMEHeader [...]


Set overviewheader = overviewbody.CreateHeader("Subject")
subject = Cstr(db.Title + "äö") +|: | + Cstr(Year(Today)) + |/| + Cstr(CalculateWeekNo(Today)) + | PP Promo Overview|
Call overviewheader.SetHeaderVal(subject)

Verwendet wird UTF-8.

taurec · 13. Mai 2011

MIME ist HTML also musst du auch die Zeichen maskiert darstellen.
Sonst ist es eben nicht sauber mit den dir bekannten Problemen

[color=FF0000]Bitte auch aufs Themenpräfix achten[/color]

Julgo · 13. Mai 2011

Eine flexible Lösung gibt es also nicht? Müsste ich das Sonderzeichen fest im Header maskieren?

taurec · 13. Mai 2011

Was heisst da flexibel ?

Wenn du MIME direkt manipulierst musst du eben auch die Inhalte im richtigen Format reinschreiben

Oder schreibst du in eine HTML Datei wenn du diese per Texteditor veränderst etwa auch direkt Umlaute und Sonderzeichen rein ?

Diali · 13. Mai 2011

Ersetzen kannst Du die Sonderzeichen auch per Script.

Code

txt = "hier im Beispiel mal für ä umgesetzt"txt = join(split(txt, "ä"), "&auml;")

jetzt kannst du dir ein 2-dimensionales Array bauen. An Position x = 0 schreibst du da zu suchenden Zeichen und an Position x=1 das zu ersetzende Zeichen. Dann kannst du es über eine schleife lösen.

Code

array(0,0) = "ä"
array(1,0) = "&auml;"
array(0,1) = "Ä"
array(1,1) = "&Auml;"
array(0,2) = "ü"
array(1,2) = "&uuml;"
array(0,3) = "Ü"
array(1,3) = "&Uuml;"
array(0,4) = "ö"
array(1,4) = "&ouml;"
...
For i = 0 to ubound(array, 2)
   txt = join(split(txt, array(0,i)), array(1, i))
Next

Alles anzeigen

Das Array musst du natürlich um alle Zeichen, die konvertiert werden müssen, erweitern.

Gruß
Dirk

taurec · 13. Mai 2011

Oder noch einfacher über eine Liste statt eines Arrays.
Dann ist der Listenindex das Quellzeichen und der Inhalt die umgewandelte Form

Julgo · 17. Mai 2011

Irgendwie hat es alles nichts genützt, sehr komisch. Trotzdem danke für die Unterstützung! Habe den Betreff nun anders deklariert.

taurec · 17. Mai 2011

Was meinst du damit du hast ihn anders deklariert ?

Wäre schön wenn du deine Lösung kurz beschreiben könntest falls jemand anders ein ähnliches Problem hat

Julgo · 17. Mai 2011

Klaro,

ich arbeite nun nicht mehr mit NotesMIMEHeader, sondern habe es musterhaft so gemacht:

Code

subject = Cstr(db.Title) + "Gewünschte Elemente, Text"


overviewdoc.Subject = Cstr(subject)

So werden die Sonderzeichen auch korrekt dargestellt.

Diali · 17. Mai 2011

Warum der CStr in der 1. und 2. Zeile?
db.Title gibt schon einen String zurück!

Anmerkung: Bei der Verkettung von Variablen zu einem String, kann auch ein & verwendet werden. Damit wird dann automatisch in einen String konvertiert.

Beispiel:

Code

dim a as integer
dim b as Integer
dim c as String
dim d as String
dim e as string
a = 2
b = 3
c = " und "
d = "Die Summe von "
e = " ist"


Print d & a & c & b & e & a + b


' Es erscheint in der Statusleiste der Text ...'
' Die Summe von 2 und 3 ist 5 '

Alles anzeigen

Gruß
Dirk

Urmel · 15. Juni 2011

Moin !

Ich habe das gleiche Problem mit den Umlauten.

Leider hat auch der Vorschlag mit dem Ersetzen von z.B. "ü" (ue) nach "ü" nichts gebracht, da anscheinend bei Headern keine Konvertierung durchgeführt wird. Es bleibt dann bei z.B. "für" bei dem gesetzten "für".

Hat jemand einen weiteren Vorschlag ?

Danke,
Thorsten

taurec · 15. Juni 2011

Bist du sicher, daß es überhaupt an eurem System liegt und nicht am Empfängersystem ?

Urmel · 15. Juni 2011

Ja, sicher.

Ich schreibe die Mail in einem Agenten, der per View-Action auf meinem Client läuft und 2 Mails an mich selber (Notes und an web.de) sendet.
Entweder findet keine Konvertierung statt (wenn HTML formatiert) oder der Umlaut wird zu einem Grafikkästchen.

Beide Mails

taurec · 15. Juni 2011

Und wie genau erzeugst du die Mail ?
Wie sehen die Konvertierungseinstellungen auf eurem Server aus ?
Wie die Einstellungen in welchem Format ihr empfangt ?
Welche Versionen ?

Urmel · 15. Juni 2011

Moin !

Ablauf: Neues docMail wird erzeugt, dann werden Werte aus einer Konfiguration (docTemplate) gelesen und in das docMail geschrieben. Es geht nur um das Subject, welches Probleme macht.

Code

sesCurrent.ConvertMIME = False '' Do not convert MIME to rich text
				sTextHTML = docTemplate.Getitemvalue("MailText")(0)

				Set nsText = sesCurrent.CreateStream
				Set nmeBody = docMail.CreateMIMEEntity

				If sLstParameter("PDF") <> "" Then
					Set nmhA = nmeBody.CreateHeader("Content-Type")
					Call nmhA.SetHeaderVal("multipart/mixed")
				End If

				Set nmhA = nmeBody.CreateHeader("To")
				Call nmhA.SetHeaderVal(sRecipient)

				If sLstParameter("SENDER") <> "" Then
					Set nmhA = nmeBody.CreateHeader("From")
					Call nmhA.SetHeaderVal(sLstParameter("MAILFROM"))
					Set nmhA = nmeBody.CreateHeader("Sender")
					Call nmhA.SetHeaderVal(sLstParameter("MAILSENDER"))
				End If

				'' Create additional headers for mail message
				Set nmhA = nmeBody.CreateHeader("X-Notes-Item")
				Call nmhA.SetHeaderVal("Memo")
				Call nmhA.SetParamVal("name", "Form")


				Set nmhA = nmeBody.CreateHeader("Subject")
				sText = docTemplate.Getitemvalue("MailSubject")(0)
				Call nmhA.SetHeaderVal(sText)


				Call nsText.WriteText(ConvertToHTML(sHtmlErsetzt)) ' HTML schreiben

Alles anzeigen

In sHtmlErsetzt steht der Text, der mit ConvertToHTML nach der von Dir ja auch schon erwähnten Ersetzungsmethode "HTMLisiert" wird.

Das Ergebnis: Der Body funktioniert wunderbar, er wird anschließend vom Server korrekt konvertiert, mit Umlauten, Links, etc.

Aber der Header (Subject) kann offenbar keine Umlaute enthalten.

Mein Notes Client ist 8.5.2FP2, mein Mail Server 8.5.1FP3

Welche weiteren Einstellungen möchtest Du genau wissen ?

Thorsten

taurec · 15. Juni 2011

Und wo ersetzt du da im Subject die Sonderzeichen ?
Das kann ich nirgendwo sehen

Urmel · 15. Juni 2011

Moin !

Natürlich habe ich auch wie in meinem ersten Post beschrieben

Set nmhA = nmeBody.CreateHeader("Subject")
sText = docTemplate.Getitemvalue("MailSubject")(0)
Call nmhA.SetHeaderVal(ConvertToHTML(sText))

ausprobiert.

Winke,
Thorsten

taurec · 15. Juni 2011

Subject wie übrigens alle SMTP Header Informationen kennt keine HTML Entities (diese gibt es nur für den Body), sondern dafür gibt es ebenfalls klare Regeln wie Umlaute dort codiert werden müssen.

Siehe z.B. hier

Urmel · 16. Juni 2011

Moin !

Danke, der Link war genau der richtige.

Ich habe mir diese Funktion geschrieben, welche mir den Text so kodiert, daß es in einem Header verwendet werden kann:

Code

Function textQEncode(sText As String) As String	Const cQEncodingStart = "=?iso-8859-1?Q?"	Const cQEncodingEnd = "?="	Const cMaxChar = 95	Static i As Integer	Static sArr1(cMaxChar) As String	Static sArr2(cMaxChar) As String	If i = 0 Then ' Initialize during 1st call		For i = 0 To cMaxChar			sArr1(i) = Chr$(160 + i)			sArr2(i) = "=" & Hex((160 + i))		Next	End If	' Sonderfälle für in der Q-Kodierung genutzte Zeichen <= 160	sText = Replace(sText, "=", "=3D") ' Erst die = raus	sText = Replace(sText, "_", "=95") ' _ wird später für Leerzeichen genutzt	sText = Replace(sText, Chr(32), "_") ' Alle Leerzeichen zu _	sText = Replace(sText, "?", "=3F") ' ? raus	' Benutze Arrays für alle restlichen (8bit) Zeichen	textQEncode = cQEncodingStart & Replace(sText, sArr1, sArr2) & cQEncodingEndEnd Function

Aufruf dann mit

Code

sText = textQEncode(sText)

Ich hoffe es hilft auch Julgo und einigen anderen hier weiter.

Winke,
Thorsten

Sonderzeichen werden nicht korrekt dargestellt

Teilen

Benutzer online in diesem Thema