Hallo Entwickler,
ich hänge gerade bei vermutlich einer Anfänger frage, die mich schon öfter
aufgehalten hat und ich noch keine gute Lösung habe.
Es funktioniert derzeit aber ich glaube dass es miserable gelöst ist.
Für den Hintergrund.
Ich habe ein Hauptdokument und dazu ein oder mehrere Antwortdokumente.
Wenn das Hauptdokument abgeschlossen wird, soll nun an die Bearbeiter
der Antwortdokumente eine Mail gesendet werden.
Da ich eh die Antworten prüfe, ob sie auch abgeschlossen sind,
lasse ich hier gleich eine Variable mit laufen in der ich die Namen speichere.
Die Variable habe ich als Variant deklariert und wollte es mit ArrayAppend
hinzufügen. Das geht aber nicht, da es kein Array ist, wenn der erste Name
eingetragen wurde. Und über ReDIM wird der erste Wert wieder entfernt.
Jetzt merke ich mir den Wert über eine DummyVariable aber das kann es
ja auch nicht sein.
Hier ein Auszug aus dem Code:
…..
Dim vCopyTo As Variant
Dim vCopyToDummy As String
….
Do Until (docdc Is Nothing)
……
……
If IsArray(vCopyTo) Then
vCopyTo = ArrayUnique(ArrayAppend(vCopyTo,docDC.kvpSN_Name(0)))
Else
If Not vCopyTo = "" Then ‘Wenn vCopyTo gefüllt und kein Array zu Array machen
vCopyToDummy = vCopyTo
ReDim vCopyTo(0)
vCopyTo(0) = vCopyToDummy
vCopyTo = ArrayUnique(ArrayAppend(vCopyTo,docDC.kvpSN_Name(0))) '???
Else
vCopyTo = docDC.kvpSN_Name(0) 'Wenn vCopyTo leer ist mit Namen füllen
End If 'If Not vCopyTo = "" Then
End If 'If IsArray(vCopyTo) Then
Set docdc = dc.GetNextDocument(docdc)
Loop 'Do Until (docdc Is Nothing)
…
…
Call SendMail(doc.NotesName, vCopyTo, vMailSubject, vMailText, "VV")
Wäre Klasse wenn Ihr mir hier einen Tipp geben könntet.
Gruß Christian