Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.de.excel,microsoft.public.excel.programming
|
|||
|
|||
Ü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 |
#2
Posted to microsoft.public.de.excel,microsoft.public.excel.programming
|
|||
|
|||
Ü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 |
#3
Posted to microsoft.public.de.excel,microsoft.public.excel.programming
|
|||
|
|||
Ü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 |
#4
Posted to microsoft.public.de.excel,microsoft.public.excel.programming
|
|||
|
|||
Ü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! |
#5
Posted to microsoft.public.de.excel,microsoft.public.excel.programming
|
|||
|
|||
Ü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 |
#6
Posted to microsoft.public.de.excel,microsoft.public.excel.programming
|
|||
|
|||
Ü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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Lotus Notes | Excel Discussion (Misc queries) | |||
open lotus notes | Excel Worksheet Functions | |||
Excel/Lotus Notes | Excel Programming | |||
Lotus Notes | Excel Programming | |||
E-mail using Lotus Notes | Excel Programming |