Das Notes Forum

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: Bruce Willis am 14.02.11 - 18:15:16

Titel: Liste aus dem Profil holen
Beitrag von: Bruce Willis am 14.02.11 - 18:15:16
Hallo,

könnte bitte jemand sagen, wie ich die letze Zeile korrigieren soll, um einer Liste die Werte aus dem Profildokument zuzuweisen?

Gruß
Leo


Code
Dim profile As NotesDocument	
  Set profile =db.GetProfileDocument ("MeinProfil")
  Dim MeineListe List As String
  MeineListe= profile.MeinMehrwertFeld()
Titel: Re: Liste aus dem Profil holen
Beitrag von: koehlerbv am 14.02.11 - 18:23:58
Leo, Du buchtelst da zwei unterschiedliche Sachen zusammen: In dem Item Deines ProfileDocs steht ein Array (in der Formelsprache auch "Liste" genannt). Deine Variable ist aber eine List - das ist etwas gaaanz anderes.

Du musst den Inhalt des Items als in ein passendes variables Array übertragen:
Dim vMyArray As Variant
vMyArray = docProfile.Dein Feldname

HTH,
Bernhard
Titel: Re: Liste aus dem Profil holen
Beitrag von: Bruce Willis am 14.02.11 - 18:44:10
Hallo Bernhard,

vielen Dank für Deine super schnelle Antwort mit den Erklärungen!

Könntest Du bitte noch die Zeile schreiben, mit welcher ich vom Array zur List komme?
Oder ist es etwas mehr als eine?

Code
Dim profile As NotesDocument	
Set profile =db.GetProfileDocument ("MeinProfil")
Dim vMyArray As Variant
vMyArray = profile.MeinMehrwertFeld
Dim MeineListe List As String
MeineListe= ???

Gruß
Leo
Titel: Re: Liste aus dem Profil holen
Beitrag von: koehlerbv am 14.02.11 - 18:46:43
Das ist mehr als eine Zeile, weil eine List eine komplett andere Struktur ist. Und das steht in der DesignerHelp.

Wozu willst Du überhaupt eine List einsetzen? Und was willst Du als ListTags verwenden?

Bernhard
Titel: Re: Liste aus dem Profil holen
Beitrag von: Bruce Willis am 14.02.11 - 18:56:00
Zitat von: koehlerbv am 14.02.11 - 18:46:43
Das ist mehr als eine Zeile, weil eine List eine komplett andere Struktur ist.
Schade... :(

Zitat von: koehlerbv am 14.02.11 - 18:46:43
Und das steht in der DesignerHelp.
Ich hab schon heute gesucht, aber leider nichts Passendes gefunden. :(
Ich werde nochmals probieren...


Zitat von: koehlerbv am 14.02.11 - 18:46:43
Wozu willst Du überhaupt eine List einsetzen? Und was willst Du als ListTags verwenden?

Ich habe einen Agenten, der periodisch die Mails an mehrere Empfänger einzeln nacheinander sendet.
Die Namen der Empfänger sind im Agenten fest kodiert.
Sie stehen aber auch in dem Profildokument.
Ich dachte, dass ich den Agenten etwas eleganter gestalten könnte... :(
Titel: Re: Liste aus dem Profil holen
Beitrag von: Peter Klett am 14.02.11 - 19:05:25
Aber dazu brauchst Du nicht unbedingt eine Liste.

Du willst also Mails an die in dem Mehrfachwert hinterlegten Empfänger senden.

Variante 1: Eine Mail an alle

doc.SendTo = profile.MeinMehrfachwert
'doc versenden

Variante 2: Je Empfänger eine Mail

Forall mm in profile.MeinMehrfachwert
   Set doc = ...
   doc.SendTo = mm
   'doc versenden
End Forall

Titel: Re: Liste aus dem Profil holen
Beitrag von: Bruce Willis am 14.02.11 - 21:52:26
Zitat von: Peter Klett am 14.02.11 - 19:05:25
dazu brauchst Du nicht unbedingt eine Liste.

Du willst also Mails an die in dem Mehrfachwert hinterlegten Empfänger senden...

Variante 2: Je Empfänger eine Mail

Forall mm in profile.MeinMehrfachwert
   Set doc = ...
   doc.SendTo = mm
   'doc versenden
End Forall



Tausend Dank!!!
Das ist genau was ich brauche.

Funktioniert perfekt!
 :love: