Hallo Gemeinde,
ich habe eine Bitte ich bin ein kompletter Anfänger und stehe auf dem schlauch
ich bin Schriftführer in einen verein und soll an unseren Mitgliedern oder dem Vorstand regelmässig email mit anhang schreiben.
Nun ist eine Adressdatenbank wohl das richtige.
Ich hab nun eine tabelle angelegt und ein paar abfragen gebastelt.
nun bin ich mit meinen latein am ende.
Meine bitte ich hoffe sie ist nicht unverschämt kann sich einer von euch erbarmen und mir die funktion in meine db einbauen?
grüße
m4xx
[Anhang gelöscht durch Administrator]
das habe ich gefunden:
aber wie und wo muss ich das eintragen?
Um aus Access heraus Emails mit Anhang zu versenden bedient man sich der Outlook Automation. Nachfolgend ein Beispiel das ich beim Aufräumen der Festplatte gefunden habe und zu schade ist zum Löschen.
Folgende Prozedur in ein Modul kopieren:
Public Sub SendMailOutlook(mailTo As String, Subject As String, Body As String, mailAttach As String)
Dim objOutlook As Object
Dim objOutlookMsg As Object
Dim objOutlookAttach As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
With objOutlookMsg
.To = mailTo
.Subject = Subject
.Body = Body
End With
Set objOutlookAttach = objOutlookMsg.Attachments.Add(mailAttach)
objOutlookMsg.Send
Set objOutlook = Nothing
Set objOutlookMsg = Nothing
End Sub
Der Aufruf ist z.B. wie folgt:
Dim To As String, Body As String
Dim Subject As String, Attachment As String
To = "info@DeineSeite.de"
Body ="Anbei Rechnung, bitte prüfen.\n\nGruß Mustermann"
Subject = "Rechnung Nr. 4711 - Mustermann GmbH"
Attachment = "c:\testdoc.zip"
Call SendMailOutlook(To, Body, Subject, Attachment)
Es handelt sich bei dem Code übrigends um ein Late Binding, d.H. es ist kein Verweiss auf Outlook notwendig.
Hallo,
anbei. Die vorbereitende Verarbeiten/Prüfung der EMail-Daten (welche Email-Adresse aus der Tabelle, wie soll die Anrede zusammengesetzt werden, etc. ) ist nicht ausreichend eingebaut...
Ratschläge:
-- Auf Sonder- und Leerzeichen in Namen DRINGEND verzichten.
-- Möglichst keine Makros verwenden
-- mit ID-Feldern (z. B. bei "ZH" ) arbeiten
-- Feldnamen eindeutig und Tabellenbezogen wählen
-- Bei weiterem Ausbau der DB Tabellen normalisieren (z. B "Verein", "Referenten" in weitere Stammtabelle auslagern, z. B. "tblKontaktFunktionen", desgl. für "Sonstiges", was auch immer das sein soll)
[Anhang gelöscht durch Administrator]
Hallo super danke!
Ich habe gerade eine Grundsatz Gedanken laufen
und zwar.
Ich brauche eine Adressdatenbank wo alle Adressen aktuell sind.(vieleicht auch im internet wo mehrere leute drauf zugreifen können).
dann soll ich aus der db, adressen filtern können mit den ich dann einen serienbrief erstellen kann
sowie serien emails.
Weiters wäre auch nicht schlecht wenn ich im outlook die adressen bzw die abfrage Ergebnisse (zb Freunde oder Vereinsmitglieder) auch zur verfügung hätte.
Denn es kommt vor das ich ein mail an eine gruppe weiterleiten muss.
Das ist wol eine monster datenbank.
Glaubst du ist sowas zu realisieren?
Mit Freundlichen Grüßen
m4xx
Hallo,
1) "Adressdatenbank wo alle Adressen aktuell sind" die Adressen sind so aktuell, wie sie gepflegt werden.
2) " auch im internet " siehe http://www.donkarl.com/?FAQ8.6
3) "wo mehrere leute drauf zugreifen können" Im LAN gar kein Problem, im WAN siehe Punkt 2
4) "im outlook die adressen bzw die abfrage Ergebnisse (zb Freunde oder Vereinsmitglieder) auch zur verfügung hätte" ist kein (größeres) Problem, setzt aber schon ein paar tiefere Kenntnisse über VBA und Outlook-Objektmodell voraus
5) "Denn es kommt vor das ich ein mail an eine gruppe weiterleiten muss." wäre auch in Access nicht schwer zu realisieren
6) "monster datenbank" naja, unter "Monster" versteh ich was Anderes ;-) Wichtig ist, wie überall, eine schlüssige Konzeption
7) "ist sowas zu realisieren?" klar, siehe Punkt 1 -5
Danke DF6GL
zu punkt 4 ok dan brauch ich an VBA Kurs und ein jahr erfahrung lol
zu Punkt 6 für mich schon monster :-)
was glaubst du wienlange programmiert man an so einen projekt?
edit: ein Profi
Hallo,
"wie lange programmiert man an so einen projekt? "
naja, das kommt ganz drauf an, wie umfangreich das Ding werden soll und vor allen Dingen, auf welches Konzept man sich einigt.
http://www.access-o-mania.de/forum/index.php?topic=6969.0
Hallo,
wie Franz schon geschrieben hat ist das eine Frage vom Konzept.
Einfache Vereinsverwaltungen gibt es teilweise bei den Banken (mit den Hintergedanken das online-Banking gemacht wird).
Oft reichen die Programme aus und sind je nach Bank kostenlos oder zumindestens gesponsert und für wenig Geld zu haben.
Es gibt auch sehr umfangreiche Möglichkeiten, die aber entsprechend Kosten.
Gruß
Johann
eine frage hab ich noch
ich habe eine Verknüpfung zwischen outlook und access gemacht nur leider werden nicht alle felder von outlook angezeigt wie kann ich das erreichen das alle felder zb 2. emailadresse übertragen werden?
mfg
m4xx
Hallo,
mit einer Verknüpfung der Outlookkontakte erreichst Du das nicht.
Da muss Outlook-Automation bemüht werden :
mit folgenden Code können die Eigenschaften (--> u. a. die "Kontakt-Felder") eines Kontaktes im Direktfenster ausgegeben werden:
Sub PrintOLContactProperties()
Dim appOutlook As Object
Dim objItem As Object
Dim nspMapi As Outlook.NameSpace
Dim folMapi As Outlook.MAPIFolder
Dim itmAll As Outlook.Items
Dim itmReal As Outlook.Items
Dim itmContacts As Outlook.ContactItem
Dim strContactFilter As String
Const olFolderContacts = 10
Set appOutlook = CreateObject("Outlook.Application")
Set nspMapi = appOutlook.GetNamespace("MAPI")
Set folMapi = nspMapi.GetDefaultFolder(olFolderContacts )
Set itmAll = folMapi.Items
strContactFilter = "[MessageClass] = 'IPM.Contact'"
Set itmReal = itmAll.Restrict(strContactFilter)
For Each objItem In itmReal(1).ItemProperties 'ersten Kontakteintrag benutzen
Debug.Print objItem.Name
Next
' Ausgabe des Feldes "Name" für jeden Kontakt
For Each itmContacts In itmReal
Debug.Print itmContacts.FullName, itmContacts.FirstName, itmContacts.LastName, itmContacts.Email2Address
' hier Übernahme in z. B. eine Access-Tabelle
Next
Set appOutlook = Nothing
End Sub