Access und Email

[m4xx]

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]

[m4xx]

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.

[DF6GL]

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]

[m4xx]

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

[DF6GL]

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

[m4xx]

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

[DF6GL]

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

[Jonny]

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

[m4xx]

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

[DF6GL]

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:

Code [Auswählen] Erweitern

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