Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
In Access automatisch einmal eine Mail über Outlook versende
zurück: Hilfe, Bilder sprengen meine Datenbank! weiter: Access -VBA-Code um Excel-Tabelle in Excel speichern Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
ATHI
Gast


Verfasst am:
23. März 2009, 11:14
Rufname:


In Access automatisch einmal eine Mail über Outlook versende - In Access automatisch einmal eine Mail über Outlook versende

Nach oben
       Version: Office 2003

Hallo zusammen,
ich benötige Eure Hilfe. Ich habe in meiner Access Datenbank ein Feld mit einem End Datum. Dieses End Datum sagt bis wann eine Aufgabe beendet sein muss. Dazu habe ich eine Ampelfunktion eingebaut.
Code:
Private Sub End_Date_DK_AfterUpdate()
    Dim Bild As String
    Dim body_text As String
   
    Me![Duration Day's] = Me![End Date DK] - Me![Start Date DK]
    'sendeMail
    If Me!Traffic_light_function = True Then
        If Me!End_Date_DK <= DateAdd("m", 3, Date) And _
           Me!End_Date_DK > DateAdd("m", 2, Date) Then
            Bild = "Ampel grün.jpg"
            body_text = "<br>Bitte CIM Case Durchführung kontrollieren " & _
                        "und einplanen!<br>Es sind noch 3 Monate bis zum " & _
                        "Ablauf des DK End Dates!"
        End If
        If Me!End_Date_DK <= DateAdd("m", 2, Date) And _
           Me!End_Date_DK > DateAdd("m", 1, Date) Then
            Bild = "Ampel gelb.jpg"
            body_text = "<br>Achtung! Bitte achtet auf diesen CIM Case. " & _
                        "Dieser läuft in 2 Monaten ab.<br>Kontrolliert " & _
                        "bitte die Durchführung, sowie die Einplanung. " & _
                        "Setzt Euch mit Euren Ansprechpartnern in Verbindung!"
        End If
        If Me!End_Date_DK <= DateAdd("m", 1, Date) Then
            Bild = "Ampel rot.jpg"
            body_text = "<br>Achtung, Achtung! Das DK End Datum des CIM " & _
                        "Cases läuft in 1 Monat ab.<br>Wenn nicht schon " & _
                        "geschlossen, führt die restlichen SROs durch." & _
                        "<br>Ansonsten verlieren wir die Möglichkeit, " & _
                        "die Kosten von DK CIM erstattet zubekommen!"
        End If
        eMail_senden Bild, body_text
    End If
End Sub
Nun ist es ja so, dass jedesmal wenn die Ampelfunktion durch setzen eines Häkchens eingeschaltet ist und eine Ampelfunktion eintrifft, zB. wenn dass heutige Datum 3 Monate vor dem End Datum ist, würde jedesmal beim öffnen der Datenbank eine Mail mit folgenden Bodytext "Es sind noch 3 Monate bis zum Ablauf des DK End Dates" versendet werden. Dies soll aber verhintert werden. Zu jedem Status "grün" , "gelb" oder "rot" soll nur einmal eine Mail versendet werden. Dazu möchte ich eine Historie als Tabelle benutzen. Habe dazu in meiner Datenbank eine Tabelle erstellt mit folgenden Feldnamen:
CIM Case = Zahl
Turbine Type = Text
Who send = Text (eigene Mail Adresse)
to = Mail Adressen
cc = Mail Adressen
when = Datum
send yes_no = ob schon versendet ja oder nein
Status = entsprechender Bodytext der Ampelfunktion

Wie mache ich es jetzt, dass sobald der Fall einer Ampelfunktion eintrifft, 3 Monate vor End Datum, dass das Versenden in die Tabelle eingetragen wird und nach dem versenden und neu öffnen der Datenbank erst einmal überprüft wird, ob die erste Mail schon versendet wurde.

Freue mich über Eure Hilfe, denn ich komme nicht mehr weiter.
Gruss ATHI
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: IDENT automatisch vergeben lassen 2 ? 784 31. Aug 2006, 14:23
Gast IDENT automatisch vergeben lassen
Keine neuen Beiträge Access Tabellen & Abfragen: Neue Tabellen aus anderem Tabellen erstellen automatisch 13 Elton#62 1001 28. Aug 2006, 13:01
Nouba Neue Tabellen aus anderem Tabellen erstellen automatisch
Keine neuen Beiträge Access Tabellen & Abfragen: Spalten automatisch erstellen lassen 1 Premium 899 04. Jul 2006, 19:21
rita2008 Spalten automatisch erstellen lassen
Keine neuen Beiträge Access Tabellen & Abfragen: Einzelne Datensätze ins Outlook Adressbuch 0 Pando0ora 706 01. Jun 2006, 09:07
Pando0ora Einzelne Datensätze ins Outlook Adressbuch
Keine neuen Beiträge Access Tabellen & Abfragen: Problem mit Abfrage 4 Maximiliane 675 03. Apr 2006, 10:09
Maximiliane Problem mit Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Access rundet automatisch auf! 2 RazielX 4049 23. März 2006, 11:09
RazielX Access rundet automatisch auf!
Keine neuen Beiträge Access Tabellen & Abfragen: Datum automatisch einfügen 5 UPPsycho 898 09. März 2006, 20:58
jens05 Datum automatisch einfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Gruppierung einmal anders 1 Surviveartist 574 04. Nov 2005, 16:33
hereandnow Gruppierung einmal anders
Keine neuen Beiträge Access Tabellen & Abfragen: Eurowert automatisch zu DM-Wert in anderer Zelle umrechnen 4 Peter2 3109 08. Sep 2005, 16:34
Peter2 Eurowert automatisch zu DM-Wert in anderer Zelle umrechnen
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus Tab an andere Tab nur einmal im Monat anfuegen 3 Kaule 591 30. Aug 2005, 14:36
Willi Wipp Daten aus Tab an andere Tab nur einmal im Monat anfuegen
Keine neuen Beiträge Access Tabellen & Abfragen: Listenfeld, automatisch erster Datensatz markieren 1 Gast 2958 21. Jun 2005, 11:54
rita2008 Listenfeld, automatisch erster Datensatz markieren
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz automatisch kopieren??? 0 Edelschnitt 701 11. Mai 2005, 19:41
Edelschnitt Datensatz automatisch kopieren???
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA