Moin,
Emails aus Access zu versenden ist via DoCmd.SendObj kein Problem und ich bekomme leider keine Infos dafür, wie ich an eine solche Email einen Anhang anhängen kann.
Ich will keine Tabellen, Formulare etc. mitgeben, dies ist ja möglich, sondern ein vorher generiertes PDF-File.
Weiß da jemand eine Lösung?
Auch eine kommerzielle?
Lieben Dank
Andi
Dim myOutlook As Object
Dim mailitem As Object
Set myOutlook = CreateObject("Outlook.Apllication")
Set mailitem = myOutlook.CreateItem
With mailitem
.Subject = Me.txtBetreff
.To = Me.txtEmailSammlung
.Body = Me.txtNachricht
.Send
End With
Geht leider nicht. "Objekterstellung durch Active-X-Komponente nicht möglich".
Keine Ahnung, was dass heissen soll. Mama Google bringt hier auch nur wirres Zeugs.
Genau damit wäre es gegangen :-\
???
Andi
Fehlenden Verweis eingebunden und bei Application Rechtschreibfehler beseitigt.
Geht soweit, jetzt wird der Anhangversand getestet.
Danke fürs Zuhören
Andi
Zitat von: accessundich am Februar 12, 2009, 12:37:16
Fehlenden Verweis eingebunden und bei Application Rechtschreibfehler beseitigt.
Geht soweit, jetzt wird der Anhangversand getestet.
Danke fürs Zuhören
Andi
Eigentlich wollte ich zum Zitat noch was anhängen habe es aber vermurkst. Wollte nachfragen ob der Anhangversandtest von Andi erfolgreich war. Ich habe eine ähnliches Problem und müsste mehrere PDF Dateien (die ich vorher auswählen kann) als Dateianhang an eine einzelne eMail anhängen. Die PDF Dateien (inklusive kompletten Dateipfad und Dateinamen) kann ich ermitteln und wenn notwendig in eine Tabelle schreiben. Dazu reichen meine Access Kenntnisse noch aus. Dann ist aber Schluss, habe schon viel herumgesucht aber noch nichts (für mich) Umsetzbares gefunden. Würde auch einen kommerziellen Code kaufen, wenn es nicht eine Lawine kostet. Danke.
Ernst
Hallo,
Der Code von Andi hängt keine Attachments an.
Schreib mir mal eine Email.
Nickname bei g m x punkt d e
Hab ne eMail geschickt, bitte kurzes Feedback wenn nicht erhalten. Danke. Ernst