Ausgefilterte Zeilen überspringen
03.04.2014 13:16:42
Jockel
habe mir aus Beispielen ein Muster zusammengebaut. Ich möchte an alle email Adressen, die sich in der Spalte A befinden, eine mail senden. Also nicht einzeln, sondern eine Mail mit allen Adressen. Das funktioniert soweit:
Sub Sample()
Dim olApp As Object
Dim olMailItm As Object
Dim iCounter As Integer, iRow As Integer
Dim SDest As String, sSubject As String
sSubject = "Verteiler"
Set olApp = CreateObject("Outlook.Application")
Set olMailItm = olApp.CreateItem(0)
With olMailItm
SDest = ""
For iCounter = 2 To 100
If SDest = "" Then
SDest = Cells(iCounter, 1).Value
Else
SDest = SDest & ";" & Cells(iCounter, 1).Value
End If
Next iCounter
.To = SDest
.Subject = sSubject
.Body = "Test"
.Display
End With
Set olMailItm = Nothing
Set olApp = Nothing
End Sub
Eigentlich wollte ich, dass nach dem setzen eines Filters nur noch die sichtbaren email Adressen in die Mail eingefügt werden.
Nun das Problem: Wenn ich den Code laufen lasse, werden mir weiterhin alle Empfänger in die Mail eingetragen. Der Code nimmt weiterhin alle Empfänger in die mail auf, egal ab aus.- oder eingeblendet.
Wie kann man es schaffen, dass nur noch SICHTBARE Empfänger in die Mail aufgenommen werden und die ausgeblendeten nicht berücksichtigt werden ?
Danke
Jockel
Anzeige