Hallo Leute,
und zwar soll ich mich als kleiner Praktikant mit folgendem Problem rumschlagen.
Habe mich auch schon umgesehen, aber irgendwie noch nichts geeignetes gefunden.
Wir haben hier ein Reklamationsdatenbank zurzeit noch in Access. Dort werden alle zuständigen Mitarbeiter per Mail mit Worddokument informiert und prüfen dann die Reklamation. Prüfer schicken Prüfbericht dann zurück....
Bei Umstellung der DB auf Notes habe ich folgendes Problem.
Ein Teil der Mitarbeiter hat Notes und ein Teil leider noch nicht (Auslandsstandorte)
User mit Notes tragen Prüfbericht demnächst direkt in die Datenbank.
Wie kriege ich das aber am besten hin, dass ich die Nicht Notes-User informiere. Ich habe mir das bislang so gedacht, das ich die Reklamationmaske (siehe Bild) in ein Worddokument importiere und dieses dann per Mailanhang sende. Oder gibt’s es da noch einfachere bzw. bessere Möglichkeiten.
Ich habe mich mal mit einem Wordscript probiert, welches ich in der Sandbox gefunden (
http://www-10.lotus.com/ldd/sandbox.nsf/ByApplicationName/39d365d1d269d5a588256af40051d9bb?OpenDocument ) habe. Aber leider bekomme ich das überhaupt nicht hin, dass er Werte aus meiner Maske übernimmt. Habe zum probieren mal den Namen eines Feldes ausgetauscht, z.B adress gegen Kunde aus meiner Maske, auch die Textmarke umbenannt, aber leider klappt es nicht.
Script
Here is the code for creating a new Word document with form fields and updating the form fields with predefined values.
If you are in a UIDcument it is very easy to substitue the predefined values with variables/fields from the UIDocument
Dim s As New notessession
Dim todaydate As New notesdatetime("Today")
Dim word As Variant
Dim wordoc As Variant
Dim todaysdate As String
Dim orderid As String
Dim producedby As String
Dim storeid As String
Dim customername As String
Dim address As String
Dim citytown As String
Dim postcode As String
Dim daytimeno As String
Dim eveningno As String
'Predefined values: (replace with field values from uidoc)
todaysdate = todaydate.localtime
orderid = "2183763248"
producedby = s.username
storeid = "12345"
customername = "John Doe"
address = "Apartment 5c, 5 Test Avenue"
citytown = "Testtown"
postcode = "XX5 5XX"
daytimeno = "1234567890"
eveningno = "0987654321"
'Create the Word object:
Set word = CreateObject("Word.Application") 'Create Word object
Call word.documents.add("Return and Uplift.dot") 'Create a new document based on the template "Return and Uplift.Dot"
Set worddoc = word.activedocument 'Get a handle for the active document
'Assign the field values:
worddoc.FormFields(1).result = todaysdate
worddoc.FormFields(2).result = orderid
worddoc.FormFields(3).result = producedby
worddoc.FormFields(4).result = storeid
worddoc.FormFields(5).result = customername
worddoc.FormFields(6).result = address
worddoc.FormFields(7).result = citytown
worddoc.FormFields(8).result = postcode
worddoc.FormFields(9).result = daytimeno
worddoc.FormFields(10).result = eveningno
worddoc.saveas(customername) 'save the document with the filename of "John Doe.doc"
word.visible = True 'Comment this line if you don't want to show Word.
'word.quit 'remove comment if you want to close rather than show Word.
Könnt Ihr mir vielleicht ein paar Tipps geben.
