Office: Probleme mit Sonderzeichen beim Erstellen einer Mail

Guten Morgen!
Wie im Titel schon zu lesen, habe ich ein Problem bei der Erstellung von Mails durch Excel. Ich habe eine Liste in Excel, aus der diverse Zellen in einen Mailbody eingefügt werden sollen. Umlaute werden dabei ignoriert und nicht kopiert. Stößt das Makro auf ein "&"-Zeichen ist ganz Schluss. Das Makro läuft zwar weiter, es werden aber keine weiteren Zeichen kopiert. Habt ihr Ideen, wie ich das lösen könnte?


Code:

:)

 

Hallo André,

Sonderzeichen musst du ersetzen, so wie du es beim Zeilenumbruch schon eingebaut hast. Dabei werden die Ascii - Werte der Zeichen in Hex - Werte mit vorangestelltem % umgewandelt. Also, schmeiß die beiden Zeilen raus:

Code:

und setz dafür diese Zeile ein:

Code:

Zusätzlich kommt in dein Modul folgende Funktion:

Private Function Correct_Syntax(strText As String) As String
strText = Replace(strText, "%", "%25")
strText = Replace(strText, vbCrLf, "%0A")
strText = Replace(strText, vbCr, "%0A")
strText = Replace(strText, " ", "%20")
strText = Replace(strText, "!", "%21")
strText = Replace(strText, "#", "%23")
strText = Replace(strText, "*", "%2A")
strText = Replace(strText, "/", "%2F")
strText = Replace(strText, "?", "%3F")
strText = Replace(strText, "Ä", "%C4")
strText = Replace(strText, "Ö", "%D6")
strText = Replace(strText, "Ü", "%DC")
strText = Replace(strText, "ß", "%DF")
strText = Replace(strText, "ä", "%E4")
strText = Replace(strText, "ö", "%F6")
strText = Replace(strText, "ü", "%FC")
Correct_Syntax = strText
End Function


Da sind jetzt nur die gebräuchlichen Sonderzeichen drin. Aber du weißt ja, wie du andere umwandeln kannst falls noch eines auftaucht. *wink.gif*

 

Hallo Nepumuk,
die Funktion der beiden Zeilen die ich ersetzen soll, habe ich nicht verstanden. Der Code ist ja nur geklaut und angepasst *wink.gif* Ok, nun zu deinen Tipps. Danke erstmal für deine Hilfe. Ich habe für das "&" noch folgende Zeile eingefügt:
Code:

Das funktioniert. Die richtige Bezeichnung für das "&" weiß ich leider nicht, daher habe ich testweise einfach "und" genommen. Da ich aber deutsche und englische Einträge habe ist das auch keine gute Lösung. Wo bekomme ich den richtigen Wert für das "&" her? Wie nennen sie die diese Codes (--> %E4)? Leider musste ich auch feststellen, dass er zwar die Sonderzeichen %?/#*& ersetzt, aber die Umlaute löscht er weiterhin einfachso *frown.gif*. Woran kann das liegen?

 

Hallo André,

du hast wohl nicht gelesen was ich geschrieben habe. Oder ?

Also dann vorgekaut:

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Public Sub test()
Dim msg As String
Dim URL As String
Dim Recipient As String, Subj As String
Dim Recipientcc As String, Recipientbcc As String
Dim cell As Range
Dim i As Integer


Recipient = "email@freenet.de"
Recipientcc = " "
Recipientbcc = " "

Subj = "Bestellung"

For i = 2 To 16
For Each cell In Sheets("Tabelle1").Range("b" & i & ":e" & i)
msg = msg & cell & ";"
Next cell

msg = msg & vbCrLf

Next i

msg = Correct_Syntax(msg)

URL = "mailto:" & Recipient & "?cc=" & Recipientcc & "&bcc=" & Recipientbcc _
& "&subject=" & Subj & "&body=" & msg

ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus

Application.Wait (Now + TimeValue("0:00:03"))
Application.SendKeys "%s"

