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.
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
Hallo
Eine Datei verschieben:
Objekt.MoveFile QuelledeinPfad, ZieldeinPfad
Um zu prüfen ob die besagte Datei vorhanden ist:
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
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
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.
Moin Stefan,
es werden immer .pdf Dateien sein und diese haben immer unterschiedliche Namen.
Ich schau mir mal die Hilfe an.
Danke
Andreas
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
...
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