Clever-Excel-Forum

Hallo,

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

Zitat: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

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

Wie ich dieses Forum liebe...

Vielen vielen Dank!

Stahlwade

snb

Stahlwade