LS - Automatische Mail an mehrere Empfänger

[Birgit]

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

[grosses.manitu]

Code?  
Wie setzt Du das SendTo Feld?

[doliman]

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 )

[Birgit]

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

[doliman]

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

[luna]

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

[doliman]

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.