MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 27.05.2019, 09:14   #1
twinjet
MOF User
MOF User
Standard Acc2016 - 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

Geändert von twinjet (27.05.2019 um 09:33 Uhr).
twinjet ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 27.05.2019, 10:05   #2
Lanz Rudolf
MOF Guru
MOF Guru
Standard

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

__________________


Gruss
Ruedi

WICHTIG Hilfe findet man auch hier:
<a *****"http://www.donkarl.com/" target="_blank">http://www.donkarl.com/</a> ;<a *****"http://www.yaccess.de/" target="_blank">http://www.yaccess.de/</a> ; und natürlich MS Office Forum Ask Dr. Mof <a *****"http://www.ms-office-wissen.de/askdrmof/index.php" target="_blank">http://www.ms-office-wissen.de/askdrmof/index.php</a>;
Umgang mit NULL ; <a *****"attachment.php?attachmentid=20764&d=1243959564" target="_blank">hier downloaden</a>
Datenrettung;<a *****"http://www.access-rettung.de/info.htm" target="_blank">http://www.access-rettung.de/info.htm</a>Meine Doc;<a *****"https://www.dropbox.com/s/pa6yzgvw74lk6ik/ACCESS%202000BU%20%20Begleitunterlagen.zip?dl=0" target="_blank">Meine Doc</a>
Lanz Rudolf ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 27.05.2019, 10:10   #3
twinjet
Threadstarter Threadstarter
MOF User
MOF User
Standard

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]));
twinjet ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 27.05.2019, 10:30   #4
derHoepp
MOF User
MOF User
Standard

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:

Application.FollowHyperlink "mailto:test@adresse.de,tost@adresse.de?subject=Franz jagt im komplett"
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
derHoepp ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 27.05.2019, 11:38   #5
twinjet
Threadstarter Threadstarter
MOF User
MOF User
Standard

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
twinjet ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 27.05.2019, 13:26   #6
Kyron9000
MOF Meister
MOF Meister
Standard

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:

Option Compare Database
Option Explicit

Private Sub btnSenden_Click()
On Error GoTo ErrHandler
Dim i As Variant
Dim X As Variant
    X = 0
        For Each i In Me!lstMails.ItemsSelected
               X = X & Nz(Me.lstMails.Column(0, i), 0) & "; "
        Next i
        X = Left(X, Len(X) - 1)
    Me.An = X
ErrHandlerExit:
    Exit Sub
ErrHandler:
    MsgBox Err.Description
    Resume ErrHandlerExit
End Sub

__________________

Gruß Alfred

Geändert von Kyron9000 (27.05.2019 um 13:29 Uhr).
Kyron9000 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 27.05.2019, 14:10   #7
twinjet
Threadstarter Threadstarter
MOF User
MOF User
Standard

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.
twinjet ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 27.05.2019, 16:21   #8
Kyron9000
MOF Meister
MOF Meister
Standard

...dann versuche es mit einer SQL-Liste...
http://dbwiki.net/wiki/VBA_Tipp:_Liste_per_SQL_aufbauen
... oder mit einem Recordset und lass diese Abfrage durchlaufen und setze immer ein ; dazwischen ein.

__________________

Gruß Alfred
Kyron9000 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 04.06.2019, 15:44   #9
twinjet
Threadstarter Threadstarter
MOF User
MOF User
Standard

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!
twinjet ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 04.06.2019, 18:51   #10
Kyron9000
MOF Meister
MOF Meister
Standard

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

Option Compare Database
Option Explicit

Public Function setMails() As String
On Error GoTo ErrHandler
Dim db    As DAO.Database
Dim rs    As DAO.Recordset
Dim sMail As String
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("DeineAbfrage", dbOpenSnapshot)
    With rs
        .MoveLast: .MoveFirst
    Do While Not .EOF
    sMail = sMail & !DeinMailFeldName & "; "
        .MoveNext
    Loop
        .Close
    End With
    setMails = Left(sMail, Len(sMail) - 2)
ErrHandlerExit:
    Set rs = Nothing
    Set db = Nothing
    Exit Function
ErrHandler:
    MsgBox Err.Description
    Resume ErrHandlerExit
