Email-Verteiler zerlegen und prüfen ob vorhanden

Guten Morgen zusammen,
bei folgendem Vorhaben benötige ich Eure Hilfe:
ich lasse in meiner Mappe Emails mit individuellen Dateianhängen per VBA erstellen (funktioniert auch). Es kann dann gewählt werden, ob als Empfänger eine definierte Verteilerliste (Sheet 4, Spalte C) gewählt werden soll, oder ein Empfänger manuell hinzugefügt werden soll. Im letzteren Fall erfolgt nach Eingabe der Emailadresse eine Abfrage, ob ein weitere Emailadresse hinzugefügt werden soll usw. Die Adressen werden in der Variablen "Verteiler" gespeichert und dann in das BCC von Outlook übergeben. Ich würde nun gerne noch die in "Verteiler" gespeicherten Emailadressen mit der Verteilerliste (Spalte C) abgleichen und hier noch nicht enthaltene Adressen einfügen lassen. Hierfür müsste die Variable aber vorher in die einzelnen Emailadressen zerlegt werden. Und genau da habe ich mein Problem... Könnte mir da jemand behilflich sein ?
Besten Dank dafür und einen angenehmen Wochenstart
Stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub t() Dim rngVerteiler As Range, arrVerteiler As Variant Dim strZusaetzlich As String Set rngVerteiler = Range("C1:C5") arrVerteiler = Application.Transpose(rngVerteiler) strZusaetzlich = "zusätzlich@mail.com" If WorksheetFunction.CountIf(rngVerteiler, strZusaetzlich) = 0 Then ReDim Preserve arrVerteiler(UBound(arrVerteiler) + 1) arrVerteiler(UBound(arrVerteiler)) = strZusaetzlich Else MsgBox "bereits vorhanden" End If MsgBox Join(arrVerteiler, ";") End Sub

Hi Stefan,
(ungetestet)
Da die neuen Mailadressen mit "," als Trenner im Code übergeben werden, müsstest du die Variable, die die Mailadressen enthält,...
...zuerst mit SPLIT() in eine Array-Variable übergeben


Dim lstrMail() As String
lstrMail = Split(DeineMailvariable, ",")

...jetzt könntest du per For/Next-Schleifen die Spalte C in Sheet 4 mit dem Inhalt der Arrayvariablen überprüfen


Dim liIdxAr As Integer, liIdxMail As Integer, lboVorhanden As Boolean
With Sheets(4)
For liIdxMail = 1 To .Cells(Rows.Count, 3).End(xlUp).Row 'die 1 ist erste Zeile in Spalte C
'wenn die Verteilerliste NICHT
'in Zeile 1 beginnt, ddann  _
anpassen!
For liIdxAr = 0 To UBound(lstrMail)
If LCase(.Range("C" & liIdxMail).Value) = LCase(lstrMail(liIdxAr)) Then
lboVorhanden = True
Exit For
End If
Next
If lboVorhanden = True Then
lboVorhanden = False
Else
.Range("C" & .Cells(Rows.Count, 3).End(xlUp).Row + 1).Value = lstrMail(liIdxAr)  _
End If
Next
End With

Hilfts?
Wenn nicht, zeig uns bitte per Upload eine Bsp-Datei mit Bsp-Daten + dem bisherigen Code.
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

Email-Verteiler zerlegen und prüfen ob vorhanden

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Email-Verteiler zerlegen und prüfen ob vorhanden

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread