HCL Notes / Domino / Diverses > Entwicklung

Mail senden an alle aus Ansicht einer DB

(1/3) > >>

papermoon:
Version 12
Ich möchte gerne einen Button in einer Ansicht erstellen, womit ein Memo des Users geöffnet wird und alle eMailadresse aus der aktuellen Ansicht (Personen) in das Feld AN geschrieben werde,
Aus der Maske (einzeln Dokument) kein Problem, aber aus einer Ansicht bekomme ich es nicht hin.

Tode:
Was hast Du denn schon probiert? Das geht mit einem Agenten und LotusScript.

Hier ein Beispielscript zum einsteigen:


--- Code: ---Dim ses as New NotesSession
Dim ws as New NotesUIWorkspace
Dim db as NotesDatabase
Dim dbMail as NotesDatabase
Dim dc as NotesDocumentCollection
Dim doc as NotesDocument
Dim docMemo as NotesDocument
Dim adresses() as String
Dim i as Integer

Set db = ses.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
While not(doc is Nothing)
    Redim preserve adresses(i)
    adresses(i) = doc.GetItemValue( "FeldNameMitInternetAdresse" )(0)
    i = i + 1
    Set doc = dc.GetNextDocument( doc )
Wend
Set dbMail = New NotesDatabase( "", "" )
Call dbMail.OpenMail()
Set docMemo = New NotesDocument( dbMail )
Call docMemo.ReplaceItemValue( "Form", "Memo" )
Call docMemo.ReplaceItemValue( "SendTo", adresses )
Call ws.EditDocument( True, docMemo )

--- Ende Code ---

Der Code ist im Browser schnell runtergetippt und enthält höchstwahrscheinlich noch Fehler, aber als Startpunkt sollte es reichen.

CarstenH:
Das gibt es bereits fertig im persönlichen Adressbuch.

In der Ansicht "Meine Kontakte" (die quasi das Pendant zur Personenansicht des Domino Directories darstellt) gibt es eine Aktion "Nachricht senden", die einen Agenten namens "(CreateMailMemo)" aufruft.

Der läuft dort zwar auf "ausgewählte Dokumente" anstatt auf "alle der Ansicht" aber erstens ist ein vorher betätigtes STRG+A kein großer Aufwand, wenn man wirklich alle haben möchte, und zweitens gibt es meist dann doch ein paar Ausnahmen an die man gar nicht senden möchte. 

Ansonsten angucken, übernehmen und anpassen anstatt es neu zu basteln.

HTH
Carsten

papermoon:
@CarstenH: Danke Carsten, aber leider funktioniert das nicht so richtig.

@Tode: Beim Abspeichern des Agenten wird mir die Fehlerzeile

Dim adresses() As String

angezeigt. Was genau ist hier der Fehler?
Habe das Script per cut & paste hinzugefügt und Feldnamen hinzugefügt.

maxritti:

--- Zitat von: papermoon am 11.01.24 - 15:42:05 ---Dim adresses() As String

--- Ende Zitat ---

Da fehlt wohl der Index 0

Dim adresses(0) As String

Navigation

[0] Themen-Index

[#] Nächste Seite