Mal was wirklich wichtiges :-) WM 2006 Button

oO hi erst mal !

Der Codes ja wirklich klein wie lange hast du gebraucht den zu schreiben??

Egal trotzdem danke^^

mfg DKaj :pint:

sehr schön

danke :pint:

Na dann grüß dein Kollegen , gut Arbeit

mfg :pint:

Dankeschön!

Jeder von euch weiß, daß solche Schaltflächenmails virengleich durch die Netzwerke schwappen. Deshalb habe ich mir den Code einmal kurz vorgenommen und ein paar kleine Modifikationen vorgenommen:

1. Die Mehrfacheintragungsmöglichkeit habe ich gestoppt, indem ich ein Feld im Profildokument setze.
2. Ich habe allen Terminen eine Kategorie (WM2006) gegeben.
3. Ich habe aus den Einträgen alle Tabulatoren gelöscht und die Einträge für die bessere Übersichtlichkeit ein wenig gekürzt
4. Ich habe alle Variablen deklariert (Option Explicit)

Damit hat man nach der WM eine leichte Möglichkeit eine Schaltfläche zu versenden, die diese Termine alle wieder löscht.

Und so sieht der Code dann aus:
(Options)
Option Explicit

(Declarations)
Dim session As NotesSession
Dim db As NotesDatabase
Dim profile As NotesDocument

Sub Click(Source As Button)
Set session = New NotesSession
Dim boxtitel As String
Dim mail As Variant
boxtitel = "Spielplan Fussball WM 2006"
Dim ms As String, mf As String ' Text Server, Maildatei
Dim mst As String, msg As String ' für Fehlermeldung

If Not session.international.IsDateDMY Then
Beep
Beep
Messagebox "Die Funktion wird nur ausgeführt, wenn das Datumsformat des Systems ""tag.monat.jahr"" ist. " & Chr(10) & Chr(10) &_
"Das Format kann ggf. in den Systemeinstellungen geändert werden (... Regional Options --> Germany ...).", 16 , "Abbruch: " & Boxtitel
Exit Sub
End If

mail=Evaluate("@MailDbName")
If mail(1) = "" Then
Beep
Messagebox "Sie haben keine Maildatenbank in Ihrem aktuellen Location-Document spezifiziert!", 48, boxtitel
Exit Sub
End If

ms = mail(0)
mf = mail(1)

Set db = session.GetDatabase (ms,mf)
If ms = "" Then
mst = "local"
Else
Dim sn As New NotesName(ms)
mst = sn.common
End If

msg = "Die Maildatenbank konnte nicht geöffnet werden (" & mst & " : " & mf &_
"). Überprüfen Sie die Eintragungen in Ihrem aktuellen Arbeitsumgebungs-Dokument."

If db Is Nothing Then
Beep
Messagebox msg , 48, boxtitel
Exit Sub
End If
If Not(db.isopen) Then
Beep
Messagebox msg , 48, boxtitel
Exit Sub
End If
Set profile=db.GetProfileDocument("CalendarProfile")
If profile.HasItem("WM2006") Then
msg = "Sie haben die Termine bereits eingetragen - Aktion abgebrochen."
Messagebox msg , 48, boxtitel
Exit Sub
End If

