Hallo Zusammen,

wie bekomme ich es hin, dass nun ein 2ter Tabellenbereich (K3:K200) bei CC eingefügt wird?



Private Sub CommandButton1_Click()

Dim xOTApp As Object
Dim xMItem As Object
Dim xCell As Range
Dim xRgTo As Range
Dim xEmailAddrTo As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address

Set xRgTo = Range("J3:J200")
If xRgTo Is Nothing Then Exit Sub

Set xOTApp = CreateObject("Outlook.Application")
For Each xCell In xRgTo

If xCell.Value Like "*@*" Then
If xEmailAddrTo = "" Then
xEmailAddrTo = xCell.Value
Else
xEmailAddrTo = xEmailAddrTo & ";" & xCell.Value

End If
End If


Next
Set xMItem = xOTApp.CreateItem(0)
With xMItem
.Subject = "Einsatzmail"
.To = xEmailAddrTo
.cc = xEmailAddrCC
.Display
End With

Dim OutApp As Object, Mail As Object, i