Hallo,
ich stehe gerade vor folgendem Problem und habe dazu noch nichts passendes gefunden.
Wir versenden Emails aus Teamdatenbanken über einen SendMail Agent, der folgendermaßen aufgerufen wird:
| Set nAgent = db.GetAgent("(SendMail)") |
| If nagent.RunOnServer(doc.NoteID) = 0 Then |
| Call uidoc.Close(True) |
| Else |
| Messagebox "EXIT: Das Senden des Dokuments war nicht erfolgreich!" |
| End If |
Im SendMail Agent steht der folgende Code:
| Sub Initialize |
| Dim session As New NotesSession |
| Dim doc As NotesDocument |
| |
| With session.CurrentAgent |
| Set doc = session.CurrentDatabase.GetDocumentByID(.ParameterDocID) |
| doc.SaveMessageOnSend = False |
| |
| |
| If .OnBehalfOf = "" Then |
| doc.From = .Owner |
| doc.Principal = .Owner |
| Else |
| doc.From = .OnBehalfOf |
| doc.Principal = .OnBehalfOf |
| End If |
| End With |
| |
| doc.Send(False) |
| End Sub |
Das funktioniert wunderbar, bis auf eine kleine Ausnahme.
Möchte man z.Bsp. an zwei Gruppen versenden: GruppeA und GruppeB
In GruppeA stehen einzelne Personen und die GruppeB.
In GruppeB stehen irgendwelche anderen Personen.
Klickt man auf senden, sieht es so aus als würde die Mail rausgehen, aber nichts passiert, die Mail kommt nie an.
Nehme ich GruppeB aus dem SendTo Feld raus funktioniert alles tadellos.
Ich habe dann ein wenig rumprobiert und mal drei verschiedene Sendmethoden auf den Senden Button gelegt: senden über doc.send(false), senden per Kopie in die mail.box und senden über den SendMail Agent. Resultat war, dass nur die ersten 2 Mails ankamen.
Ich hoffe ihr könnt mir helfen.
Notes Client: 7.0.3
Server: 8.5.3
Grüße
Marco