Leerzeilen in Outlook per VBA löschen

Hi,

erstmal Danke für den Code, leider bekomme ich den nicht richtig eingebunden, sprich es funktioniert nicht.
Wo muss der denn genau rein und muss da nicht sub … und end sub davor bzw. dahinter stehen?

Ggf müßtest Du das erweitern, wenn es auch Zeilenumbrüche gibt, die nur aus vbLF bestehen.

Dies versteh ich um ehrlich zu sein auch nicht :S.

Hoffe, dass du mir da noch ein bischen helfen kannst.

MfG

frager

Hab alles richtig gemacht, hab sogar ein anderes Makro über diesen Button laufen welches auch einwandfrei funktioniert.
Was kann ich denn nun noch machen?

Hoffe du hast noch eine Idee?

Ich poste mal hier den gesamten Code, den ich Jetzt im Modul \”DieseOutlookSitzung\” stehen habe. Vielleicht findest du so meinen Fehler.

Sub AnwortMail()
On Error Resume Next

\’Benötigte Variablen
Dim myOlSelection As Outlook.Selection
Dim myOlMailItem As Outlook.MailItem
Dim NewMail As MailItem
Set myOlSelection = Application.ActiveExplorer.Selection

\’Erzeugen einer neuen Email als Antwort
For Each myOlMailItem In myOlSelection

Set NewMail = myOlMailItem.Reply
If NewMail.BodyFormat = olFormatHTML Then
NewMail.BodyFormat = olFormatPlain
Else
End If
NewMail.Display

While InStr(Text, vbCrLf & vbCrLf) > 0
Text = Replace(Text, vbCrLf & vbCrLf, vbCrLf)
Wend

Next
End Sub

Public Sub IrgendeinName()

While InStr(Text, vbCrLf & vbCrLf) > 0
Text = Replace(Text, vbCrLf & vbCrLf, vbCrLf)
Wend

End Sub

Der obige Code wandelt eine Html Mail automatisch in eine \”nur Text\” E-Mail um.
Hoffe sehr, dass du da was machen kannst.

MfG

frager

Hab jetzt doch den Code einbinden können. Habe nur festgestellt, dass er wahrlos, wenn nur eine Leerzeile da ist, auch diese löscht, sprich:

TEXT TEXT TEXT
(Leerzeile)
TEXT TEXT TEXT

wird zu:

TEXT TEXT TEXT
TEXT TEXT TEXT

Das ist allerdings nicht gewollt.
Andererseits lässt er gelegentlich auch doppelte Leerzeilen stehen, sprich:

TEXT TEXT TEXT
Leerzeile
Leerzeile
TEXT TEXT TEXT

Das sollte auch nicht passieren.

Weisst du woran das liegen könnte und wie man es korrigieren könnte?

ich irre mich in dem Fall nicht.

Manchmal wird aus:

From: XXX [mailto:xxx@xxx.de]
Sent: Friday, March 14, 2008 11:44 AM
To: \’xxx\’
Subject: xxx

Hi,

blabla bla

Daraus wird dann einfach:

From: XXX [mailto:xxx@xxx.de]
Sent: Friday, March 14, 2008 11:44 AM
To: \’xxx\’
Subject: xxx
Hi,
blabla bla

Dies war nicht der Sinn.

Aus:

From: XXX [mailto:xxx@xxx.de]
Sent: Friday, March 14, 2008 11:44 AM
To: \’xxx\’
Subject: xxx

Hi,

blabla bla

Soll:

From: XXX [mailto:xxx@xxx.de]
Sent: Friday, March 14, 2008 11:44 AM
To: \’xxx\’
Subject: xxx

Hi,

blabla bla

Hier der momentane Code:

Sub AnwortMail()
On Error Resume Next

\’Benötigte Variablen
Dim myOlSelection As Outlook.Selection
Dim myOlMailItem As Outlook.MailItem
Dim NewMail As MailItem
Set myOlSelection = Application.ActiveExplorer.Selection

\’Erzeugen einer neuen Email als Antwort
For Each myOlMailItem In myOlSelection

Set NewMail = myOlMailItem.Reply
If NewMail.BodyFormat = olFormatHTML Then
NewMail.BodyFormat = olFormatPlain
Else
End If
While InStr(NewMail.Body, vbCrLf & vbCrLf) > 2
NewMail.Body = Replace(NewMail.Body, vbCrLf & vbCrLf, vbCrLf)
Wend
NewMail.Display

Next
End Sub

Hoffe dir fällt hier noch was ein :). Aber schonmal vorab vielen Dank für die bisherige Hilfe.
No. 1 :thumbup:

MfG

frager