Überwachung Zellwerte und versandt von mails via Lotus Notes bei Unterschreitung
 

Guten Tag zusammen.

Ich habe folgenden Fall, den ich nicht ohne Hilfe von Spezialisten
lösen kann.
In anderen Themen konnte ich ebenfalls keine Lösung finden, deshalb
meine Bitte um Hilfe hier:

Ich habe eine Tabelle, in der ich in einer Spalte überwache, wieviel
Tage von einem vorgegebenen Datum übrig bleiben.
Jeder Eintrag in der Spalte hat einen Kümmerer, der mit User-ID, bzw.
email-Adresse angegeben ist.
Diese Überwachung gilt für (derzeit) 1000 Zeilen.
Ist der Wert in einer Zelle kleiner als 10, so soll ein
"Erinnerungsemail" verschickt werden. Das Mailsystem dabei ist Notes
V5, bzw. V6.
Idealerweise würde die emailadresse auch direkt aus der Zelle des
Kümmerers übernommen werden.

Ich hoffe, die Problemstellung habe ich deutlich genug formuliert,
ansonsten bitte ich um Nachfragen.

Kann mir vielleicht jemand bei der Lösung des Problems helfen?
Vielen Dank an die Experten schon mal im Voraus.

Gruß, Christian

Überwachung Zellwerte und versandt von mails via Lotus Notes bei Unterschreitung
 

kawmc schrieb unlängst:
Ich habe folgenden Fall, den ich nicht ohne Hilfe von Spezialisten
lösen kann.
In anderen Themen konnte ich ebenfalls keine Lösung finden, deshalb
meine Bitte um Hilfe hier:
Ich habe eine Tabelle, in der ich in einer Spalte überwache, wieviel
Tage von einem vorgegebenen Datum übrig bleiben.
Jeder Eintrag in der Spalte hat einen Kümmerer, der mit User-ID, bzw.
email-Adresse angegeben ist.
Diese Überwachung gilt für (derzeit) 1000 Zeilen.
Ist der Wert in einer Zelle kleiner als 10, so soll ein
"Erinnerungsemail" verschickt werden. Das Mailsystem dabei ist Notes
V5, bzw. V6.
Idealerweise würde die emailadresse auch direkt aus der Zelle des
Kümmerers übernommen werden.

Ich würde zunächst täglich die Spalte mit ZÄHLENWENN(...;"<10") auswerten.
Falls 0, Zeilen ermitteln und Mail verschicken (darin bin ich nicht
bewandert). Nicht vergessen, erfolgreich verschickte Mails in den Zeilen zu
kennzeichnen und nicht erneut zu berücksichtigen. Daher wahrscheinlich statt
ZÄHLENWENN eher =SUMMENPRODUKT((Resttage<10)*(Status="verschickt") ).
--
Hallo + Gruss Alexander (WinXP Home SP1 - Office 2000 SP3) 6----5----7-2

Überwachung Zellwerte und versandt von mails via Lotus Notes bei Unterschreitung
 

Hallo Christian,

bei mir (Office XP, Win XP Pro, Notes 6.5) löse ich derartige Sachen
mit einem Code, den ich mal in einem alten Posting von Stefan Onken
gefunden habe:

Dim sh As Object
Set sh = CreateObject("Shell.Application")
sh.ShellExecute "mailto:" & " _
& "?Subject=" & "Betreff" _
& "&Body= Text"

Gruss, Kai

Überwachung Zellwerte und versandt von mails via Lotus Notes bei Unterschreitung
 

Hallo, Alexander,
Prima, die schnelle Rückmeldung.
Auch wenn es mich im Gesamtproblem nur ein Stück weiterbringt, kann
ich doch den Hinweis auf das Summenprodukt sehr gut gebrauchen; daran
hatte ich dabei noch nicht gedacht.
Vielen Dank!

Überwachung Zellwerte und versandt von mails via Lotus Notes bei Unterschreitung
 

Hallo, Kai,
auch Dir danke für die schnelle Rückmeldung.
Was genau bewirkt dieses VBA Projekt?
Wird -egal in welcher Zelle die Bedingung erreicht ist- ein mail
verschickt?
Und muass ich nicht auch die Bedingung, wann das Ereignis gestartet
wird, eingebunden werden???

Kannst Du mir da nocheinmal weiterhelfen?
Vielen Dank.
Christian

Überwachung Zellwerte und versandt von mails via Lotus Notes bei Unterschreitung
 

Hallo Christian,

der angebene Code öffnet dein Emailprogramm und erstellt eine neue
Mail mit der angegebenen Parametern aus "mailto:", "subject" und
"body". Den Senden-Button musst du dann leider noch selbst klicken.

Zu der Bedingung "Wert10" als Auslöser für das Erstellen der Email
(Annahme: die Bedingung steht in Spalte A, Emailadresse in Spalte B,
muss halt evtl. von dir noch angepasst werden):

Sub ÜberprüfenUndEmailErstellen()
Dim sh As Object
Dim IntZähler As Integer
For IntZähler = 1 To Cells(Rows.Count, 1).End(xlUp).Row '1. Zeile bis
letzte Zeile mit bezogen auf Spalte A
If Cells(IntZähler, 1).Value < 10 Then
Set sh = CreateObject("Shell.Application")
sh.ShellExecute "mailto:" & Cells(IntZähler, 2) _
& "?Subject=" & "Betreff" _
& "&Body= Text"
End If
Next IntZähler

Gruss, Kai