Keine doppelten Mailadressen bei Mailerstellung
Stefan
ich brauch mal wieder Eure Hilfe. Ich hab durch dieses Forum einen Code bekommen und diesen etwas angepasst. Nun habe ich aber ein Problem und komme nicht mehr weiter, da meine VBA Kenntnisse leider zu gering sind.
Mit dem Makro wird eine Mail erstellt. Dazu durchsucht es die Spalte C nach bestimmten Vorgaben (20, 16, 12, 8). Diese sind vorher durch eine Abfrage auszuwählen. Aus Spalte L werden nun die Mailadressen entnommen und ins Outlook übernomen. Das ganze funktioniert wunderbar. Es hat nur einen Haken.
Die Mailadressen kommen teilweise mehrfach vor!!! Wie kann ich doppelte Mailadressen bei der Übergabe an Outlook verhindern?
Ein weiteres Problem könnte sein, dass teilweise mehrere Mailadressen in einer Zelle stehen können (getrennt mit Strichpunkt). Kann man das irgendwie lösen?
Für Tipps und Hinweise wäre ich sehr Dankbar!!!!
Private Sub CommandButton1_Click()
Dim ArrayData(), ArrayMail()
Dim A&, B&, c&, n&, booSP As Boolean
With Tabelle2
'Daten aus Tabelle in Array schreiben
'ArrayData = .Range("B6", .Cells(.Rows.Count, 2).End(xlUp)).Resize(, 13) "" Then
If Not IsNumeric(.Match(ArrayData(A, c), ArrayMail, 0)) Then
ArrayMail(n) = ArrayData(A, c)
n = n + 1
End If
End If
' End If
' c = c + 1
' Next c
End If
End With
Next A
If n > 0 Then
ReDim Preserve ArrayMail(n - 1)
send_Mail Join(ArrayMail, ";")
End If
UserForm1.Hide
End Sub
Schöne Grüße
Stefan
Anzeige