End Function

   'Aufruf: An = setMails

__________________

Gruß Alfred

Geändert von Kyron9000 (04.06.2019 um 18:54 Uhr).
Kyron9000 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 06.06.2019, 12:43   #11
twinjet
Threadstarter Threadstarter
MOF User
MOF User
Standard

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:

Private Sub cmdMailSenden_Click()
     Dim objOutlook As Outlook.Application
     Dim objMail As Outlook.MailItem
     Set objOutlook = New Outlook.Application
     Set objMail = objOutlook.CreateItem(olMailItem)
     With objMail
         .Recipients.Add Me!Empfaenger
         .Subject = Me!Betreff
         .Body = Me.Inhalt
         .Display
       End With
End Sub

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


DANKE DANKE

Andreas

Geändert von twinjet (06.06.2019 um 13:35 Uhr).
twinjet ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 06.06.2019, 18:53   #12
Kyron9000
MOF Meister
MOF Meister
Standard

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

Option Compare Database
Option Explicit

Option Compare Database
Option Explicit

Public Function setMails() As String
On Error GoTo ErrHandler
Dim db    As DAO.Database
Dim rs    As DAO.Recordset
Dim sMail As String
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("DeineAbfrage", dbOpenSnapshot)
    With rs
        .MoveLast: .MoveFirst
    Do While Not .EOF
    sMail = sMail & !DeinMailFeldName & "; "
        .MoveNext
    Loop
        .Close
    End With
    setMails = Left(sMail, Len(sMail) - 2)
ErrHandlerExit:
    Set rs = Nothing
    Set db = Nothing
    Exit Function
ErrHandler:
    MsgBox Err.Description
    Resume ErrHandlerExit
End Function

Private Sub cmdMailSenden_Click()
     Dim objOutlook As Outlook.Application
     Dim objMail As Outlook.MailItem
     Set objOutlook = New Outlook.Application
     Set objMail = objOutlook.CreateItem(olMailItem)
     With objMail
         .To = setMails
         .CC = "" 'keine Adresse
         .BCC = "" 'keine Adresse
         .Recipients.Add Me!Empfaenger
         .Subject = Me!Betreff
         .Body = Me.Inhalt
         .Display
       End With
End Sub

__________________

Gruß Alfred
Kyron9000 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.06.2019, 07:13   #13
twinjet
Threadstarter Threadstarter
MOF User
MOF User
Standard

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:

  .Recipients.Add Me!Empfaenger
Beim Klicken wird das Feld "Empfaenger" auch nicht gefüllt.
twinjet ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.06.2019, 07:54   #14
Lanz Rudolf
MOF Guru
MOF Guru
Standard

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

__________________


Gruss
Ruedi

WICHTIG Hilfe findet man auch hier:
<a *****"http://www.donkarl.com/" target="_blank">http://www.donkarl.com/</a> ;<a *****"http://www.yaccess.de/" target="_blank">http://www.yaccess.de/</a> ; und natürlich MS Office Forum Ask Dr. Mof <a *****"http://www.ms-office-wissen.de/askdrmof/index.php" target="_blank">http://www.ms-office-wissen.de/askdrmof/index.php</a>;
Umgang mit NULL ; <a *****"attachment.php?attachmentid=20764&d=1243959564" target="_blank">hier downloaden</a>
Datenrettung;<a *****"http://www.access-rettung.de/info.htm" target="_blank">http://www.access-rettung.de/info.htm</a>Meine Doc;<a *****"https://www.dropbox.com/s/pa6yzgvw74lk6ik/ACCESS%202000BU%20%20Begleitunterlagen.zip?dl=0" target="_blank">Meine Doc</a>

Geändert von Lanz Rudolf (08.06.2019 um 08:26 Uhr).
Lanz Rudolf ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.06.2019, 09:15   #15
Kyron9000
MOF Meister
MOF Meister
Standard

...wenn es jetzt nicht klappt, dann weiß ich nicht mehr wie ich dir helfen kann!
Angehängte Dateien
Dateityp: zip SendingMail_V1.zip (39,9 KB, 9x aufgerufen)

__________________

Gruß Alfred
Kyron9000 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:17 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.