email aus excel versenden

Sub Verteilen()
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object
Dim oOLAttach As Object
Dim iRow As Integer, iCounter As Integer
Dim sRec As String, s

Sub As String
Dim sBody As String
Dim bln
Dim a As Integer
Dim sende As Integer
Application.ScreenUpdating = False
Application.DisplayStatusBar = True
bln = Application.DisplayStatusBar
iRow = Cells(Rows.Count, 1).End(xlUp).Row
Set oOL = CreateObject("Outlook.Application")
For iCounter = 2 To iRow
sRec = Cells(iCounter, 1)
s

Sub = Cells(iCounter, 2)
sBody = Cells(iCounter, 3)
Application.StatusBar = "Sende Datei " & " an " & sRec & "..."
Set oOLMsg = oOL.CreateItem(0)
With oOLMsg
Set oOLRecip = .Recipients.Add(sRec)
.Subject = sSub
.Body = sBody & vbLf & vbLf
'  Set oOLAttach = .Attachments.Add(sFile)
.Send
End With
oOLRecip.Resolve
Next iCounter
'Next sende
Set oOL = Nothing
Application.StatusBar = False
Application.DisplayStatusBar = bln
End Sub