Hallo!!
Ich habe da so ein problem, ich habe script geschrieben das Termine von Fahrzeugreservierung in den kalender Eintragen. Nun wird bei der Reservierung des PKW name, vorname u.s.w von der person die den PKW reserviert eingetragen und noch zusaätzlich muss sie den Fahrer angeben auch mit name, vorname u.s.w und nun muss ich wie eine einladung dieser person schicken oder direkt eintragen wie mache ich das, wer kann mir helfen
Nun Unten sieht ihr das script
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As New NotesDatabase ("","")
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim userName As New notesname(session.username)
Dim dbfilename As String
Dim dbserver As String
Dim value As Integer
Dim vondatum As String
Dim bisdatum As String
Call db.OpenMail
dbfilename=db.filepath
dbserver = db.server
value = Messagebox ("Soll die Fahrzeugreservierung " + Chr(10) + "in den Kalender eingetragen werden?", (4+32+0+0), "Fahrzeug Reservierung in den eigenen Kalender eintragen")
If (value = 6) Then
Set uidoc = ws.CurrentDocument
vondatum = uidoc.FieldGetText( "FRAbfahrtDatum" )
bisdatum = uidoc.FieldGetText( "FRAnkunftDatum" )
Print vondatum, bisdatum
Set uidoc = ws.ComposeDocument (dbserver,dbfilename,"Appointment")
Call uidoc.FieldSetText("Subject","Fahrzeug Reservierung")
Call uidoc.FieldSetText("StartDate",vondatum)
Call uidoc.FieldSetText("EndDate",bisdatum)
Call uidoc.FieldSetText("AppointmentType","2")
Call uidoc.Save()
Call uidoc.Close()
Messagebox ("Fahrzeugreservierung ist in den Kalender eingetragen")
Else
Messagebox ("Kalender wurde nicht verändert")
End If
End Sub
Danke euch schon im voraus
Madmission