Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Don Pasquale am 26.03.03 - 14:56:13

Titel: Eine Mail an viele Personen schicken
Beitrag von: Don Pasquale am 26.03.03 - 14:56:13

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

Titel: Re:Eine Mail an viele Personen schicken
Beitrag von: Centaury am 26.03.03 - 15:04:32

Hmm...Schuss ins Blaue:

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

Titel: Re:Eine Mail an viele Personen schicken
Beitrag von: Don Pasquale am 26.03.03 - 15:13:41

hört sich doch ganz gut an

Danke

Ciao

Don Pasquale