ich habe eine arbeitsmappe, die ich als email-verteiler-datenbank nutze. ich filtere die daten mit dem excel autofilter.
wenn ich nun durch klicken auf einen button eine neue email generiere, weden alle email adressen in der selektion, in bcc übernommen. (code siehe unten). ich möchte aber nur die sichtbaren (gefilterten) email adressen in bcc übernehmen.
weiß jemand wie das geht?
'mail to selected names
Dim MailTo As String
Dim cell As Range
Dim outapp As Object, outmail As Object
MailTo = ""
For Each cell In Selection ------------------- hier moechte ich nur die sichtbaren (d.h.
gefilterten email adressen selektieren)
If cell.Value Like "*@*" Then
MailTo = MailTo & ";" & cell.Value
End If
Next
MailTo = Mid(MailTo, 2) ' den 1. Strichpunkt wieder löschen
' Debug.Print MailTo
If MailTo = "" Then
MsgBox "bitte markieren Sie einen bereich mit email adressen!", vbCritical
Exit Sub
End If
Set outapp = CreateObject("Outlook.Application")
Set outmail = outapp.CreateItem(0)
With outmail
'.To = ""
' .CC = ""
.BCC = MailTo
'.Subject = "This is the Subject line"
' .Body = "This is a body"
' .Attachments.Add "d:\daten\anyfile.xyz"
.display
End With
Set outmail = Nothing
Set outapp = Nothing
'End Sub