VBA Loop mehrere Artikel

[supatome]

Guten Abend

ich möchte mit einem Loop die Artikelbilder, als *.JPG der Bestätigungsemail anhängen. Mit dem untenstehenden Code wird nur das erste Artikelbild (10 Bilder im Auftrag) der Email angehängt.

Kann mir vielleicht jemand weiterhelfen, wie ich die 10 Artikelbilder der Email anhängen kann?

Vielen Dank und Grüsse
Supatome

Code [Auswählen] Erweitern

'____________Bilder hinzufügen start__________
    Dim rst_Bild As DAO.Recordset
    Dim strFotoDateien As String
    Dim objafdBild As String

    Set rst_Bild = CurrentDb.OpenRecordset("qyrAB", dbOpenForwardOnly, dbReadOnly)
     
    Do Until rst_Bild.EOF
               strFotoDateien = "T:\data\bilder\FC\" & Me.Artikel & ".jpg"
   
    rst_Bild.MoveNext
       
    Loop
   
'____________Bilder hinzufügen ende__________

' ----Email----
With myMail
        .GetInspector.Display
        ' Den Empfänger der Mail festlegen
        .To = eto
        ' Den Betreff der Mail festlegen
        .Subject = "Auftrag "
        ' Text in die Mail einfügen
       .Body = "*** Dies ist eine formlose und automatisch generierte Email mit Ihrem Auftrag. ***" & vbCrLf & vbCrLf & "Sehr geehrter Kunde" & vbCrLf & vbCrLf & "Vielen Dank für Ihren geschätzten Auftrag." & vbCrLf & vbCrLf & "Freundliche Grüsse"
        ' Ein Attachment aus dem Dateisystem anhängen
        .Attachments.Add strFotoDateien
       
       
       
       
        ' Die Email abschicken
        .Display
        ' Anstatt die Email sofort zu senden, kann man auch die Display-Methode des
        ' Mailitems verwenden, um die Email anzuzeigen und sie vom Benutzer manuell
        ' verschicken zu lassen.
       


    End With



[markusxy]

Code [Auswählen] Erweitern

   
    Do Until rst_Bild.EOF
        .Attachments.Add "T:\data\bilder\FC\" & Me.Artikel & ".jpg"
        rst_Bild.MoveNext     
    Loop

ganz einfach oder.
   

[ebs17]

Code [Auswählen] Erweitern

Do Until rst_Bild.EOF
    strFotoDateien = "T:\data\bilder\FC\" & Me.Artikel & ".jpg"  ' <= was ist das?

    .Attachments.Add rst_Bild.Anlagepfad
   
    rst_Bild.MoveNext   
LoopDie Schleife über das Recordset macht nur Sinn, wenn man auch den Inhalt eines Recordset-Feldes auswertet, hier also unmittelbar zum Anhängen der Anlage verwendet.

Der vorhandene bisherige Ausdruck ist ja konstant, da ist eine Schleife rundherum nutzlos.