Eine Mail an viele Personen schicken

[Don Pasquale]

Hallo Leute,

ich betrete wieder einmal komplettes Neuland.
Ich habe eine Collection von angewählten Dokumenten in denen in einem bestimmten Feld die eMail Adresse steht.

Nun möchte ich eine Mail generieren und all diese Mail Adressen in das bcc kopieren.


Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As New NotesDatabase
Dim view As New NotesView
Dim doc As NotesDocument
Dim docMail As NotesDocument

Set view = db.GetView("vPersonen")' ...Ansicht aus Backend
Set dc = db.UnprocessedDocuments


Set doc=dc.GetFirstDocument  
While Not (doc Is Nothing)

if Adressliste = "" then
       Adressliste = doc.eMailAdresse(0)   
else
      Adressliste = Adressliste & ";" & doc.eMailAdresse(0)
end if

Wend

Aber wie geht´s weiter ?
So vielleicht ?

Set docMail = db.CreateDocument
ComputeWithForm("MEMO")



Ciao
Don Pasquale

[Centaury]

Hmm...Schuss ins Blaue:

docMail.Form = "Memo"
docMail.BlindCopyTo = Adressliste
docMail.Subject = "Test"
Call docMail.Send (False)

[Don Pasquale]

hört sich doch ganz gut an

Danke

Ciao

Don Pasquale