End Sub

Private Function Correct_Syntax(strText As String) As String
strText = Replace(strText, "%", "%25")
strText = Replace(strText, vbCrLf, "%0A")
strText = Replace(strText, vbCr, "%0A")
strText = Replace(strText, "&", "%26")
strText = Replace(strText, " ", "%20")
strText = Replace(strText, "!", "%21")
strText = Replace(strText, "#", "%23")
strText = Replace(strText, "*", "%2A")
strText = Replace(strText, "/", "%2F")
strText = Replace(strText, "?", "%3F")
strText = Replace(strText, "Ä", "%C4")
strText = Replace(strText, "Ö", "%D6")
strText = Replace(strText, "Ü", "%DC")
strText = Replace(strText, "ß", "%DF")
strText = Replace(strText, "ä", "%E4")
strText = Replace(strText, "ö", "%F6")
strText = Replace(strText, "ü", "%FC")
Correct_Syntax = strText
End Function

 

Wenn ich nicht gelesen habe, wieso ändert das Makro dann plötzlich alle Sonderzeichen ausser den Umlauten? Vielleicht hast du aber meine Nachricht nicht gelesen? Ich kaue auch nochmal vor in Kurzform:

-dein Makro und die Funktion eingefügt
-Zeile für das "&" eingefügt
-Sonderzeichen werden ersetzt, Umlaute nicht

 

Hallo André,

ich bezog das auf das &. Das ist das Ascii-Zeichen 38 hat also den Hex-Wert 26. Das mit den Umlauten kann ich mir jetzt auch nicht erklären. Der Code ist getestet mit Outlook Express, Outlook, Lotus Notes und Novell Groupwise. Teste mal folgendes.

Public Sub test()
MsgBox Asc("Ä")
End Sub

Welche Zahl zeigt die MsgBox bei dir an?

 

Also die Hex-Werte für die Umlaute stimmen. Habe es überprüft. Und nun? Sehr merkwürdig. Sonderzeichen werden ersetzt, Umlaute nicht *frown.gif*

 

Hallo André,

welches Mailprogramm? Welcher Html-Editor (so du Html-Mails generierst)?

Die Angaben findes du in den Internetoptionen - Programme.

Ich bin da aber auch nicht der Spezialist dafür. An deiner Stelle würde ich mal hier nachfragen: http://www.ms-office-forum.net/forum...splay.php?f=32

Wenn dir da nicht weitergeholfen werden kann, dann mal im office-loesung.de - Forum für Outlook (so du Outlook oder Outlook Express benutzt) nachfragen. Die sind ziemlich gut. *Smilie

Ich kenn auch noch Foren für Lotus Notes und Novell Groupwise fall du diese Mailprogramme verwendest.

 

HTML-Editor? Die Mail wird direkt aus dem Makro generiert. In den Internetoptionen ist Word als HTML-Editor eingestellt. Ich teste mit Outlook 2007.

 

Hallo André,

Office2007 steht im Büro, das kann ich erst morgten testen.

 

Neue Erkenntnisse:
Outlook 2007/Excel 2007 -> Umlaute (äöüÄÖÜáàéè) werden nicht ersetzt.
Outlook 2002 SP3/Excel 2002 SP3 -> Umlaute (äöüÄÖÜáàéè) werden ersetzt.
Kann damit jemand was anfangen und sagen, wie man die 2007er dazu bewegen kann die Umlaute auch zu ersetzen? Sonderzeichen (#?!& usw.) werden übrigens bei beiden Konstellationen ersetzt.

 

Weitere neue Erkenntnisse:
Outlook Express 6/Excel 2003 -> Umlaute (äöüÄÖÜáàéè) werden ersetzt.

Thunderbird 2/Excel 2003 -> Es werden nur die Empfängeradresse und der Betreff übergeben. Im Mailbody stehen nur Fragezeichen *redface.gif*( Was ist das denn? Geht das nicht oder muss ich da etwas anders machen als bei Outlook Express?