E-Mailversand aus Excel geht mit LN 9 nicht mehr

[Benni1988]

Hallo zusammen,

bitte nicht wundern, ich habe das Problem im Forum "Herbers-Excel Forum" auch gepostet, dort wurde mir allerdings euer Forum dazu empfohlen..

Ich habe vor einen halben Jahr ein Makro geschrieben (mit Hilfe aus verschiedenen Foren), mit dem ich aus Excel heraus diverse E-Mails in Lotus Notes 8.5 versenden konnte. Dies hat auch einwandfrei funktioniert.

Nun haben wir aber auf Lotus Notes 9 umgestellt und ich bekomme immer die Fehlermeldung
"Systemfehler &H800 10 105 (-2147417851). Ausnahmefehler des Servers"

An was könnte das liegen? Vielen Dank für eure Hilfe.

Anbei mein Code:


^{Sub CommandButton1_Click()
       If MsgBox("Sollen die E-Mail(s) gesendet werden?", vbQuestion + vbYesNo, _
         "Löschen bestätigen") = vbYes Then
     
       Dim sText As Variant, sEmpfang As Variant, sBetrifft As String
       Dim session As Variant, db As Variant, doc As Variant, rtobject, ws As Variant
       Dim x As Integer, y As Integer, Msg As Integer
       Dim sKopie As String, AttachMe As Variant, DerAnhang As Variant
       Dim user As String, server As String, mailfile As String, sBlindKopie As String
       Dim vAn As Variant, vCopy As Variant, vBlind As Variant, sAnhang As String
       Dim sAnrede As Variant
       Dim sVorname As Variant
       Dim sNachname As Variant
       Dim tempAnrede As Variant
         
       ' Verbindung zum Mailserver aufbauen
       Set session = CreateObject("notes.notessession")                      ' Notes muss gestartet  _
     sein
       user = session.UserName
       server = session.GetEnvironmentString("MailServer", True)
       mailfile = session.GetEnvironmentString("MailFile", True)
       Set db = session.GetDatabase(server, mailfile)                        ' Emails zusammenbauen  _
     und rausschicken
       For i = 12 To cells(Rows.Count, 9).End(xlUp).Row
         If cells(i, 10) <> "ja" Then                                        'keine E-Mail, wenn "ja" _
      in Spalte "geantwortet"
           vAn = cells(i, 9)
           sAnrede = Range("e" & i)                                          'Anrede aus Spalte e
           Select Case (sAnrede)
             Case "Herr":                                                    'Im Fall, dass Anrede " _
     Herr" in Spalte e, dann schreibe "Sehr geehrter Herr"
               tempAnrede = "Sehr geehrter Herr"
             Case "Frau":
               tempAnrede = "Sehr geehrte Frau"                              'Im Fall, dass Anrede " _
     Frau" in Spalte e, dann schreibe "Sehr geehrte Frau"
             Case "Sehr geehrte Damen und Herren":
               tempAnrede = "Sehr geehrte Damen und Herren"
             Case "Dear":
               tempAnrede = "Dear"                                           'Im Fall, dass Anrede " _
     Dear" in Spalte e, dann schreibe "Dear"
           End Select
         sVorname = Range("f" & i)                                         'Vorname aus Spalte f
         sNachname = Range("g" & i)                                        'Nachname aus Spalte g
           If Sheets("Tabelle1").Range("h" & i).Value = "Deutsch" Then       'wenn in Spalte "h" " _
     Deutsch" als Sprache steht, dann
             sText = tempAnrede & " " & sNachname & "," & Chr(10) & Chr(10) & Range("B4") & Chr(10)   _
         'dann nehme die Anrede + Nachnamen + den Text aus Zelle "B4"
           Else
             sText = tempAnrede & " " & sVorname & "," & Chr(10) & Chr(10) & Range("D4") & Chr(10)    _
         'sonst nehme Anrede + Vorname + Text aus Zelle "D4"
           End If
         sBetrifft = Range("B3")                                           ' Überschrift in Zelle b3
         sKopie = Range("D3")                                              ' Kopie der E-MAil an e- _
     Mail Adresse aus Zelle "D3"
         sBlindKopie = Mid(vAn, 3)                                         ' schickt an alle Empfä _
     nger eine Blindkopie
         sAnhang = Range("B6")                                             ' Link aus Zelle b6
         sAnhang2 = Range("B7")                                            ' Link aus Zelle b7
         sAnhang3 = Range("B8")                                            ' Link aus Zelle b8
         If Len(sKopie) > 0 Then vCopy = Split(sKopie, " ; ")              ' cc Array
         If Len(sBlindKopie) > 0 Then vBlind = Split(sBlindKopie, " ; ")   'bcc Array
           Set doc = db.createdocument()
           doc.Form = "Memo"
           doc.sendto = vAn
           If Len(sKopie) > 0 Then doc.CopyTo = vCopy                        'cc Array
            doc.Subject = sBetrifft                                          ' die Betreffzeile
           doc.SAVEMESSAGEONSEND = True
           doc.PostedDate = Now
         'Die Zeilen mit dem Anhang nach hier oben verschieben, ist wichtig die Reihenfolge
         ' *******************************************
           If sAnhang <> "" Then
             Set AttachMe = doc.CREATERICHTEXTITEM("Attachment")
             Set DerAnhang = AttachMe.EMBEDOBJECT(1454, "", sAnhang)
             Set DerAnhang2 = AttachMe.EMBEDOBJECT(1454, "", sAnhang2)
             Set DerAnhang3 = AttachMe.EMBEDOBJECT(1454, "", sAnhang3)
             ',"Attachment" wird nicht benötigt
           End If
         '*******************************
           Set ws = CreateObject("Notes.NotesUIWorkspace")
           ' **durch das öffnen des Dokumentes durch NotesUIWorkspace**
           ' **erreicht man das die eingestellte Signatur aus den **
           ' **Lotus Notes Optionen eingefügt wird
           Call ws.EDITDOCUMENT(True, doc)
           Set doc = ws.CURRENTDOCUMENT
           Call doc.GOTOFIELD("Body")
           Call doc.insertText(sText)
           Call doc.Send(True)
           Call doc.Close               'Schliesst das gesendete Formular
           Call doc.Save(True, True)
           Set AttachMe = Nothing
           Set DerAnhang = Nothing
           Set ws = Nothing
           Set doc = Nothing
         
         End If
       Next i
        ' Verbindung zum Mailserver löschen
     Aufraeumen:
         On Error Resume Next
         Set db = Nothing
         Set session = Nothing
         Exit Sub
     Fehler:
         Resume Aufraeumen
     End If
     End Sub}
     
     

