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 17.06.2019, 13:29   #1
2fragende
MOF User
MOF User
Standard Acc2010 - E-mail senden mit N-Anhängen

Hallo zusammen,

bisher habe ich via Access-Formular Mails mit einem Anhang versendet in dem ich lediglich folgenden Zeile genutzt habe (den Code habe ich verkürzt dargestellt)

Code:

    
Dim olApp As Outlook.Application
Dim objMail As Outlook.mailitem
Set olApp = Outlook.Application

Do Until IsNull(Me!txt_Email) Or Me!txt_Email = ""

    Set objMail = olApp.CreateItem(olMailItem)
    With objMail
       .To = "abc@abc.de"
       .Subject = "test"
       .Body = "Hallo"

      .Attachments.Add DLookup("Laufwerkspfad", "tblM_Pfade", "Bezeichnung = 'PZV'") & txt_Kundennummer.Value & DLookup("Dateiname", "tblM_Dateinamen", "Bezeichnung = 'PZV'") & DLookup("Dateityp", "tblM_Dateinamen", "Bezeichnung = 'PZV'")
.Send

End With

   DoCmd.GoToRecord acActiveDataObject, , acNext
   Loop
Somit hat Access für jeden der Datensätze den individuellen Anhang aus dem Laufwerk gezogen und der Mail beigefügt. Die Anhänge haben alle das gleiche Format. Zum Beispiel "[Kundennummer]_2019.pdf"

Nun stehe ich vor der Herausforderung, dass ich je nach Datensatz einen oder mehrere Anhänge (Anzahl ist variabel) beifügen möchte, wenn diese mit der jeweiligen Kundenummer beginnen.

Zum Beispiel sollen bei Kunde 123 die Anhänge
- 123_2019_Hannover.pdf
- 123_2019_Berlin.pdf
beigefügt werden, bei Kunden 456 jedoch die Anhänge
- 456_2019_Frankfurt.pdf
- 456_2019_Hannover.pdf
- 456_2019_Mainz.pdf

Die Anhänge weisen folgenden Eigenschaften auf:
- Die Anzahl ist nicht einheitlich
- Der Speicherpfad ist immer identisch
- Es gibt einen fixen Teil (_2019_ und .pdf)
- Es gibt einen bestimmten variablen Teil (Kundennummer)
- Es gibt einen unbestimmten variablen Teil (Städtename)

Access soll also jeden Anhang in dem Pfad beifügen, der mit der Kundennummer des Datensatzes beginnt.

Wie setzte ich so etwas um!?

Danke schon mal für Vorschläge!
2fragende ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.06.2019, 15:14   #2
ebs17
MOF Guru
MOF Guru
Standard

Bei mehreren Anhängen brauchst Du das mehrfach
Code:

.Attachments.Add ...
Mit etwas Struktur kann man hier eine Schleife über die eine Anweisung bauen.

__________________

Ein freundliches Glück Auf!

Eberhard

Abfrageperformance ist kein Geheimnis
SQL ist leicht: {0}:{1}:{2}:{3}:{4}:{5}:{6}:{7}:{8}:{9}:{10}:{11}:{12} <= geklammerte Zahlen sind Einzelthemen
Dein Dankeschön: DBWiki => Spende
ebs17 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.06.2019, 16:45   #3
Kyron9000
MOF Meister
MOF Meister
Standard

Hallo 2fragende,

abgesehen davon... wie unterscheidest du die Einträge (.pdf ) ohne Datum
im Dateiname oder sonstiges? (oder ich habe es übersehen )

Schickst du immer alle Dateien, wird das nur 1x im Jahr gesendet,
oder... löscht du die Dateien wieder nach dem senden, wenn ja warum?

Viele DLookup hast eingebeut, warum kein Reckordset, dass du abfragen
kannst... mit einer schlüssigen SQL?

Dann kannst das leicht umsetzen, was dir Eberhard vorgeschlagen hat.

__________________

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:24 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.