Selected Items Listbox in Email-Body

[Stahlwade]

Hallo,

ich stehe mal wieder gehörig auf dem Schlauch...

Dim objNachricht As Object
Dim objMail As Object
   
Set objMail = CreateObject("Outlook.Application")
Set objNachricht = objMail.CreateItem(0)

    With objNachricht
        .To = "Emailadress"
        .Subject = "Betreff"
        .Body = "Hallo," & vbLf & _
        "Text:" & vbLf & _
        Textfeld3.Value & ", " & Combo4.Value & " - " & Combo5.Value & " Uhr" & vbLf & _
        "Vorgangsnummer: " & "" & Textfeld1.Value

        .Send

    End With
   
Set objNachricht = Nothing
Set objMail = Nothing

hiermit kriege ich bereits einige Daten in den Email Body, die auch problemlos verschickt wird. Nun habe ich noch eine multiselect Listbox deren ausgewählte Items ich ebenfalls mit Komma separiert in den Body haben möchte. Quasi hinter "Textfeld1.Value"

Ich kriege diese Items in Zellen in Excel aber eben nicht sinnvoll in den Body. :(

Kann das wer?


VG

[snb]

Verzichte auf überflüssige Objektvariabelen.
Verwende nur notwendige Variabelen.

Code:

Sub M_snb()
  For j=0 to Listbox1.Listcount-1
    if Listbox1.selected(j) then c00 = c00 & "," & Listbox1.list(j)
 Next

    With CreateObject("Outlook.Application").CreateItem(0)
        .To = "Emailadress"
        .Subject = "Betreff"
        .Body = "Hallo," & vbLf & _
        "Text:" & vbLf & _
        Textfeld3.Value & ", " & Combo4.Value & " - " & Combo5.Value & " Uhr" & vbLf & _
        "Vorgangsnummer: " & Textfeld1.Value & mid(c00,2)
        .Send
    End With
Edn Sub   

[Stahlwade]

Wie ich dieses Forum liebe... 

Vielen vielen Dank!