Autor Thema: Internet Browser per Agent setzen  (Gelesen 1326 mal)

Offline t-bone

  • Frischling
  • *
  • Beiträge: 7
Internet Browser per Agent setzen
« am: 20.02.06 - 14:17:19 »
Hallo,
ich würde gerne einen Agenten schreiben, der per Mail verteilt wird und bei dem Empfänger im persönlichen Adressbuch den Standard Browser auf "Microsoft Internet Explorer" setzt.

Hat da jemand eine Idee bzw. einen Code ?

Danke!

Offline koehlerbv

  • Moderatoren
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Re: Internet Browser per Agent setzen
« Antwort #1 am: 20.02.06 - 15:45:47 »
Es wird Dir schwer fallen, einen Agent per Mail zu verteilen. Was Du aber machen kannst, wäre eine Schaltfläche per Mail zu versenden. Hier stellt sich die Frage: Wie sind Deine Programmierkenntnisse?

Alternativ kann man den Browser aber auch per Richtlinie setzen.

Bernhard

Offline t-bone

  • Frischling
  • *
  • Beiträge: 7
Re: Internet Browser per Agent setzen
« Antwort #2 am: 20.02.06 - 16:12:17 »
Hallo,
ich dachte auch an eine Schaltfläche....

Ich habe schon ein paar kleinere Sachen in Notes programmiert, bin aber noch ein Anfänger.

Offline koehlerbv

  • Moderatoren
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Re: Internet Browser per Agent setzen
« Antwort #3 am: 20.02.06 - 16:29:51 »
Wenn Du denn das nicht über eine Richtlinie machen willst, dann geht das auch simpel per LotusScript:

- DB NAMES.NSF lokal instantiieren
- Selbiges mit der View "Locations" machen
- Durch die View loopen und in jedem Dokument das Item "WebRetriever" auf "2" setzen und das LocationDoc speichern.

Mehr ist das nicht.

Bernhard

Offline Polarbaer

  • Aktives Mitglied
  • ***
  • Beiträge: 197
  • Geschlecht: Männlich
  • Whatever kills you, will not make you stronger!
Re: Internet Browser per Agent setzen
« Antwort #4 am: 20.02.06 - 17:39:45 »
Hi, ungefähr so....

Sub Click(Source As Button)
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim maildb As New NotesDatabase( "", "" )
   
   Set db = s.GetDatabase("","names.nsf")
   Set dc = db.AllDocuments
   Set doc = dc.GetFirstDocument
   
   
   Do While Not(doc Is Nothing)
      form = doc.form
      
      If form(0) = "Location" Then   
         
         doc.WebRetriever = "2"
         Call doc.save(True,False)     
         
      End If                             
      
      Set doc = dc.GetNextDocument(doc)         
   Loop         
   
End Sub

Offline grisu_stern

  • Frischling
  • *
  • Beiträge: 35
  • Geschlecht: Weiblich
    • spiel mit!
Re: Internet Browser per Agent setzen
« Antwort #5 am: 21.02.06 - 16:38:21 »
Hej,

danke polarbear.

Unser Leiter IT hatte heute genau diese Fragestellung an mich. Es funktioniert einwandfrei und hat mir Arbeit gespart  :D ;D ...script ist auch (noch) nicht so meine Welt.... 

Danke

Grüße
Tanja

Offline matze79

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 587
  • Ich liebe dieses Forum!
Re: Internet Browser per Agent setzen
« Antwort #6 am: 21.02.06 - 16:55:46 »
Diese Buttons sind immer so eine Sache. Nach meiner Erfahrung drückt nur die Hälfte der User ihn. Es ist sicherer und meist auch einfacher, solche Settings per Policy durchzudrücken.

matze
IBM Cerified System Administrator Lotus Notes and Domino 6/6.5
400 User, 10 Server, BES, Sametime und anderer Gimmicks

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz