Sub Sample()
Dim olApp As Object
Dim olMailItm As Object
Dim iCounter As Integer
Dim Dest As Variant
Dim SDest As String
Set olApp = CreateObject("Outlook.Application")
Set olMailItm = olApp.CreateItem(0)
With olMailItm
SDest = ""
For iCounter = 1 To _
WorksheetFunction.CountA(Columns(1))
If SDest = "" Then
SDest = Cells(iCounter, 1).Value
Else
SDest = SDest & ";" & Cells(iCounter, 1).Value
End If
Next iCounter
.BCC = SDest
.Subject = "Kundeninfo"
.Body = ActiveSheet.TextBoxes(1).Text
.Send
End With
Set olMailItm = Nothing
Set olApp = Nothing
End Sub
Leider bleibt er immer bei: .Body = ActiveSheet.TextBoxes(1).Text
hängen. Woran kann das liegen? Ich habe eine Textbox eingefügt und der Name lautet "Textbox1"