Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Birgit am 18.07.02 - 16:14:23

Titel: LS - Automatische Mail an mehrere Empfänger
Beitrag von: Birgit am 18.07.02 - 16:14:23

Hi @all,

im QuerySave event wird automatisch ein Benachrichtigungsmail verschickt. SendTo wird mit dem Wert eines Feldes (Inhalt wird aus dem Adressbuch ausgesucht) aus dem Dokument gefüllt.

Solange dort nur eine Person ausgewählt wurde, läuft das Script wunderbar, werden allerdings mehrere Personen ausgewählt, bekommt man die Meldung "Mail kann nicht gesendet werden, keine Entsprechung in Adressbüchern gefunden".

Lasse ich den Debug mitlaufen, zeigt das Kerlchen mir an, daß das SendTo leer ist. Klar, dann kann er nicht senden.

Nur wie sende ich so automatisch eine Mail an mehrere Personen ??? Bahnhof - Mondfahrt - Oberägypten ....

Birgit ???

Titel: Re: LS - Automatische Mail an mehrere Empfänger
Beitrag von: grosses.manitu am 18.07.02 - 17:48:02

Code?  ;)
Wie setzt Du das SendTo Feld?

Titel: Re: LS - Automatische Mail an mehrere Empfänger
Beitrag von: doliman am 18.07.02 - 20:10:19

Hi,

sie es vielleicht etwa so aus?

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim recipients( 1 To 3 ) As String

recipients( 1 ) = "Jim Dinauer"
recipients( 2 ) = "Betty Dinauer"
recipients( 3 ) = "Mary Sticka"

Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
doc.Form = "Memo"
doc.Subject = "Betreff"
Call doc.Send( True, recipients )

Titel: Re: LS - Automatische Mail an mehrere Empfänger
Beitrag von: Birgit am 19.07.02 - 08:50:50

Nee, ich habe ein "gefülltes" Dokument. Dort gibt es ein Feld mit dem Namen Zustaendig, Feldtype names, Mehrfachwerte zulassen, Adressdialogfeld zur Auswahl verwenden.

Den Inhalt des Feldes schubse ich in das SendTo. Funktioniert wunderbar, sofern nur ein Name eingetragen ist. Sind aber 2 Namen oder mehr ausgewählt, funktioniert es nicht. Muß ich die einzelnen Namen trennen? Wenn ja wie?

Viele Grüße
Birgit

Titel: Re: LS - Automatische Mail an mehrere Empfänger
Beitrag von: doliman am 19.07.02 - 09:25:04

Hi,

ein Blick hirein, das wäre auch bei Dir meine nächste Antwort gewesen:
http://www.atnotes.de/cgi-bin/yabb/YaBB.pl?board=002-2;action=display;nu m=1026992938;start=0

Titel: Re: LS - Automatische Mail an mehrere Empfänger
Beitrag von: luna am 19.07.02 - 12:58:40

Zitat

Hi,

ein Blick hirein, das wäre auch bei Dir meine nächste Antwort gewesen:
http://www.atnotes.de/cgi-bin/yabb/YaBB.pl?board=002-2;action=display;nu m=1026992938;start=0

hallo doliman,

bei mir funzt dieser link leider nicht, ich bekomm die fehlermeldung: 104 Es ist ein Fehler aufgetreten!: Fehler beim öffnen von .txt


haette mich auch interessiert.

gruss,
daniela

Titel: Re: LS - Automatische Mail an mehrere Empfänger
Beitrag von: doliman am 19.07.02 - 15:00:30

Hi,

lese die Mehrfachwerde über eine Schleife aus dem Feld mit den Adressempfängern

Dim recipients( 1 To 3 ) As String  

'Dein Empfänger Mehrfachfeld
Forall v In vertreter.Values
 i=i+1
 recipients( i) = v
End Forall
 
Call doc.Send( True, recipients )  
 
So ähnlich. Das Array muß noch zur Laufzeit bestimmt werden.
Schau mal in der Designer Hilfe nach da hats die Beispiele drin.