Mail über Lotus Notes Server als Absender anstatt dem Usernamen möglich?

[padkey]

Hallo,

meine Frage ist, ob und wie ich es machen kann, dass als Absender bei einer Email, die automatisch über einen Agenten versand wird, der Server beispielsweise oder eine frei konfigurierbare Adresse als Absender angegeben werden kann?

Vielen Dank, konnte dazu leider nichts finden, vllt kann mir ja jemand die richtigen Stichworte geben...

[smokyly]

Die Schnellsuche mit "Agent Mail Absender" liefert aber ne gute Auswahl an Lösungsmöglichkeiten.

Wer hat denn den Agenten unterzeichnet?

Gruß

[marschul]

Und vergiss nicht, dass die Empfänger mglw. auch auf die Mails antworten möchten, d.h. die Umgebung sollte entweder so konfiguriert sein, dass diese Antworten auch vernünftig geroutet werden oder die Mails enthalten einen entsprechenden Hinweis "bitte nicht antworten..." o.ä.

[padkey]

okay vielen dank, hatte anfangs nichts passendes gefunden...

ein passendes beispiel hier:http://www-10.lotus.com/ldd/quickplace.nsf/869c7412fe5d56b7852569fa007826e3/17c10b3e8e0922fb85256af00061a971?OpenDocument

wobei ich den mail.box aufruf durch
http://atnotes.de/index.php?topic=45865.10;wap2

ersetzt habe :-)

[padkey]

da meine Email an mehrere Leute gehen soll, muss ich irgendwie aus dem Memberseintrag jeweils bei dem item blindcopy empfänger hinzufügen

Code

recipientslist = groupsDoc.getItemValue("members")	

empfänger1, empfänger2 ...
Gibt es da ein "Konstrukt", wo er mir den Variant recipientlist, solange durchgeht und dann alle Empfänger hinzufügt?
Bspw. eine for-schleife, jedoch weiß ich nicht wie ich die größe eines Variants ermitteln kann?

Code

Dim blindCopy As New NotesItem(memo,"BlindCopyTo", "", NAMES)
blindCopy.Appendtotextlist("empfänger1")
blindCopy.Appendtotextlist("empfänger2")
...

Hat da jemand eine Lösung/Idee?

Vielen Dank

edit jo danke:
   Forall  x  In ret
      Print x
   End Forall

[marschul]

Du kannst auch den Gruppennamen direkt in BlindCopy hängen. Die Methode .send löst das auf und füllt die für das Routing relevanten Felder automatisch.

EDIT: Die Gruppe muss sich natürlich im Domino Directory befinden und vom Typ "Nur Mail" oder "Mehrere Zwecke" sein.

[padkey]

leider ist sie das nicht :-( aber sollte auch so gehen!

[Peter Klett]

Warum schreibst Du nicht einfach

memo.BlindCopyTo = groupsDoc.Members

?

[padkey]

eine berechtigte Frage... glaube ich werde es so machen! Vielen Dank. Ich hätte sonst jeden Namen aus Members ausgelesen und an BlindCopy Appended ...

Ich bin irgendwie verkommen, weil die Gruppen Accesslist only sind, hat auf das Feld keine Auswirkungen, ich kann nur nicht den Gruppenname als Empfänger verwenden( sehe ich das so richtig?) Aber theoretisch müsste ich es ja dann so funktionieren:

Code

Dim blindCopy As New NotesItem(memo,"BlindCopyTo", groupsDoc1.members(0), NAMES)
blindCopy.Appendtotextlist("groupsDoc2.members(0)")
blindCopy.Appendtotextlist("groupsDoc3.members(0)")
blindCopy.Appendtotextlist("groupsDoc4.members(0)")
...
[code]

Problem ist halt, ich kann die Sache nicht testen ...

[/code]

[marschul]

Deine Annahme, dass die Verwendung des Gruppennamens bei Accesslist only nicht funktionieren würde stimmt, ABER:

Du darfst nicht .appendtotextlist("groupsDoc2.Members(0)") schreiben, sondern
.appendtotextlist(groupsDoc2.Members) (siehe Beitrag von Peter)

Die Anführungszeichen sehen den Inhalt als String, d.h. in dem Blindcopy würde tatsächlich "groupsDoc2.Members(0)" stehen. Damit kann der Router nix anfangen. Und die (0) musst Du auch weglassen (auch in der Zeile New NotesItem), sonst bekommst Du nur das erste Member der Gruppe in das Feld. Gilt natürlich für jedes .appendtotextlist