Call addgame("09.06.2006","18:00:00 CEDT","19:45:00 CEDT","1 / Gr A: Deutschland - Costa Rica","","München")
Call addgame("09.06.2006","21:00:00 CEDT","22:45:00 CEDT","2 / Gr A: Polen - Ecuador","","Gelsenkirchen")
Call addgame("10.06.2006","15:00:00 CEDT","16:45:00 CEDT","3 / Gr B: England - Paraguay","","Frankfurt")
Call addgame("10.06.2006","18:00:00 CEDT","19:45:00 CEDT","4 / Gr B: Trinidad&T. - Schweden","","Dortmund")
Call addgame("10.06.2006","21:00:00 CEDT","22:45:00 CEDT","5 / Gr C: Argentinien - Elfenbeinküste","","Hamburg")
Call addgame("11.06.2006","15:00:00 CEDT","16:45:00 CEDT","6 / Gr C: Serbien&M. - Niederlande","","Leipzig")
Call addgame("11.06.2006","18:00:00 CEDT","19:45:00 CEDT","7 / Gr D: Mexiko - Iran","","Nürnberg")
Call addgame("11.06.2006","21:00:00 CEDT","22:45:00 CEDT","8 / Gr D: Angola - Portugal","","Köln")
Call addgame("12.06.2006","21:00:00 CEDT","22:45:00 CEDT","9 / Gr E: Italien - Ghana","","Hannover")
Call addgame("12.06.2006","18:00:00 CEDT","19:45:00 CEDT","10 / Gr E: USA - Tschechien","","Gelsenkirchen")
Call addgame("13.06.2006","21:00:00 CEDT","22:45:00 CEDT","11 / Gr F: Brasilien - Kroatien","","Berlin")
Call addgame("12.06.2006","15:00:00 CEDT","16:45:00 CEDT","12 / Gr F: Australien - Japan","","Kaiserslautern")
Call addgame("13.06.2006","18:00:00 CEDT","19:45:00 CEDT","13 / Gr G: Frankreich - Schweiz","","Stuttgart")
Call addgame("13.06.2006","15:00:00 CEDT","16:45:00 CEDT","14 / Gr G: Südkorea - Togo","","Frankfurt")
Call addgame("14.06.2006","15:00:00 CEDT","16:45:00 CEDT","15 / Gr H: Spanien - Ukraine","","Leipzig")
Call addgame("14.06.2006","18:00:00 CEDT","19:45:00 CEDT","16 / Gr H: Tunesien - Saudi-Arabien","","München")
Call addgame("14.06.2006","21:00:00 CEDT","22:45:00 CEDT","17 / Gr A: Deutschland - Polen ","","Dortmund")
Call addgame("15.06.2006","15:00:00 CEDT","16:45:00 CEDT","18 / Gr A: Ecuador - Costa Rica","","Hamburg")
Call addgame("15.06.2006","18:00:00 CEDT","19:45:00 CEDT","19 / Gr B: England - Trinidad&T.","","Nürnberg")
Call addgame("15.06.2006","21:00:00 CEDT","22:45:00 CEDT","20 / Gr B: Schweden - Paraguay","","Berlin")
Call addgame("16.06.2006","15:00:00 CEDT","16:45:00 CEDT","21 / Gr C: Argentinien - Serbien&M.","","Gelsenkirchen")
Call addgame("16.06.2006","18:00:00 CEDT","19:45:00 CEDT","22 / Gr C: Niederlande - Elfenbeinküste","","Stuttgart")
Call addgame("16.06.2006","21:00:00 CEDT","22:45:00 CEDT","23 / Gr D: Mexiko - Angola","","Hannover")
Call addgame("17.06.2006","15:00:00 CEDT","16:45:00 CEDT","24 / Gr D: Portugal - Iran","","Frankfurt")
Call addgame("17.06.2006","21:00:00 CEDT","22:45:00 CEDT","25 / Gr E: Italien - USA","","Kaiserslautern")
Call addgame("17.06.2006","18:00:00 CEDT","19:45:00 CEDT","26 / Gr E: Tschechien - Ghana","","Köln")
Call addgame("18.06.2006","18:00:00 CEDT","19:45:00 CEDT","27 / Gr F: Brasilien - Australien","","München")
Call addgame("18.06.2006","15:00:00 CEDT","16:45:00 CEDT","28 / Gr F: Japan - Kroatien","","Nürnberg")
Call addgame("18.06.2006","21:00:00 CEDT","22:45:00 CEDT","29 / Gr G: Frankreich - Südkorea","","Leipzig")
Call addgame("19.06.2006","15:00:00 CEDT","16:45:00 CEDT","30 / Gr G: Togo - Schweiz","","Dortmund")
Call addgame("19.06.2006","21:00:00 CEDT","22:45:00 CEDT","31 / Gr H: Spanien - Tunesien","","Stuttgart")
Call addgame("19.06.2006","18:00:00 CEDT","19:45:00 CEDT","32 / Gr H: Saudi-Arabien - Ukraine","","Hamburg")
Call addgame("20.06.2006","16:00:00 CEDT","17:45:00 CEDT","33 / Gr A: Ecuador - Deutschland","","Berlin")
Call addgame("20.06.2006","16:00:00 CEDT","17:45:00 CEDT","34 / Gr A: Costa Rica - Polen ","","Hannover")
Call addgame("20.06.2006","21:00:00 CEDT","22:45:00 CEDT","35 / Gr B: Schweden - England","","Köln")
Call addgame("20.06.2006","21:00:00 CEDT","22:45:00 CEDT","36 / Gr B: Paraguay - Trinidad&T.","","Kaiserslautern")
Call addgame("21.06.2006","21:00:00 CEDT","22:45:00 CEDT","37 / Gr C: Niederlande - Argentinien","","Frankfurt")
Call addgame("21.06.2006","21:00:00 CEDT","22:45:00 CEDT","38 / Gr C: Elfenbeinküste - Serbien&M.","","München")
Call addgame("21.06.2006","16:00:00 CEDT","17:45:00 CEDT","39 / Gr D: Portugal - Mexiko","","Gelsenkirchen")
Call addgame("21.06.2006","16:00:00 CEDT","17:45:00 CEDT","40 / Gr D: Iran - Angola","","Leipzig")
Call addgame("22.06.2006","16:00:00 CEDT","17:45:00 CEDT","41 / Gr E: Tschechien - Italien","","Hamburg")
Call addgame("22.06.2006","16:00:00 CEDT","17:45:00 CEDT","42 / Gr E: Ghana - USA","","Nürnberg")
Call addgame("22.06.2006","21:00:00 CEDT","22:45:00 CEDT","43 / Gr F: Japan - Brasilien","","Dortmund")
Call addgame("22.06.2006","21:00:00 CEDT","22:45:00 CEDT","44 / Gr F: Kroatien - Australien","","Stuttgart")
Call addgame("23.06.2006","21:00:00 CEDT","22:45:00 CEDT","45 / Gr G: Togo - Frankreich","","Köln")
Call addgame("23.06.2006","21:00:00 CEDT","22:45:00 CEDT","46 / Gr G: Schweiz - Südkorea","","Hannover")
Call addgame("23.06.2006","16:00:00 CEDT","17:45:00 CEDT","47 / Gr H: Saudi-Arabien - Spanien","","Kaiserslautern")
Call addgame("23.06.2006","16:00:00 CEDT","17:45:00 CEDT","48 / Gr H: Ukraine - Tunesien","","Berlin")
Call addgame("24.06.2006","17:00:00 CEDT","18:45:00 CEDT","49 / Sieger Gr A - Zweiter Gr B","","München")
Call addgame("24.06.2006","21:00:00 CEDT","22:45:00 CEDT","50 / Sieger Gr C - Zweiter Gr D","","Leipzig")
Call addgame("25.06.2006","17:00:00 CEDT","18:45:00 CEDT","51 / Sieger Gr B - Zweiter Gr A","","Stuttgart")
Call addgame("25.06.2006","21:00:00 CEDT","22:45:00 CEDT","52 / Sieger Gr D - Zweiter Gr C","","Nürnberg")
Call addgame("26.06.2006","17:00:00 CEDT","18:45:00 CEDT","53 / Sieger Gr E - Zweiter Gr F","","Kaiserslautern")
Call addgame("26.06.2006","21:00:00 CEDT","22:45:00 CEDT","54 / Sieger Gr G - Zweiter Gr H","","Köln")
Call addgame("27.06.2006","17:00:00 CEDT","18:45:00 CEDT","55 / Sieger Gr F - Zweiter Gr E","","Dortmund")
Call addgame("27.06.2006","21:00:00 CEDT","22:45:00 CEDT","56 / Sieger Gr H - Zweiter Gr G","","Hannover")
Call addgame("30.06.2006","17:00:00 CEDT","18:45:00 CEDT","57 / Sieger Spiel 49 - Sieger Spiel 50","","Berlin")
Call addgame("30.06.2006","21:00:00 CEDT","22:45:00 CEDT","58 / Sieger Spiel 53 - Sieger Spiel 54","","Hamburg")
Call addgame("01.07.2006","17:00:00 CEDT","18:45:00 CEDT","59 / Sieger Spiel 55 - Sieger Spiel 56","","Gelsenkirchen")
Call addgame("01.07.2006","21:00:00 CEDT","22:45:00 CEDT","60 / Sieger Spiel 51 - Sieger Spiel 52","","Frankfurt")
Call addgame("04.07.2006","21:00:00 CEDT","22:45:00 CEDT","61 / Sieger Spiel 57 - Sieger Spiel 58","","Dortmund")
Call addgame("05.07.2006","21:00:00 CEDT","22:45:00 CEDT","62 / Sieger Spiel 59 - Sieger Spiel 60","","München")
Call addgame("08.07.2006","21:00:00 CEDT","22:45:00 CEDT","63 / Verlierer Spiel 61 - Verlierer Spiel 62","","Stuttgart")
Call addgame("09.07.2006","21:00:00 CEDT","22:45:00 CEDT","64 / Sieger Spiel 61 - Sieger Spiel 62","","Berlin")

