Office: (Office 2010) E-Mail versenden an mehrere Empfänger aus Excel-Datei

Hallo zusammen,

ich habe folgendes Problem. ich möchte in eine Access-Anwendung eine E-Mail Funktion einbauen.

In der Excel-Datei habe ich mehrere Empfänger, jedem Empfänger sind eine oder mehrere Sachnummern zugeordnet.

Jetzt möchte ich an alle Empfänger eine Email verschicken. In dieser E-mail sollen alle Sachnummern aufgelistet werden. D.h. wenn ich beispielsweise 10 Empfänger habe, sollen mir 10 E-Mail Fenster mit den entsprechenden Sachnummern geöffnet werden.

die Empfänger sind in der Excel-Datei zufällig aufgelistet. Der erste Empfänger in der ersten Zeile könnte auch eine Sachnummer in der vierten Zeile haben. Hier ein Beispiel der Excel-Datei:

Sachnummer Empfänger
1111 empfänger1@outlook.de
2222 empfänger2@outlook.de
3333 empfänger3@outlook.de
4444 empfänger1@outlook.de

Ich bin gerade soweit, dass ich die Sachnummern des Empfängers in der ersten Zeile der Excel-Datei zusammenfasse. Allerdings werden für die nächsten Empfänger die Sachnummern für den ersten Empfänger zusammengefasst.

Code:

Die Frage ist, wie und wo sage ich der Anwendung, das er nur die Sachnummern zusammenfasst, die tatsächlich dem Empfänger zugeordnet sind. In der inneren oder äußeren Schleife?

ich hoffe ich habe meine Problem ausreichend beschrieben. Vielen Dank vorab!

Grüße FS

:)

 

Warum fängst du das Thema nochmal an? Was ist hiermit:
http://www.ms-office-forum.de/forum/...=340440&page=2?
In der äußeren Schleife darf jeder Empfänger nur ein Mal vorkommen.
Für die innere musst du beim nächsten dann wieder zum Anfang des Recordsets gehen.
maike

 

Hallo Maike,

deinen Beitrag habe ich übersehen, Sorry.

Das mit Distinct hat auf jedenfall geklappt, jetzt bekomme ich zumindest mal die richtige Anzahl an emails, wie ich es will. Aber es hackt immer noch an der Anzahl an Sachnummern. Für die nächsten Empfänger listet er mir alle Sachnummern.

Code:

Hier muss ich doch irgendwie sagen, dass ernur die Sachnummern zusammenfassen soll, die auch dem Empfänger zugeordnet sind, oder?

Vielen Dank vorab,

Grüße FS

 

Da hab' ich noch das Zurücksetzen der Variable vergessen.
Dass nur die Teilenummern des jeweiligen Empfängers genommen werden sollen, sagst du ja bei der Erzeugung des Recordsets:
Code:

Aber danach musst du hier die Variable leeren:
Code:

Sonst behält sie die alten Werte bei.
maike

 

Liebe Maike,

vielen Dank für deine Hilfe. Die Anwendung funktioniert einwandfrei.

Herlichen Dank und schönes Wochendende!!

Gruß

FS