1 Mail, 2 Empfänger, 2 Mails

[DerAndre]

Hallo, nu von zu Hause...

Ich hoffe ich habe das Thema halbwegs getroffen.

Mein Problem,  Phänomen:

Ich habe 2 Datenbanken. Datenbank A hat einen Workflow, Datenbank B ist eine Dokumentenhaltungssystem.
In DB A wird von einer berechtigten Person ein Dokument in DB B erstellt und Freigegeben. Bei der Freigabe wird aus DB A die Information über die zu benachrichtigende Person ermittelt.
Die Mail aus DB B enthält im Body nur Plain Text und einige Chr(10) + Chr(13). Die Form wird mitgemailt und die Mail in DB B gespeichert. In DB A wird danach  das Dokument in die nächste Phase geschickt.
Weil die Mails falsch waren oder nicht angekommen sind, aber in DB B in der richtigen Form vorliegen , habe ich jetzt noch einen Test-Empfänger in BCC gesetzt.
Mein Problem ist jetzt, in DB B wird die Mail richtig gespeichert und der Testempfänger erhält auch die richtige Info. Der Empfänger der Mail aus DB B erhält aber die Information die der nächste Bearbeiter aus DB A ( Workflow ) erhalten soll .
Ich habe im Moment überhaupt keine Idee, warum das passiert 
Noch nichtmal irgendeinen Ansatz...
Infos die ich im Moment habe:
Bodyfeld ist nur Textfeld ( muss das ein RTF sein? Kann eigentlich nicht, da die Mail ja 2x richtig erscheint )
Empfänger der Mail aus DB B wird aus DB B ermittelt ( hat aber nichts mit dem Body und dem Subject zu tun )
BCC ist im Moment Hard-Coded ( hat aber auch nchts mit dem Empfänger zu tun )
SaveDocOnSend ( weiss grad nicht genau wie es heisst ) ist TRUE
Form wird mitgeschickt, steht auch auf TRUE

Hm, mehr fällt mir gerade nicht ein. Ich hoffe ich habe es halbwegs verständlich erklärt.

Gruss

André

( Hoffentlich kann ich morgen von der Firma wieder auf @Notes zugreifen.... )


PS. Wenn noch irgendwelche Infos fehlen, die ich übershen habe, bescheidschubsen... 

[robertpp]

Wie wird das Mail versendet und zusammengestellt? Per LS oder @Formula und wie genau wird das sendto Feld gefüllt? Wahrscheinlich liegt genau dort der Fehler.

Da wäre noch ein paar Infos hilfreich!

robert

[DerAndre]

Ist ein Script.

Da ich im Moment leider nicht an den Code komme sag ich mal Morgen bescheid, da mich an der Stelle das Gedächtnis verlassen hat...

Grübel...

email.sendto = ...(docausandererdb.empfänger )

Ich glaub ich poste morgen besser mal den Code...

Aber schonmal so vorneweg. Kann es echt sein, das wenn das SendTo Feld faul ist, ein anderer Body und Subeject verschickt wird?

[koehlerbv]

Aber schonmal so vorneweg. Kann es echt sein, das wenn das SendTo Feld faul ist, ein anderer Body und Subeject verschickt wird?

Nein, das kann nicht sein. Du wirst einen logischen fehler im Programmablauf haben.

Bernhard

[robertpp]

Ich denke auch das es daran liegt das du auf ein falsches doc aus der anderen db zugreift so wie du es eigentlich nicht haben möchtest. Und somit geht das mail an einen andern Empfänger.

@Bernhard: Möglich wäre es schon aber da müsste es auch programmiert sein. Aber ist sicher nicht.

[DerAndre]

Hi. Grmpl, immer noch kein Zugriff von der Firma aus... 

Hier mein Code Snip

Ich weiss, das Save am Ende ist nicht notwendig, habe es aber mal drin gelassen
Servernamen usw habe ich durch Aliase ersetzt.

Sub SendMailEinreicher
%REM
=============================================================================================
| Version   | Date                  | Developer             | Changes
=============================================================================================
   1.1                  07.07.2005        André                  der
Endbetrag steht in der Wirtschaftlichkeit, keine Berechnung mehr
-------------------------------------------------------------------------------------------------------------------------------------------------------------------
%ENDREM
      On Error Goto errorhandle


'---------------------------------------------------------------------------------------------------------------------------

      ' Für das Mail

