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