Office: (Office 2016) Mehrere Emailempfänger an Outlook

Hi, ich bekomme langsam einen Knoten ins Hirn, und habe schon extrem die Suche bemüht.

Grundlage: Es gibt eine Abfrage, in der die email-Empfänger selektiert sind.

1. Thema: Einfache Mail an viele schicken:
Einfache email erstellen, in der die email-Adressen in eine email im Feld "an." mit Semikolon getrennt ein"kopiert" werden. In Outlook gebe ich dann manuell "Betreff" und die Nachricht ein. Ich will keine Serienemail erstellen.

2. Thema: Termin für Empfänger in Kalender eintragen

In der Abfrage sind auch Termindaten (DatumVon, Datumbis, Ort, Betreff)
Ein Termin gilt alle Empfänger.

Wie kann ich dies für mehrere Empfänger eintragen lassen?


Vielen Dank

Andreas

:)

 

Hallo
zeige uns doch einfach wie die Tabelle und die Abfrage aussieht !

 

SELECT tbl_Seminarplanung.SemTerminID, [tbl_TN-TERMIN].[TN-ID], tbl_TN.NName, tbl_TN.Vorname, tbl_TN.email, tbl_Seminarbeschreibung.REF, tbl_Seminarplanung.[Datum von], tbl_Seminarplanung.[Datum bis], tbl_seminarorte.Ort, tbl_Seminarbeschreibung.Titel
FROM tbl_seminarorte INNER JOIN (tbl_Seminarbeschreibung INNER JOIN (tbl_Seminarplanung INNER JOIN (tbl_TN INNER JOIN [tbl_TN-TERMIN] ON tbl_TN.[TN-ID] = [tbl_TN-TERMIN].[TN-ID]) ON tbl_Seminarplanung.SemTerminID = [tbl_TN-TERMIN].SemTerminID) ON tbl_Seminarbeschreibung.REF = tbl_Seminarplanung.REF) ON tbl_seminarorte.SemortNr = tbl_Seminarplanung.Ort
WHERE (((tbl_Seminarplanung.SemTerminID)=[Formulare]![frm_Seminartermine-planen]![sub_sub_frmTerminmitTN-Liste].[Formular]![SemTerminID]));

 

Hallo,

die Nummer 1 lässt sich am unkompliziertesten wahrscheinlich einfach mit einem mailto:-Hyperlink lösen. Der ist unabhängig vom eingesetzten Mail-Client und Bedarf keiner großartigen Programmierkenntnisse
Code:

Für Nummer 2 müsste man schon wissen, welchen Mail-Client du verwendest und wie es um deine VBA-Kenntnisse bestellt ist.

Viele Grüße
derHöpp

 

Danke. Die VBA-Kenntnisse sind rudimentär: Lesen und anpassen eines Codes kann ich soweit, neu erstellen eher nicht.

zu 1: Wie bekomme ich alle Email-Empfänger in ein Feld?
zu 2: Outlook 2016

 

Hallo,

ein Listenfeld (Me.lstMails) mit den Mailadressen (0), Person (1)
mit Mehfachauswahl "Einzeln" ausführen.
Button (btnSenden) dafür und Code hinein .
Ein Feld Me.An habe ich zur Kontrolle eingefügt, da siehst was du erstellt hast.
Das kannst dann in deinen Code unter [An] einsetzen.
Code:

 

Danke, das bringt mich erstmal nicht weiter. Die Emailadressen sind durch eine Abfrage schon selektiert.

Ich möchte gerne die emailadressen direkt durch ; getrennt in Outlook als Empfänger bringen.

 

...dann versuche es mit einer SQL-Liste...
VBA Tipp: Liste per SQL aufbauen – DBWiki
... oder mit einem Recordset und lass diese Abfrage durchlaufen und setze immer ein ; dazwischen ein.

 

Ich kriege es einfach nicht hin. Ganz einfache Abfrage liefert eine ID-Nr und die email-Adresse.

Ich möchte die email-Adressen in Empfänger-Feld per Semikolon getrennt als neue Email ohne Inhalte oder Betreff im Entwurf stehen haben.

Kann mir da jemand helfen? Dank!

 

...ok, letzter Anlauf *Smilie
Ich würde es dann in deinem Fall so erstellen...
Code:

 

Danke Dir, das kann ich soweit nachvollziehen.
Und ich hoffe, den wirklich letzen Anlauf bekommen wir auch noch hin:

Kannst Du mir beispielhaft zeigen, wie der Aufruf erfolgt?
Wenn ich das irgendwo in den Code einbaue wird angemerkt, dass zu wenig Parameter (Meldung: "1 Parameter wurde erwartet, aber es wurden zu wenig Parameter übergeben) angegeben sind.

Habe den Code in einem Formular einer Schaltfläche hinterlegt:

Code:

Jetzt muss ja irgendwie das Feld Empfänger mit meiner Empfängerliste gefüllt sein...


DANKE DANKE

Andreas

 

...schau ma mal ob das hilft...
den Abfragename und den MailAdressName musst richtig stellen
oder besser deinen Gegebenheiten anpassen...
Code:

 

Vielen Dank für Deine Bemühungen. Es läuft leider noch nicht:
1. Es fehlt 1 Parameter, wahrscheinlich im Funktionsaufruf
2. und beim Aufruf kommt "Laufzeitfehler 94: Unzulässige Verwendung von Null" in Zeile


Code:

Beim Klicken wird das Feld "Empfaenger" auch nicht gefüllt.

 

Hallo
Wo bei welchen Befehl gibt es den Fehler ?
bei einem Vergleich
If x=y
oder einer Zuweisung
x = y
und wie ist x und y definiert ? String (VARIANT)
oder Numerisch z.b. Long ??

evtl. solltest Du "Parameter" als Variant definieren ? !
und verwende evtl. die NZ Funktion !

so:
strx = Nz(rst!y, "") oder strx = rsty & ""

dazu in meiner Doc
Seite 241 und folgende
9.9.8 NULL’s und nicht Variant Felder
oder das ganze Kapitel
9 Umgang mit NULL
Seite ab 234

meine Doc als PDF-Datei findest Du hier:
https://www.dropbox.com/s/pa6yzgvw74...lagen.zip?dl=0
Runter Laden

 

...wenn es jetzt nicht klappt, dann weiß ich nicht mehr wie ich dir helfen kann!