Office: (Office 2003) Mail mit mehreren Anhängen per VBA erstellen

xlarge · 25. April 2012

Hallo liebe Forumsprofis,

ich muss per vba ein Mail mit mehreren Anhängen erstellen. Die Anhänge sind als PDF Dateien in einem speziellen Ordner gespeichert. Beginnen alle mit einer neunstelligen Zahl (Beispiel 123456789_XXX.pdf).

Ich habe nun einen Code aus mehreren Schnipseln aus dem Forum zusammengeschustert. Leider funktioniert er nicht.
Code:

Private Sub MailErstellen()
'Variablen deklarieren
Dim db As DAO.Database 'DAO Datenbank
Dim objOutl As Outlook.Application 'Outlook initialisieren
Dim objMail As Outlook.mailItem
Dim strAttachment As String 'Anlage die gesendet werden soll
Dim strOrdner As String 'Ordner in dem die Anlagen zwischengespeichert werden
Dim strSaBeMail As String 'Mailadresse des Sachbearbeiters
Dim strSubject As String 'Betreffzeile

'Variablen füllen
strOrdner = "E:\AccessOFT\Daten\"
strSaBeMail = SaBeVnmeErmitteln & "." & SaBeNnmeErmitteln & "@adac.de" 'Mailadresse des Mitarbeiters zusammenstellen
MsgBox (strSaBeMail)
strSubject = strMglNr & "_Fahrzeugorganisation"

'Warnungen ausschalten
DoCmd.SetWarnings False
DoCmd.Hourglass True
'Outlook öffnen
Set objOutl = CreateObject("Outlook.Application")
Set objMail = objOutl.CreateItem(olMailItem)
With objMail
.To = strSaBeMail
.Subject = strSubject
'------------------------------------------------------------
'Hier ist das Problem
' Anlagen anfügen
For Each File In Folder.files
If Left(File.Name, Len(strMglNr)) = strMglNr Then
strAttachment = strOrdner & File.Name
.Attachments.Add (strAttachment)
Else
MsgBox ("Keine Anlagen gefunden!")
End If
Next
'---------------------------------------------------------------
.Send
End With
'Outlook schließen
Set objMail = Nothing
Set db = Nothing

'Systemwarunungen wieder einschalten
DoCmd.SetWarnings True
'Mitteilung an User
MsgBox ("Mail wird an Ihr Postfach gesendet.")

DoCmd.Hourglass False
DoEvents

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es kommt die Fehlermeldung: Objekt erforderlich

Ich vermute es liegt an der Deklaration von "Folder" aber ich habe keine Antwort auf dieses Problem gefunden.

Sicher ist euch bekannt woran es liegt.
Gruß Xlarge

:)

CptChaos · 27. April 2012

bin gerade dabei eine Klasse OutlookMailHelper zu erstellen.
Zum Anfügen von Attachments nutze ich folgenden Code: Code:

If Len(PathToAttachment) > 0 Then
Set olAtts = olMail.Attachments
Set newAtt = olAtts.Add(PathToAttachment, olByValue, PositionForAttachment)
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Atrus2711 · 27. April 2012

Folder ist doch weder deklariert noch zugewiesen?!?!

xlarge · 7. Januar 2021

von CptChaos

bin gerade dabei eine Klasse OutlookMailHelper zu erstellen.
Zum Anfügen von Attachments nutze ich folgenden Code: Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

If Len(PathToAttachment) > 0 Then
Set olAtts = olMail.Attachments
Set newAtt = olAtts.Add(PathToAttachment, olByValue, PositionForAttachment)
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hallo Benny
erstmal vielen Dank. Aber bei diesem Codeschnipsel habe ich sicher wieder ein Problem mit der Deklaration oder so.
Gruß Xlarge

xlarge · 7. Januar 2021

von Atrus2711

Folder ist doch weder deklariert noch zugewiesen?!?!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hallo Artus,
Danke für deine Antwort. Du hast sicher recht, aber weiß leider nicht wie ich das machen muss.
Könntest Du mir bitte auf die Sprünge helfen?
Gruß Xlarge

Atrus2711 · 27. April 2012

Anregung hier:
http://www.ms-office-forum.de/forum/...57&postcount=6

(Wenn die Unterordner nicht interessieren, kannst den Subfolders-Teil weglassen).

ebs17 · 27. April 2012

Code:

For Each File In Folder.files
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Diese Objekte sind weder deklariert noch mit Inhalten versehen, eine Übergabe als Argumente an die Prozedur hat auch nicht stattgefunden.
Wieso soll dann diese Zeile funktionieren?

Außerdem sollte es bei einer Prozedur "Mail erstellen" nicht Aufgabe sein, die Anlagen erst zu ermitteln, sondern diese sollten als Argument zzgl. der anderen Angaben (Mailempfänger, Betreff, Nachricht) übergeben werden, vergleiche Acc2003 - Bericht in PDF ausgeben.

Die Liste der Anlagen könntest/solltest Du vorher ermitteln und z.B. als Array wie in der gezeigten Funktion übergeben. Ein Durchlaufen eines Verzeichnisses (inkl. Unterverzeichnisse) und das Ermitteln bestimmter Dateien wäre eine eigene Funktion - und als solche auch in weiteren Zusammenhängen nutzbar.

xlarge · 1. Mai 2012

Hallo an Alle Helfer,

nach ein paar Tagen Urlaub hab ich es mit euren Tipps und der VBA-Hilfe geschafft eine funktionierende Lösung zu finden.

Code:

Set objOutl = CreateObject("Outlook.Application")
Set objMail = objOutl.CreateItem(olMailItem)

With objMail
.To = strSaBeMail
.Subject = strSubject
'FileSystemObject erstellen
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(strOrdner)
Set fc = f.Files
'Anlagen anfügen
For Each f1 In fc
If Left(f1.Name, Len(strMglNr)) = strMglNr Then
strAttachment = strOrdner & f1.Name
.Attachments.Add (strAttachment)
End If
Next
'Mail an Sachbearbeiter senden
.Send
End With
'FileSystemObject schließen
Set fs = Nothing
Set f = Nothing
Set fc = Nothing
'Outlook schließen
Set objMail = Nothing
Set db = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank an alle Helfer.
Gruß Xlarge

Office: (Office 2003) Mail mit mehreren Anhängen per VBA erstellen

Mail mit mehreren Anhängen per VBA erstellen

Mail mit mehreren Anhängen per VBA erstellen

Mail mit mehreren Anhängen per VBA erstellen

Mail mit mehreren Anhängen per VBA erstellen

Mail mit mehreren Anhängen per VBA erstellen - Similar Threads - Mail mehreren Anhängen

Outlook 2019 - Kalenderproblem mit mehreren Mail-Adressen

Kann Posteingang an meine Mails angehängte Office Dateien sowie Pdf und Fotos-Jpg nicht mehr öffnen

aus Excel Mail versenden mit mehreren Anhängen

Mails Farblich kennzeichnen für mehrere PCs ohne Exchange

mit VBA eine Serienbrief-Mail mit mehreren Anhängen erstellen

Wie kann ich Ausdrucke mehrerer Mails mit Anhängen im Outlook richtig sortieren?

Anhänge aus mehreren Mails kopieren und lösen