Emailtext mit Schleife bis Zelle leer
Gonzer
ich würde gerne automatisch eine EMail per Excel erstellen lassen, was auch funktioniert, und dabei den Emailtext variabel gestalten.
Heisst also eine Schleife einbauen bis in Spalte B kein Wert mehr enthalten ist:
Sub sendMail()
Dim OutApp As Object, OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "Emailadresse"
.Subject = "Betreff"
.Body = Worksheets("Mappe1").Cells(1, 2) & vbLf & _
Worksheets("Mappe1").Cells(2, 2) & vbLf & _
'hier hätte ich gerne ein Schleife bis in Spalte B kein Wert mehr steht
'.... also z.B Spalte B enthält in Zeile 10 keinen Wert mehr dann wäre die _
letzte Textzeile
Worksheets("Mappe1").Cells(9, 2) & vbLf & _
.Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub