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
'____________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
Do Until rst_Bild.EOF
.Attachments.Add "T:\data\bilder\FC\" & Me.Artikel & ".jpg"
rst_Bild.MoveNext
Loop
ganz einfach oder.
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.