Beep
Messagebox "Die Spieltage für die WM 2006 wurden in Ihren Kalender eingetragen." & Chr(10) & Chr(10) &_
"Bitte diese Funktion nicht noch einmal aufrufen, da sonst die Spieltage doppelt eingetragen werden!", 64, boxtitel

profile.WM2006="1"
Call profile.Save(False,False)
End Sub

Sub addgame(strdate As String, strdatestart As String,strdateend As String, strsubject As String, BookFreeTime As String, Location As String)
Dim dt1 As NotesDateTime
Dim dt2 As NotesDateTime
Dim dt3 As NotesDateTime
Dim dt4 As NotesDateTime
Dim doc As NotesDocument

Set doc = New NotesDocument(db)
Set dt1 = New NotesDateTime(strdate &" " & strdatestart)
Set dt2 = New NotesDateTime(strdate &" " & strdateend)
Set dt3 = New NotesDateTime(strdatestart)
Set dt4 = New NotesDateTime(strdateend)

doc.Subject = strsubject
doc.Form = "Appointment"
doc.AppointmentType = "0"
Set doc.CalendarDateTime = dt1
Set doc.StartDateTime = dt1
Set doc.StartDate = dt1
Set doc.StartTime = dt3
Set doc.EndTime = dt4
doc.CHAIR = session.UserName
doc.Duration = 1
Set doc.EndDateTime = dt2
doc.From = session.UserName
doc.ExcludefromView = "D"
doc.ORGTABLE = "C0"
doc.Broadcast = ""
doc.Location=Location
doc.Categories = "WM2006"
Call doc.AppendItemValue("_ViewIcon", 70)
doc.BookFreetime = BookFreeTime
Call doc.AppendItemValue("$BusyName", session.UserName)
Call doc.AppendItemValue("$BusyPriority", "1")
Call doc.AppendItemValue("$NoPurge", dt2)
Call doc.AppendItemValue("$PublicAccess", "1")
doc.save True, True
Print strsubject & " wurde in Ihren Kalender eingetragen."