Ich bin noch ein ziemlicher Anfänger, wenn es um Makros geht.
Ich hoffe, aus dem Post wird mein Problem ersichtlich

vielen Dank für eure Hilfe

Viele Grüße
Benni

[WildVirus]

Hallo Benni,

herzlich willkommen im Forum.

Was mit direkt auffällt, Du hast keine Fehlerroutinen eingebaut

Auf die Standardfrage - "An welcher Stelle bleibt das Makro hängen?"- wirst Du daher vermutlich keine Antwort haben.

Daher bitte zurück nach Excel, bau Dir eine Fehlerroutine ein, die Dir sagt, wo der Fehler auftritt.

Was mir negativ auffällt, ist, dass Du mehrere Variablen in einer Zeile deklarierst, teilweise mit Typ, teilweise ohne. Eigentlich unsauber und kann auch zu unterschiedlichen Ergebnissen führen, insbesondere wenn kein 'Option Explicit Statement' verwendet wird, das korrekte Typisierung verlangt.

Wenn Du die Stelle kennst, die Probleme macht, kannst Du in die richtige Fehlersuche einsteigen.

Mit gezielten Fragen gibt es auch eine gesteigerte Chance auf Antworten.

Viel Erfolg,
Axel

[Tode]

Dafür, dass Du Anfänger bist, sieht der Code (von den Dingen, die Alex angemerkt hat abgesehen) echt anständig aus. Dein Problem: Du kennst nicht den Unterschied zwischen einem NotesDocument und einem NotesUIDocument.

Beide sehen sehr ähnlich aus, haben aber unterschiedliche Methoden.

Die Zeile

Code

Set doc = db.createdocument()

erstellt ein Objekt der Klasse "NotesDocument". Das ist ein Backend- Objekt und spiegelt das Dokument wieder, wie es nachher auf der Platte landet.
Die Zeile

