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
'use entered values, because if saved as "Entwurf" these answer fields
'are filled with the copy of the original mail from which the answer was created
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