'---------------------------------------------------------------------------------------------------------------------------
      Dim ws As New notesuiworkspace
      Dim s As New notessession
      Dim db As NotesDatabase
      Dim doc As NotesDocument
      Dim email As NotesDocument
      Dim bodytext As String
      Dim authorField As NotesItem
      Dim readerField As NotesItem


'---------------------------------------------------------------------------------------------------------------------------

      ' Persönliche Daten aus Vorschlagsdatenbank

'---------------------------------------------------------------------------------------------------------------------------

      Dim vdb As notesdatabase
      Dim vview As notesview
      Dim vdoc As notesdocument

      Set doc = ws.CurrentDocument.Document

      Set vdb = s.GetDatabase("Server","Solution\\improve")
      If vdb Is Nothing Then
            Messagebox"Auf die Vorschlagsdatenbank konnte nicht zugegriffen
werden!"
            Goto exitsub
      End If

      Set vview = vdb.GetView("(personaldata)")
      If vview Is Nothing Then
            Messagebox"Auf die View --> (personaldata) <-- konnte nicht
zugegriffen werden!"
            Goto exitsub
      End If

      Set vdoc = vview.GetDocumentByKey(doc.sub31_VVNummer)
      If vdoc Is Nothing Then
            Messagebox"Es wurde kein gültiges Personendokument gefunden"
            Goto exitsub
      End If

      Set db = s.CurrentDatabase
      Set email = New NotesDocument( db )
      email.SaveMessageOnSend = True
      email.Form = "Memo"

      Set authorField =email.appendItemValue("authors",s.username)
      authorField.isSummary=True
      authorField.isAuthors=True
      Call authorField.appendToTextList("SolutionsAdministrators")
      Call authorField.appendToTextList("Server/Domain")

      Set readerField =
email.appendItemValue("readers","ETQ-BVW-Leseberechtigte")
      readerField.isSummary=True
      readerField.isReaders=True
      Call readerField.appendToTextList(vdoc.BVWPersonalData_CanName)

      Call readerField.appendToTextList(s.username)
      Call readerField.appendToTextList("SolutionsAdministrators")
      Call readerField.appendToTextList("Server/Domain")
      Call readerField.appendToTextList("ClusterDomain")
      Call readerField.appendToTextList("Server2/Domain")

      email.sendto = vdoc.BVWPersonalData_CanName
      email.BlindCopyTo = "CN=Theo Tester/OU=ORGIV/O=Organisation"

      bodytext = "Wir freuen uns Ihnen mitteilen zu können, daß Ihr
Verbesserungsvorschlag mit der Vorschlag Nr. " + doc.sub31_VVNummer(0) + "
angenommen wird. " +Chr(13) +Chr(13)

      If doc.sub31_WNutzen(0) = 0 And doc.sub31_Vorabpraemie(0) <> 0 Then
            bodytext = bodytext + "Für Ihre Idee erhalten Sie eine
Vorabprämie in Höhe von" +Chr(13) + Chr(13)
            bodytext = bodytext +  + "                " +
Cstr(doc.sub31_Vorabpraemie(0)) + ",-- €" + Chr(13)+ Chr(13)
      End If

      If ( doc.sub31_WNutzen(0) <> 0 And doc.sub31_Vorabpraemie(0) <> 0 )
Then
            bodytext = bodytext + "Für Ihre Idee erhalten Sie eine Prämie
in Höhe von" +Chr(13) + Chr(13)
            bodytext = bodytext +  + "                " +
Cstr(doc.sub31_WNutzen(0) ) + ",-- €" + Chr(13)+ Chr(13)
'           bodytext = bodytext +  + "                " +
Cstr(doc.sub31_WNutzen(0) - doc.sub31_Vorabpraemie(0)) + ",-- €" + Chr(13)+
Chr(13)
      End If

      If  ( doc.sub31_WNutzen(0) <> 0 And doc.sub31_Vorabpraemie(0) = 0 )
Then
            bodytext = bodytext + "Für Ihre Idee erhalten Sie eine Prämie
in Höhe von" +Chr(13) + Chr(13)
            bodytext = bodytext +  + "                " +
Cstr(doc.sub31_WNutzen(0)) + ",-- €" + Chr(13)+ Chr(13)
'           bodytext = bodytext +  + "                " +
Cstr(doc.sub31_WNutzen(0) - doc.sub31_Vorabpraemie(0)) + ",-- €" + Chr(13)+
Chr(13)
      End If

      If doc.sub31_Anerkennung(0) <> 0  Then
            bodytext = bodytext + "Für Ihre Idee erhalten Sie eine