Code

Set doc = ws.CURRENTDOCUMENT

weist der Variablen ein Objekt der Klasse "NotesUIDocument" zu. Es repräsentiert das, was Du als Benutzer im Lotus Notes Client siehst.

Das NotesUIDocument hat eine Property "Document", mit der Du wieder zum Backend- Dokument der Klasse "NotesDocument" kommen würdest.

Dummerweise haben sowohl die NotesDocument als auch NotesUIDocument- Klasse eine Methode "Send". Nur dass die Methode unterschiedliche Parameter hat:
Aus der Designer- Hilfe (die Du auch z.B. hier online findest:

NotesDocument.Send
Syntax
Call notesDocument .Send( attachForm [, recipients ] )

Parameters
attachForm

Boolean. If True, the form is stored and sent along with the document. If False, it isn't. Do not attach a form that uses computed subforms.

recipients

String or array of strings. Optional. The recipients of the document. See below.

NotesUIDocument.Send
Syntax
Call notesUIDocument .Send

Usage
The document must contain a SendTo field indicating the recipients.

There are two kinds of fields that affect the mailing of the document:

If the document contains additional recipient items, such as CopyTo or BlindCopyTo, Notes mails the documents to these recipients, too.
If the document contains items to control the routing of mail, such as DeliveryPriority, DeliveryReport, or ReturnReceipt, Notes uses these when sending the document.

Also musst Du entweder Die Methode des uidoc ohne Parameter verwenden, oder eben die Zeile

Code

Set doc = ws.CURRENTDOCUMENT

so anpassen

Code

Set doc = ws.CURRENTDOCUMENT.Document

[Benni1988]

Hallo zusammen,

zuerst einmal vielen Dank für eure ausführlichen Antworten.

Ich werde die Variablen deklarieren.

Fehlerroutinen werde ich später einbauen, da ich mich hierfür erst einlesen muss, und ehrlich gesagt noch nicht genau weiß, wie das geht (wie gesagt bin ja noch Anfänger).

Ich habe jetzt

^{Set doc = ws.CURRENTDOCUMENT}

mit

^{Set doc = ws.CURRENTDOCUMENT.Document}

ersetzt. (da mir das einfacher erschien)

Allerdings erhalte ich nun die Fehlermeldung

^{"Laufzeitfehler '438': Objekt unterstützt diese Eigenschaft oder Methode nicht"}


Und ich weiß leider wieder einmal nicht, was mir das genau sagt

Grüße

[Peter Klett]

Set doc = ws.CURRENTDOCUMENT.Document
Call doc.GOTOFIELD("Body")

kann nicht funktionieren, denn GOTOFIELD gibt es nur für das NotesUIDocument

[Benni1988]

Hallo zusammen,

sorry, dass ich mich erst jetzt wieder melde, aber ich war krank und hatte somit keinen Zugriff auf LN.

Ich habe jetzt eure Tipps PROBIERT anzuwenden, vielen Dank dafür! (Hoffe, habe es richtig gemacht)

Ich bekomme die Mails zumindest wieder gesendet.

Allerdings wollte ich euch fragen, ob das so in Ordnung ist, oder ob das immer noch unsauber ist. Möchte mich nämlich gerne verbessern.


<sup>Option Explicit


Sub CommandButton1_Click()
  If MsgBox("Sollen die E-Mail(s) gesendet werden?", vbQuestion + vbYesNo, _
    "Löschen bestätigen") = vbYes Then

  Dim i As Long
  Dim sText As Variant
  Dim sEmpfang As Variant
  Dim sBetrifft As String
  Dim session As Variant
  Dim db As Variant
  Dim uiDocument As Variant
  Dim rtobject, ws As Variant
  Dim doc As Variant
  Dim x As Integer
  Dim y As Integer
  Dim Msg As Integer
  Dim sKopie As String
  Dim AttachMe As Variant
  Dim derAnhang As Variant, derAnhang2 As Variant, derAnhang3 As Variant
  Dim user As String
  Dim server As String
  Dim mailfile As String
  Dim sBlindKopie As String
  Dim vAn As Variant
  Dim vCopy As Variant
  Dim vBlind As Variant
  Dim sAnhang As String, sAnhang2 As String, sAnhang3 As String
  Dim sAnrede As Variant
  Dim sVorname As Variant
  Dim sNachname As Variant
  Dim tempAnrede As Variant
 
   
   On Error Resume Next
   
  ' Verbindung zum Mailserver aufbauen
 
  Set session = CreateObject("notes.notessession")                      ' Notes muss gestartet sein
  user = session.UserName
  server = session.GetEnvironmentString("MailServer", True)
  mailfile = session.GetEnvironmentString("MailFile", True)
  Set db = session.GetDatabase(server, mailfile)                        ' Emails zusammenbauen und rausschicken
  For i = 12 To cells(Rows.Count, 9).End(xlUp).Row
    If cells(i, 10) <> "ja" Then                                        'keine E-Mail, wenn "ja" in Spalte "geantwortet"
      vAn = cells(i, 9)
      sAnrede = Range("e" & i)                                          'Anrede aus Spalte e
      Select Case (sAnrede)
        Case "Herr":                                                    'Im Fall, dass Anrede "Herr" in Spalte e, dann schreibe "Sehr geehrter Herr"
          tempAnrede = "Sehr geehrter Herr"
        Case "Frau":
          tempAnrede = "Sehr geehrte Frau"                              'Im Fall, dass Anrede "Frau" in Spalte e, dann schreibe "Sehr geehrte Frau"
        Case "Sehr geehrte Damen und Herren":
          tempAnrede = "Sehr geehrte Damen und Herren"
        Case "Dear":
          tempAnrede = "Dear"                                           'Im Fall, dass Anrede "Dear" in Spalte e, dann schreibe "Dear"
      End Select
    sVorname = Range("f" & i)                                         'Vorname aus Spalte f
    sNachname = Range("g" & i)                                        'Nachname aus Spalte g
      If Sheets("Tabelle1").Range("h" & i).Value = "Deutsch" Then       'wenn in Spalte "h" "Deutsch" als Sprache steht, dann
        sText = tempAnrede & " " & sNachname & "," & Chr(10) & Chr(10) & Range("B4") & Chr(10)      'dann nehme die Anrede + Nachnamen + den Text aus Zelle "B4"
      Else
        sText = tempAnrede & " " & sVorname & "," & Chr(10) & Chr(10) & Range("D4") & Chr(10)       'sonst nehme Anrede + Vorname + Text aus Zelle "D4"
      End If
    sBetrifft = Range("B3")                                           ' Überschrift in Zelle b3
    sKopie = Range("D3")                                              ' Kopie der E-MAil an e-Mail Adresse aus Zelle "D3"
    sBlindKopie = Mid(vAn, 3)                                         ' schickt an alle Empfänger eine Blindkopie
    sAnhang = Range("B6")                                             ' Link aus Zelle b6
    sAnhang2 = Range("B7")                                            ' Link aus Zelle b7
    sAnhang3 = Range("B8")                                            ' Link aus Zelle b8
    If Len(sKopie) > 0 Then vCopy = Split(sKopie, " ; ")              ' cc Array
    If Len(sBlindKopie) > 0 Then vBlind = Split(sBlindKopie, " ; ")   'bcc Array
      Set doc = db.createdocument()
      doc.Form = "Memo"
      doc.sendto = vAn
      If Len(sKopie) > 0 Then doc.CopyTo = vCopy                        'cc Array
       doc.Subject = sBetrifft                                          ' die Betreffzeile
      doc.SAVEMESSAGEONSEND = True
      doc.PostedDate = Now
    'Die Zeilen mit dem Anhang nach hier oben verschieben, ist wichtig die Reihenfolge
    ' *******************************************
      If sAnhang <> "" Then
        Set AttachMe = doc.CREATERICHTEXTITEM("Attachment")
        Set derAnhang = AttachMe.EMBEDOBJECT(1454, "", sAnhang)
        Set derAnhang2 = AttachMe.EMBEDOBJECT(1454, "", sAnhang2)
        Set derAnhang3 = AttachMe.EMBEDOBJECT(1454, "", sAnhang3)
        ',"Attachment" wird nicht benötigt
      End If
     
     
    '*******************************
      Set ws = CreateObject("Notes.NotesUIWorkspace")
      ' **durch das öffnen des Dokumentes durch NotesUIWorkspace**
      ' **erreicht man das die eingestellte Signatur aus den **
      ' **Lotus Notes Optionen eingefügt wird
      Call ws.EDITDOCUMENT(True, doc)
      Set uiDocument = ws.CURRENTDOCUMENT
      Call uiDocument.GOTOFIELD("Body")
      Call uiDocument.insertText(sText)
      Call uiDocument.Send(True)
      Call uiDocument.Close               'Schliesst das gesendete Formular
      Call uiDocument.Save(True, True)
      Set AttachMe = Nothing
      Set derAnhang = Nothing
      Set ws = Nothing
      Set doc = Nothing
   
    End If
  Next i
 
   ' Verbindung zum Mailserver löschen
Aufraeumen:
    On Error Resume Next
    Set db = Nothing
    Set session = Nothing
    Exit Sub
Fehler:
    Resume Aufraeumen
End If

End Sub</sup>




Viele Grüße
Benni

[Peter Klett]

      Call ws.EDITDOCUMENT(True, doc)
      Set uiDocument = ws.CURRENTDOCUMENT
      Call uiDocument.GOTOFIELD("Body")
      Call uiDocument.insertText(sText)
      Call uiDocument.Send(True)
      Call uiDocument.Close               'Schliesst das gesendete Formular
      Call uiDocument.Save(True, True)

Den oberen Teil habe ich mir nicht näher angeschaut, aber der untere sieht grundsätzlich ganz gut aus. Mich wundert die Reihenfolge etwas. Ich würde das Dokument erst senden, dann speichern und dann schließen. Dass man das uiDocument nach dem Schließen noch speichern kann, verwundert mich etwas, möglicherweise dreht Notes selbst bei Ausführung das um (in Formelsprache gibt es soetwas jedenfalls). Ebenso wundert mich, dass jetzt angeblich das Senden über das uidoc mit Parameter funktionieren soll, was ursprünglich einen Fehler gebracht hat. Das Speichern des uidoc hat eigentlich auch keine Parameter.

Nach meinem Verständnis wäre es so richtig.

      Call ws.EDITDOCUMENT(True, doc)
      Set uiDocument = ws.CURRENTDOCUMENT
      Call uiDocument.GOTOFIELD("Body")
      Call uiDocument.insertText(sText)
      Call uiDocument.Send
      Call uiDocument.Save
      Call uiDocument.Close               'Schliesst das gesendete Formular

[Benni1988]

Hallo Peter,

ja, aber es funktioniert einwandfrei.

Ja, von der Logik her, ist es im nachhinein echt komisch, änder ich die Reihenfolge allerdings auf erst senden und dann speichern, bekomme ich in Notes folgende Meldung
^{Sind Sie sicher? Diese Nachricht wurde bereits an einen oder mehrere Empfänger gesendet…“}

Ich weiß zwar nicht warum, aber ich lasse es dann lieber so...

Grüße

[Benni1988]

Hallo zusammen,

nachdem der Code jetzt gut funktioniert hat, stürtzt LN jetzt immer ab und es kommt folgende Widows-Meldung.


<sup>IBM Notes/Domino funktioniert nicht mehr

Problemdetails:
Problemereignisname: APPCRASH
Anwendungsname: NLNOTES.ExE
Anwendungsversion: 9.0.14.15158
Answendungszeitstempel: 557542 fc
Fehlermodulname: StackHash_26c4</sup>


Was bedeutet das? Wieso kommt der Fehler auf einmal?

Grüße
Benni

[Tode]

Ein Notes- Crash produziert immer einen NSD im Verzeichnis "IBM_TECHNICAL_SUPPORT" im Data- Verzeichnis des Benutzers. Dort steht drin, warum der Client gecrashed ist (wenn man den NSD- Prozess nicht abwürgt und ihn wirklich bis zum Ende laufen lässt).

Ohne NSD keine Möglichkeit, eine Aussage zu treffen.
ACHTUNG: Das NSD enthält sehr viele System- Informationen. Also nicht einfach hier hochladen...

[Benni1988]

Hallo,

danke, aber ich habe nichts abgebrochen. Mehr Informationen erhalte ich nicht...
Vor allem ist das alles Neuland für mich.

Aber der Fehler passiert nur, wenn ich eine Datei im Anhang habe. Ohne Datei funktioniert es einwandfrei

Grüße
Benni

[Benni1988]

aber auch nicht jedes Mal...

[Tode]

NSD gefunden?

[jBubbleBoy]

Alternativ kannst du die Frontend- durch die Backend- Funktionen ersetzen, also NotesDocument anstatt NotesUiDocument.

Dann mach bitte ein:
AttachMe.saveToDisk = true
nach
Set DerAnhang3 = AttachMe.EMBEDOBJECT(1454, "", sAnhang3)

[Benni1988]

Hallo zusammen,

Tode meinst du das?


<sup>Generated Messages:

   INFO (0): failed to match all of the Notes processes
   INFO (0): Rcplauncher returned success. Javacore was created successfully.

   INFO (0): Javacore request was successful, but we couldn't find the associated javacore file. NSD will check again later.

   INFO (0): NSD found RCP Monitor Log C:\Program Files (x86)\IBM\Lotus\Notes\Data\workspace\logs\rcpmon.log
   INFO (0): Memcheck running stand-alone
   INFO (0): No Directory Listings for FT (none were open).
   INFO (0): We waited for 60 seconds, and no javacore file was found for pid 5152. The nsd parameter maxJavaCoreWaitSec controls how long we wait for a javacore to be generated.

   INFO (0): process [  notes2:  1420] has already terminated
   INFO (0): process [ NLNOTES:  16cc] has already terminated
   INFO (0): Deleting pid.nbf
   WARNING (0): Failed to copy C:\Program Files (x86)\IBM\Lotus\Notes\Data\pid.nbf; error: 20

   WARNING (3): can't get process 0x16cc status
   WARNING (3): can't get process 0x1420 status
   WARNING (0): couldn't get process info [ NLNOTES:  16cc]
   ERROR (4): can't attach to process [ audiodg:  1924] - (5) Zugriff verweigert

   ERROR (4): can't attach to process [ audiodg:  1924] - (5) Zugriff verweigert

   ERROR (4): can't attach to process [ audiodg:  1924] - (5) Zugriff verweigert

   ERROR (4): can't attach to process [ audiodg:  1924] - (5) Zugriff verweigert

   ERROR (4): can't attach to process [ audiodg:  1924] - (5) Zugriff verweigert
   ERROR (4): can't attach to process [ audiodg:  1924] - (5) Zugriff verweigert
   ERROR (4): can't attach to process [ audiodg:  1924] - (5) Zugriff verweigert
   ERROR (4): can't attach to process [ audiodg:  1924] - (5) Zugriff verweigert
   ERROR (48): couldn't access shared memory key 'Session\1\IRIS$MEM$MM405$C.Program Files (x86).IBM.Lotus.Notes.Data' - (2) No such file or directory
   ERROR (5): can't access process [ NLNOTES:  16cc] memory @0x659a2c00 - (22) Invalid argument
   ERROR (0): GetUdpStatistics() call failed with error = ffffffff

   ERROR (0): GetTcpStatistics() call failed with error = ffffffff

   ERROR (0): GetIcmpStatistics() call failed with error = ffffffff</sup>



@jBubbleBoy:
Habe ich eingefügt. Für was genau ist der Befehel?

Noch einmal vielen Dank für eure Hilfe

Grüße
Benni

[Tode]

Ein Notes- Crash produziert immer einen NSD im Verzeichnis "IBM_TECHNICAL_SUPPORT" im Data- Verzeichnis des Benutzers.

Was Du hier gepostet hast, könnte der Anfang eines solchen NSD- Files sein, aber die wesentlichen Informationen fehlen...
Das meinte ich mit

wenn man den NSD- Prozess nicht abwürgt und ihn wirklich bis zum Ende laufen lässt

[Benni1988]

Also ich habe nichts abgebrochen, und wenn dann unabsichtlich...Das war der Schluss des Protkolls, da kommt ziemlich viel davor.

Ich habe den Teil gepostet, weil hier halt Errors vorkamen (Ich kenne mich damit halt leider überhaupt nicht aus)

Du meintest, dass ich hier aus der Datei nicht alles online stellen soll, aufgrund der System-Daten.

[Tode]

Dann suche doch mal bitte im NSD nach "FATAL" und poste den gesamten Stack des FATAL- Threads. Das könnte schon ausreichen, um die Ursache zu finden.

[Benni1988]

So sind aber mehrere "Fatal":




<sup>############################################################
### thread 1/6: [ NLNOTES:  1e14:  0b58] FATAL THREAD (Panic)
### FP=0x00173784, PC=0x7754f971, SP=0x00173718
### stkbase=0x00180000, total stksize=241664, used stksize=51432
### EAX=0x00000000, EBX=0x00000000, ECX=0x00000000, EDX=0x00000000
### ESI=0x00000218, EDI=0x00173760, CS=0x00000023, SS=0x0000002b
### DS=0x0000002b, ES=0x0000002b, FS=0x00000053, GS=0x0000002b Flags=0x00000246
############################################################
 
############################################################
### PASS 2 : FATAL THREAD (Panic) with STACK FRAMES [ NLNOTES:  1e14:  0b58]
############################################################

############################################################
### PASS 3 : FATAL THREAD (Panic) with PARAMETER DATA [ NLNOTES:  1e14:  0b58]
############################################################

Passt das so?</sup>

[Tode]

Der erste Treffer ist der richtige, und die relevante Information ist genau in dem Teil, den Du ausgelassen hast. SO sieht ein Crash mit Stack aus:

############################################################
### FATAL THREAD 8/22 [ NLNOTES:  1564:  1b84]
### FP=0x09f4ce54, PC=0x5722c6df, SP=0x09f4ce44
### stkbase=09f50000, total stksize=262144, used stksize=12732
### EAX=0x0002fff8, EBX=0x00b3c0b8, ECX=0x00b3c0b8, EDX=0x00000000
### ESI=0x00b3c0b8, EDI=0x0002fff8, CS=0x00000023, SS=0x0000002b
### DS=0x0000002b, ES=0x0000002b, FS=0x00000053, GS=0x0000002b Flags=0x00010246
Exception code: c0000005 (ACCESS_VIOLATION)
############################################################
@[ 1] 0x5722c6df nnotes.LSSiMEMMGR::OSHeapBlkFree+239 (2fff8,0,0,0)
@[ 2] 0x5724a54e nnotes.LSSiMEMMGR::BlkFree+46 (b3c0b8,30000,e19c2c4,0)
@[ 3] 0x5729fb88 nnotes.LSSiSAM::BlkFree+40 (b3d1e4,30000,121f7e70,9f4ceb4)
@[ 4] 0x58299635 nnotes.LSsInstance::SAMBlkFree+37 (30000,e19c060,121f7e70,e19c060)
@[ 5] 0x573389e4 nnotes.LSsChunkMgr::Destruct+52 (e19c2c4,0,9f4cedc,57337866)
@[ 6] 0x57337b22 nnotes.LSsModule::Destruct+130 (e19c060,121f7e70,0,177edc18)
@[ 7] 0x57337866 nnotes.LSsInstance::DeleteModule+182 (121f7e70,e19c060,0,0)
@[ 8] 0x57338989 nnotes.LSsInstance::ModuleUnload+121 (121f7e70,e19c060,5cef818,0)
@[ 9] 0x59fa4765 nnotesws.unloadModuleAndREFByModules+197 (177edc18,e19c060,5cebd18,1)
@[10] 0x59fa58cb nnotesws.LSEESessionInstance::checkSyntax+651 (114c0cd0,1019be08,3d74f,1)
@[11] 0x59fa715a nnotesws.CLSEditorRequest::ExecuteExt+1178 (9f4f8fc,9f4fa70,9f4fa68,1019be08)
@[12] 0x6e55250b nxpm.CXmlRequestProcessor::ProcessRequestExt+795 (45590ec,114c0dc0,1019be08,3d74f)
@[13] 0x59b14571 nnotesws.WCTBackgroundMsgThread+625 (0,0,5736fde0,0)
@[14] 0x5736fec1 nnotes.ThreadWrapper@4+225 (0)
 [15] 0x74ba3744 KERNEL32.BaseThreadInitThunk+36 (0)
 [16] 0x77ab9e54 ntdll.RtlSetCurrentTransaction+212 (ffffffff)
 [17] 0x77ab9e1f ntdll.RtlSetCurrentTransaction+159 (5736fde0)