End Sub

ENDLICH!
Noch nie hab ich hier was sinnvolles gelesen aber jetzt bin auch ich von diesem Forum überzeugt.
:-o :-o :laola:

ich bin begeistert - Prost :pint:

Und hier kommt der Code für die Löschung der Termine nach der WM.

Ganz nebenbei: der Code fängt noch einen gar nicht so seltenen Fehler der Benutzer ab. Wenn sich jemand einen Ordner mit dem Namen MEETINGS anlegt, funktionieren einige Dinge in der Terminverwaltung (wiederholende Termine, Verschiebungen u.ä) nicht richtig.

Sub Click(Source As Button)
Dim session As NotesSession
Dim db As NotesDatabase
Dim profile As NotesDocument
Dim doc As NotesDocument
Dim deldoc As NotesDocument
Dim view As NotesView
Dim Loeschen As Variant
Dim counter As Long
Dim counterAll As Long
Dim boxtitel As String
Dim mail As Variant
Dim ms As String, mf As String ' Text Server, Maildatei
Dim mst As String, msg As String ' für Fehlermeldung

Set session = New NotesSession
boxtitel = "Spielplan Fussball WM 2006"

mail=Evaluate("@MailDbName")
If mail(1) = "" Then
Beep
Messagebox "Sie haben keine Maildatenbank in Ihrem aktuellen Arbeitsumgebungs-Dokument spezifiziert!", 48, boxtitel
Exit Sub
End If

ms = mail(0)
mf = mail(1)

Set db = session.GetDatabase (ms,mf)
If ms = "" Then
mst = "local"
Else
Dim sn As New NotesName(ms)
mst = sn.common
End If