Anerkennungsprämie in Höhe von" +Chr(13) + Chr(13)
            bodytext = bodytext +  + "                " +
Cstr(doc.sub31_Anerkennungsprämie(0)) + ",-- €" + Chr(13)+ Chr(13)
      End If

      If doc.sub31_praemie(0) <> 0 Then
            bodytext = bodytext + "Für Ihre Idee erhalten Sie eine Prämie
in Höhe von" +Chr(13) + Chr(13)
            bodytext = bodytext + "             " +
Cstr(doc.sub31_praemie(0)) + ",-- €" + Chr(13)+ Chr(13)
      End If

      bodytext = bodytext + "die Ihnen mit einer der nächsten Lohn- oder
Gehaltszahlung überwiesen wird." +Chr(13) + Chr(13)
      bodytext = bodytext + "Wir danken ihnen für Ihr Betriebsinteresse und
Ihre Mitarbeit.." +Chr(13) + Chr(13)
      bodytext = bodytext + "Mit freundlichen Grüßen." + Chr(13) + Chr(13)
      bodytext = bodytext + s.CommonUserName

      email.subject = doc.sub31_VVNummer(0) + ": Prämierung Ihres
Verbesserungsvorschlag"
      email.body = bodytext
      email.PostedDate = Now
      email.From =  s.username
      email.author =  s.username
      email.Logo = "StdNotesLtr24"
      Call email.Send (True)
      Call email.save(True, True, True)

      Goto exitsub
errorhandle:
      Messagebox "SendMailEinreicher -> In Zeile: " & Erl() & " Fehler: " &
Err() & " " & Error()
      Exit Sub

exitsub:
End Sub

So, ich hoffe ich habe keine Tomaten auf den Augen und keine Bohnen in den Ohren.... 

Wenn noch was fehlt, bitte Info, ich glaub ich bin im Moment voll Betriebsblind.

Gruss

André

[DerAndre]

Moin.

Wollte den Thread nur nochmal nach oben bringen und Fragen ob jemand was gesehen hat, was ich übersehen haben könnte.

So ein Käse, komme leider im Moment in der Firma nur auf die Startseite, kann nichts mehr lesen...

Gruss

André

[koehlerbv]

Was sagt denn überhaupt der Debugger dazu?
Für unser einen ist es ja schwer, einen Code nachzuvollziehen, der auf Daten aufsetzt, die wir nicht haben. Das wird daher auch kaum einer gemacht haben.
Fakt ist auf jeden Fall: Was der Debugger vom dem NotesDocument.Send für NotesDocument anzeigt, wird dann auch gesendet. Irgendwelches "Vermischen" kannst Du getrost ausschliessen.

Bernhard

PS. Noch zwei Anmerkungen zu Deinem Posting, die aber beide nichts mit Deinem Problem zu tun haben:
- Verwende als String-Concatenator unbedingt "&" und nicht "+". Die Doku schreibt dies wirklich nicht ohne Grund vor. Hierzu gibt es auch einige Anti-Beispiele hier im Forum.
- "Bodyfeld ist nur Textfeld ( muss das ein RTF sein? Kann eigentlich nicht, da die Mail ja 2x richtig erscheint )" Nein, das hat absolut keine Auswirkung.

[DerAndre]

Hi Bernhard.

Das mit dem Stringconcatenator werde ich machen, hatte wohl wieder eine falsche Syntax im Sinn.

Typisch für meine Person. Werde ich dann mal am Montag machen. das offensichtliche das offensichtliche.

Danke

André

[koehlerbv]

Der Stringconcenator hat aber ganz sicher mit Deinem eigentlichen Problem zu tun. Das gilt "nur" für "Ordnung und Sauberkeit im Schlachthaus".

Bernhard

[DerAndre]

So endlich...

Es hatte tatsächlich mit dem Stringconcenator zu tun.

Nachdem ich alle getauscht habe. Bingo, Notes wirft eine Fehlermeldung.

Die Deklaration vom UiWorkspace gab es schon. Ich weis nicht woher( habe gesucht, aber nichts gefunden ) , aber es gab ihn auf jeden Fall schon. Habe einen neuen Namen vergeben und siehe da, et Fluppt.

Besten Dank Bernhard, ohne den Tipp hätte ich mir einen Wolf gesucht.
Darauf YYYYYYYY

Gruss

André