Umlaute

[mike6]

Hallo,

über ein Formular in OO Writer schreibe ich eine email.
Durch drücken des Buttons email senden, wird der Text in das
Emailprogramm Kontakt übernommen.

Obwohl im Oo Formular der Text mit freundlichen Grüßen
steht, erscheint in Kontakt der Text □ □ mit freundlichen Gren.

Wie muss ich den Basic Code ergänzen, damit die Umlaute richtig geschrieben werden?

mfg
mike

[komma4]

Durch drücken des Buttons email senden, wird der Text in das
Emailprogramm Kontakt übernommen.

Hi Mike,

"wie" übernommen? Zwischenablage? Die von OOo oder die vom System (wie ist der Text in Klipper zu sehen)?


Dein Mailprogramm ist KMail (im Container kontact)?

Welche Versionen (OOo, Linux, Mailprogramm) verwendest Du?

[mike6]

Hallo,

"wie" übernommen? Zwischenablage? Die von OOo oder die vom System (wie ist der Text in Klipper zu sehen)?
Dein Mailprogramm ist KMail (im Container kontact)?
Welche Versionen (OOo, Linux, Mailprogramm) verwendest Du?

1.) per Makro
2.) Kontact / Kmail - Version 1.1.2
3.) OOo 2.0.2 - Suse Linux 10.0

Ich brauche also eine Ergänzung des Makrocodes [Kodierung ?], damit die
Umlaute unter Kontact [Linux] richtig dargestellt werden.

mfg
mike

[komma4]

"wie" übernommen?

1.) per Makro

Mike:
wie übernommen? "Per Makro" - aus dem Formular - ist schon klar. Aber auf welchem Weg transportierst Du es nach kmail?
Verwendest Du die Zwischenablage, oder eine kmail-API?
Kannst Du einen Code-Ausschnitt zeigen?

[mike6]

Hallo,

es handelt sich um eine Datei, die ich im Internet
gefunden habe und meinen Bedürfnissen ( LINUX / KONTAKT )
anpassen möchte.
Der Quellcode stammt nicht von mir.

Sub FormEmailSenden

Dim oDoc as Object
Dim oDraw as Object
Dim oForm as Object
Dim noargs()
Dim oTo as Object, oCC as Object, oBCC as object, oSubject as object, oBody as Object, oSignature as Object

oDoc = thisComponent
oDraw = oDoc.DrawPage
oForm = oDraw.getForms.GetByName("Email_Form")
oTo= oForm.GetByName("MAILTO")
oCC= oForm.GetByName("CC")
oBCC = oForm.GetByName("BCC")
oSubject = oForm.GetByName("Subject")
oBody = oForm.GetByName("Body")
oSignature = oForm.GetByName("Signature")
email_dispatch_url = "mailto:" + oTO.Text + "?" + "cc=" + oCC.text + "&" + "bcc=" + oBCC.text + "&"_
+ "subject="+ oSubject.text + "&" + "Body=" + oBody.text + CHR(13) + CHR(13) + oSignature.text
dispatcher = createUnoService( "com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch( StarDesktop,email_dispatch_url, "", 0, noargs())
end sub

mfg
mike

[komma4]

Die Quelle Deines Codes ist hier im Forum, Author "sarotti"

Das Problem ist, dass alle Felder in der emali_dispatch_url an den Dispatcher übergeben werden - und von diesem wieder auseinander genommen werden.
Der Dispatcher kann wohl Umlaute nicht korrekt behandeln (obviously). Er wird wohl nur mit Unicode arbeiten.
Versuche doch mal (testweise) die Umlaute zu codieren, Umsetztabelle bspw im Wiki, letzte Spalte "UTF-8 hexadezimal"

Zusatz: bitte setze das nächste Mal der Lesbarkeit wegen Code in die bereitgestellten tags: Code markieren, dann die Schaltffläche "Code" oberhalb des Editors drücken; Danke

[mike6]

Hallo,

Code: Alles auswählen

Zusatz: bitte setze das nächste Mal der Lesbarkeit wegen Code in die bereitgestellten tags: Code markieren, dann die Schaltffläche "Code" oberhalb des Editors drücken; Danke

danke für den Tipp.

mfg
mike