Mailserveradresse ermitteln aus Address Book

[Alexis]

Hallo Forum,

für ein Service-Tool möchte ich es den Mitarbeitern es ermöglichen, Mails aus ihrer persönlichen Mailbox zu importieren für ihre Service-Fälle. Das klappt prima, solange der Mailserver immer gleich ist.

Da wir (leider) mehrere Mailboxen haben, ist das ganze komplizierter.
Wie kann ich nun aus dem Standard Address Book den Servernamen ermitteln? Ich kenne den Aufbau (Views etc.) nicht, so dass ich Eure Hilfe benötige.

Alexis

[Tode]

Formel ? LotusScript ? Web ? JavaScript ? Java ? sonstirgendwie ?

Formel:

@MailDBName

Script:

Dim mailDb as New NotesDatabase( "" , "" )
call mailDB.OpenMail()

...

Mehr Input = mehr / genauerer Output...

Tode

[Alexis]

Sorry für die Kürze!

Ergänzung:

Ich habe den Namen eines Users (Felix Unrat) und möchte programmtechnisch (aus dem Address Book) nun den Servernamen (Mailserver2/XYZ) ermitteln, der zu der Mailbox des Users gehört.

Einen Ansatz in LS wäre mir sehr recht.

Alexis

 

[Tode]

wenn der Benutzer, den Du suchst, selbst vor dem Rechner sitzt, dann habe ich Dir schon die Lösung gepostet. Wenn nicht, dann musst Du noch jede Menge andere Dinge abfangen, denn es ist ja sehr wahrscheinlich, dass der, der vor dem Rechner sitzt gar keine Berechtigung auf die Mailfile des anderen Benutzers hat.

Hiermit öffnest Du die Mailfile des gerade vor dem Rechner sitzenden Benutzers:
Dim mailDb as New NotesDatabase( "" , "" )
call mailDB.OpenMail()

Ach ja: Wenn Du das aus dem Adressbuch ausliest... was machst Du dann wenn der Benutzer gerade mit dem Laptop unterwegs ist und "Insel" eingestellt hat !?

mit der genannten Lösung ist das Schnurz, weil sie immer auf die aktuell in der arbeitsumgebung eingestellte Mailfile losgeht...

HTH
Tode

[Alexis]

Hallo Tode,

Dein Vorschlag ist schon i.O.. Aber mein Ansatz ist etwas anders:

Der User soll per Picklist Mails aussuchen, die danach automatisch in die Datenbank migriert werden:

Set collection = workspace.PickListCollection(1, True, Mailserver,Mailbox,Mailview,"Mail Selection","Select relevant Mails.")
...
Set copydoc = doc.CopyToDatabase( db )

Hintergrund dieser Lösung ist recht einfach: Trennung dieser Service-DB mit seinen zugehörigen Mails von der Mailbox mit all den restlichen Mails und deren Verwaltung.

Und dafür brauche ich halt den Server. Die Mailbox läßt sich übrigens aus anderen Kriterien errechnen und im Offline-Betrieb ist die Migration nicht erforderlich aber natürlich auch möglich, wenn man die Location des Replik kennt.

Vielleicht hast Du noch was im Köcher, was mir weiterhilft.

Alexis

[Tode]

mein geposteter Code ist absolut Sicher.... Du musst ihn nur erweitern:

Dim mailDb as New NotesDatabase( "" , "" )
call mailDB.OpenMail()

server = mailDB.Server
db = mailDB.FilePath

HTH
Tode

[Alexis]

Hallo Tode,

das war's.

Danke für Deine Hilfe.

Alexis