Liste aus dem Profil holen

[Bruce Willis]

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()

[koehlerbv]

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

[Bruce Willis]

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

[koehlerbv]

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

[Bruce Willis]

Das ist mehr als eine Zeile, weil eine List eine komplett andere Struktur ist.

Schade...

Und das steht in der DesignerHelp.

Ich hab schon heute gesucht, aber leider nichts Passendes gefunden.
Ich werde nochmals probieren...

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...

[Peter Klett]

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

[Bruce Willis]

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!