automatisch Datei an Mail anhängen

[Lalikowski]

Moin zusammen,

ich hoffen, dass Ihr mir helfen könnt.

Mit folgenden code versende ich automatisch E-mails.

Nun möchte ich, dass bei jeder Mail in einen speziellen Ordner geschaut wird, ob sich eine Datei darin befindet, wenn Ja muss diese Datei der Mail angehängt werden und anschließend wird diese Datei verschoben.

Code [Auswählen] Erweitern

Dim varEmpfEmail As String
Dim VarBetreff As String
Dim VarReportName As String
Dim DB As Database
Dim rs As Recordset

    Set DB = CurrentDb
    Set rs = DB.OpenRecordset("select NL_Name, Mail, cc,  NL_kurz from tbl_NL_Mail order by NL_Name", dbOpenSnapshot, dbSeeChanges)
    rs.MoveFirst
   
    While Not rs.EOF
        VarBetreff = "Bechtle Tagesmeldung " & rs.Fields("NL_Name") & " " & Forms!frm_KW.Datum_T_M_R.Value
        varEmpfEmail = rs.Fields("Mail").Value
        varEmpfcc = rs.Fields("cc").Value
        VarReportName = "Betreff_" & rs.Fields("NL_kurz").Value
     
        DoCmd.SendObject acSendReport, VarReportName, acFormatRTF, varEmpfEmail, varEmpfcc, , VarBetreff, _
             "Hallo zusammen, .....
False
             
        rs.MoveNext
    Wend


Ist so etwas mit Access 2003 möglich und wie?

Vielen Dank im Voraus

Andreas

[Stapi]

Hallo

Eine Datei verschieben:

Code [Auswählen] Erweitern

Objekt.MoveFile QuelledeinPfad, ZieldeinPfad

Um zu prüfen ob die besagte Datei vorhanden ist:

Code [Auswählen] Erweitern

Dim fs as Objekt
Set fs= CearteObjekt("Scripting.FileSystemObjekt")
If fs.FileExists("C:\DeinPfad\Deine Datei") = True Then
MsgBox "Datei vorhanden"
'führe nun dein Code aus
Else
MsgBox "Datei nicht vorhanden"
End If

[Lalikowski]

Moin Stapi,

vielen Dank für die schnelle Antwort, aber wie hänge ich die Datei(en) automatisch an die Mail?

Viele Grüße

Andreas

[Stapi]

Hallo

Um welcher Art von Dateien handelt es ich den, Word, Excel oder gar ganze Dateiordner?
Und ist der Name der Datei immer gleich?

Nachtrag:
Es ist möglich die zu kopieren Datei über die Zwischenablage wieder in dein E-Mail Programm einzufügen.

Schau mal in der VBA Hilfe (F1) unter acOLEPaste nach.

[Lalikowski]

Moin Stefan,

es werden immer .pdf Dateien sein und diese haben immer unterschiedliche Namen.

Ich schau mir mal die Hilfe an.

Danke

Andreas

[oma]

Hallo Andreas,

ich habe das bei mir etwas anders gelöst: in einem Formular habe ich zahlreiche Adressen, die ich für eine oder mehrere Mails (Sammel-Mail) aussuchen kann.
Über ein Dateidialog (aus Access heraus) kann ich mir eine Datei als Anhang aussuchen und in ein Feld speichern;  im Feld (MailAnhang) steht dann der vollständige Pfad

In meinem Sendecode steht dann

Code [Auswählen] Erweitern

...
            With olNewItem  ' neue Nachricht erstellen
                     .Recipients.Add rs1!E_Mail
                     .Subject = rs2!MailBetreff
                     .body = rs1!MailAnrede & " " & rs1!MailNachname & "," & vbCrLf & vbCrLf & rs2!MailText & vbCrLf
                     .Attachments.Add rs2!MailAnhang
            End With
...

d.h. mit dem Item Attachment.add hänge ich die Datei an die Mail

rs2 ist ein Recordset mit Maildaten (Datum, Mail-Text, Betreff und Anhang) und rs1 ein Recordset aus dem Auswahlformular (Anrede, Nachname, Mail-Adresse)


Gruß Oma