Zeilenumbruch nicht möglich?

Bild

Betrifft: Zeilenumbruch nicht möglich? von: Svenna
Geschrieben am: 04.02.2005 18:51:24

Hallo zusammen,
mit nachfolgendem Code (nicht von mir erstellt) wird das Standard-Mail-Programm geöffnet und Empfänger, Titel und der Email-Text eingetragen. Das klappt auch wunderbar, allerdings habe ich das Problem, daß ich beim Email-Text keinen Zeilenumbruch hinbekomme. Ich habe es schon wie folgt versucht:

Text = "Zeile1" & chr$(13) & "Zeile2"

Das wird aber auch ignoriert, das Ergebnis sieht wie folgt aus:

Zeile1Zeile2

Hat jemand eine Idee? Danke, Gruß Svenna
**********************************************************************
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
**********************************************************************   
Sub Email()
  
  Dim Adresse As String
  Dim Anrede As String
  Dim Titel As String
  Dim Text As String
   
  Adresse = Range("F5").Value
  Anrede = Range("E5").Value
  Titel = "Erinnerung"
  Text = "Zeile1"
     
  Dim Result&, Buff$
    Buff = "mailto:" & Adresse & "?Subject=" & Titel
    Buff = Buff & "&Body=" & Text
    Result = ShellExecute(0&, "Open", Buff, "", "", 1)
End Sub

Bild


Betrifft: AW: Zeilenumbruch nicht möglich? von: Ulf
Geschrieben am: 04.02.2005 20:22:36

Versuchs mal so:

Text = "Zeile1" & chr(10) & "Zeile2"

Ulf


Bild


Betrifft: AW: Zeilenumbruch nicht möglich? von: Svenna
Geschrieben am: 04.02.2005 21:28:11

leider das gleiche Ergebnis:
Zeile1Zeile2
:-(
Trotzdem Danke Ulf


Bild


Betrifft: AW: Zeilenumbruch nicht möglich? von: Josef Ehrensberger
Geschrieben am: 04.02.2005 22:15:57

Hallo Svenna!

"mailto:" unterstützt im Body keinen zeilenumbruch!

Fals du Outlook benutzt dann geht's so:



      
Sub Email()
Dim OutApp As Object
Dim OutMail As Object
Dim Adresse As String, Anrede As String, Titel As String, Text As String

  Adresse = Range(
"F5").Value
  Anrede = Range(
"E5").Value
  Titel = 
"Erinnerung"
  Text = 
"Zeile1" & vbLf & "Zeile2"
  

    
Set OutApp = CreateObject("Outlook.Application")
    
On Error GoTo cleanup

         
Set OutMail = OutApp.CreateItem(0)
            
With OutMail
                .To = Adresse
                .Subject = Titel
                .Body = Anrede & vbLf & vbLf & Text
                
                
'You can add other files also like this
                '.Attachments.Add ("C:\test.txt")
                
                
'.Send  'hier kannst du die mail direkt senden
                .Display
            
End With
            
Set OutMail = Nothing
        

cleanup:
    
Set OutApp = Nothing
End Sub 


     Code eingefügt mit Syntaxhighlighter 3.0


Gruß Sepp

P.S.: Rückmeldung nicht vergessen!


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zeilenumbruch nicht möglich?"