msg = "Die Maildatenbank konnte nicht geöffnet werden (" & mst & " : " & mf &_
"). Überprüfen Sie die Eintragungen in Ihrem aktuellen Arbeitsumgebungs-Dokument."

If db Is Nothing Then
Beep
Messagebox msg , 48, boxtitel
Exit Sub
End If
If Not(db.isopen) Then
Beep
Messagebox msg , 48, boxtitel
Exit Sub
End If
Set profile=db.GetProfileDocument("CalendarProfile")
If profile.HasItem("WM2006") Then
Call profile.RemoveItem("WM2006")
Messagebox "Item WM2006 Removed" , 48, boxtitel
Call profile.Save(False,False)
End If
Set view=db.GetView("Meetings")
If view Is Nothing Then
Messagebox "In Ihrer Mailbox fehlt der Standard-View MEETINGS für Termine", 48, boxtitel
Elseif view.IsFolder Then
Messagebox "Sie haben einen Ordner mit dem Titel MEETINGS angelegt. Bitte benennen Sie den Ordner um, damit Standardfunktionen in Notes funktionieren",48,boxtitel
Else
counterAll=0
counter=0
Set doc=view.GetFirstDocument
While Not doc Is Nothing
If doc.HasItem("Categories") Then
Loeschen=False
If doc.Categories(0)="WM2006" And Ubound(doc.Categories)=0 Then
Set deldoc=doc
Loeschen=True
End If
End If
Set doc=view.GetNextDocument(doc)
counterAll=counterAll+1
If Loeschen Then
counter=counter+1
Call deldoc.Remove(True)
End If
Print "Inspected: " & Cstr(counterAll) & " / Deleted: " & Cstr(counter)
Wend
If counter>0 Then Call view.Refresh
Messagebox "Es wurden " & Cstr(counter) & " Termine mit der einzigen Kategorie WM2006 entfernt" , 48, boxtitel
End If
End Sub

noch ne kleine verbesserung, die ja eh nicht mehr funktioniert...und zwar erscheint mit dem neuen code noch immer im popup der hinweis:
"Bitte diese Funktion nicht noch einmal aufrufen, da sonst die Spieltage doppelt eingetragen werden!"

den noch rausnehmen und schon ist das ding echt der hammer...

danke nochmal

Gibt es eine Möglichkeit diese Termine als Privat markieren zu lassen ?

Danke und Gruss

Setz das Feld "OrgConfidential" auf "1"

Erst einmal ein großes Dankeschön für diese tolle Arbeit.

Einige Fragen habe ich aber:

Ich habe das Script so geändert, dass BookFreeTime auf "1" gesetzt wird und OrgConfidential ebenso.

Trotzdem wird der resultierende Kalendereintrag dann bei Besprechungseinladungen als belegt angezeigt.

Ausserdem geht die Löschfunktion davon aus, dass durch das script Kalendereinträge des AppointmentType "3" erstellt worden sind, das script erstellt jedoch welche vom Typ "0" (also normale Termine).

Wie bekomme ich es jetzt hin, dass die Spiel-Termine als freie Zeit eingetragen werden? Wo mache ich hier den Denkfehler?

Die Löschfunktion habe ich jetzt so hingebogen, dass nicht in der Ansicht "meetings" sondern "Calendar" gesucht wird, das funzt auch so wie ich will.

Meine Umgebung: LoNo 6.5.4 Clientseitig, Domino 6.5.5 Serverseitig

Nochmal: vielen Dank für diese Arbeit.

Viele Grüße

Thomas

Du kannst da viel basteln. Ich habe das Löschen extra auf die Ansicht MEETINGS gestellt (und nicht etwa Meetings by Category, obwohl das viel schneller wäre), damit der Button auch noch für 4er und 5er Clients funktioniert.

Also: Basteln gerne - Nebenwirkungen beachten.

Eine kleine Frage habe ich dennoch:
Wenn ich einen Termin (=Spiel) öffne, erscheint dies komischerweise bei mir danach als gesendete Mail????? Is das bei Euch auch so????

HAllo,

ich würde gerne ein Mail verschicken in dem so ein Button drin ist doch irgendwie bekomme ich das nicht hin. Creat - Hotspot - Button u. was mache ich dann?

Grüße, Jens