Office: Daten aus Access-Abfrage in VBA auslesen und weiterverarbeiten

Hallo zusammen!

Ich möchte Dateien, deren Pfade in einer Access-Abfrage stehen mit Hilfe von VBA als Outlook-Email verschicken.

Eine vorgegebene Datei kann ich mit folgendem Code verschicken (der Einfachheit halber ohne Fehlerbehandlung dargestellt):

Function Befehl0_Click()

Set Message = CreateObject("Outlook.Application").CreateItem(0)
With Message
.Subject = "Test"
.To = "mroesler@lge.com"
.Attachments.Add "C:\Beispiel.jpg"
.Display
End With

End Function

Wie bekomme ich aber meine Dateien aus der Access-Abfrage anstelle von C:\Beispiel hier untergebracht?

Anhang=[Abfragen]![Abfrage1]![bild]

und dann "Anhang" statt der Beispieldatei bei .Attachments.Add angeben funktioniert nicht :-(

Hat jemand einen Tipp für mich????


Viele Grüße

Marion

:)

 

Hi,

öffne eine Recorset mit dem SQL-Statement und beziehe dich dann in der Email auf die Felder im Recordset.

 

Hallo,

vorausgesetzt Dein Feld "Bild" enthält den kompletten Pfad und die Abfrage enthält keinen Parameter sollte es wie folgt gehen:

Code:

Gruss Stefan

 

Hallo Stefan!

Danke für deine Antwort. Wenn ich den Teil mit der Email-Adresse weg lasse, funktioniert die Funktion. Leider kann ich so nur die erste Datei meiner Abfrage verschicken. Die weiteren werden einfach ignoriert.

Hast du dazu auch noch eine Idee?


Gruß
Marion

 

Öffne ein Recordset mit der Abfrage und füge die Dokumente in einer Schleife hinzu solange nicht EOF.

Code:

 

Hallo Anne!

Danke für deine Hilfe. Die Idee ist gut. Leider findet mein VBA das nicht:

Laufzeitfehler 3251
Operation wird für diesen Objekttyp nicht unterstützt.

Stimmt hier was mit meinen Verweisen / Bibliotheken nicht?

Gruß
Marion

 

Wie hast du das denn eingebaut? Hast du RS ordentlich deklariert? Zeig mal deinen Code. Und die Zeile, die den Fehler bringt.

 

Nein, speziell deklariert habe ich RS nicht. Ich dachte "Set RS = CurrentDb.OpenRecordSet("Abfrage1")" reicht:


Private Sub Befehl0_Click()

Set Message = CreateObject("Outlook.Application").CreateItem(0)
With Message
.Subject = "Test"
.To = "abc@def.com"
Set RS = CurrentDb.OpenRecordSet("Abfrage1")
RS.MoveFirst
While Not RS.EOF
.Attachments.Add RS!bild 'Diese Zeile verursacht den Fehler
RS.MoveNext
Wend
RS.Close
.Display
End With

End Sub

 

Und so?

Code:

Ein Verweis auf DAO ist erforderlich. Siehe dazu FAQ 7.11

 

Hallo Jan!

Jetzt bekomme ich folgende Fehlermeldung bezüglich rs As DAO.Recordset:

"Fehler beim Kompilieren:
Benutzerdefinierter Typ nicht definiert"

Ist der Typ nun definiert, oder nicht??????????


Viele Grüße von einer etwas verwirrten
Marion

 

Wer lesen kann ist klar im Vorteil

Ich habe das Problem mit DAO gelöst. Bei mir fehlte der Verweis auf die DAO-Bibliothek.

Jetzt bekomme ich aber wieder die gleiche Fehlermeldung wie vorhin:

"Operation wird für diesen Dateityp nicht unterstützt"

in Bezug auf folgende Zeile:

.Attachments.Add rs!bild

Das "Dimmen" hat also nichts gebracht :-(
Trotzdem bin ich etwas schlauer geworden. Danke


Gruß
Marion

 

Und so?

Code:

Was steht denn eigentlich in dem Feld in der Tabelle drin?

 

Hallo Jan!

Keine Chance. "Benutzerdefinierter Typ nicht definiert" gleich in der ersten Dim-Zeile.

Was für Verweise müssen aktiv sein? Vielleicht fehlt da bei mir was, wie gestern mit DAO.


Gruß und vielen Dank für deine Mühe

Marion

 

Sorry Jan. Ich hatte eben deine Frage überlesen.

In der Tabelle befinden sich Pfadangaben von Bilddateien.


Alles Gute

Marion

 

Wie wär's mit einem Verweis auf MS Outlook?! *wink.gif*