Hallo,
hier das Script, reproduzierbar und tritt auch beim Kollegen auf.
Um 8.00 Uhr hat es noch funktioniert. Es ist in einer gemeinsamen Aktion.
Sub Click(Source As Button)
Dim s As New NotesSession
Dim db As Notesdatabase
Dim mail As Notesdocument
Dim newmail As Notesdocument
Dim ident As String
Dim dbkey As Variant
Set db = s.CurrentDatabase
Set mail = s.DocumentContext
Set dbkey = New getKeys("SNTadminkey")
If Not mail Is Nothing Then
ident = dbkey.getListParameter("Spam-Identifier", "Mail")
Dim subject As String
Dim mime As NotesMIMEEntity
Dim header As NotesMimeHeader
s.ConvertMIME = False
Set mime = mail.GetMIMEEntity
If Not(mime Is Nothing) Then 'Prüfen auf MIME
Set header = mime.GetNthHeader("Subject")
If Not header Is Nothing Then'Header auslesen
subject = header.GetHeaderVal
If Instr(subject,ident) > 0 Then
subject = Strright(subject,ident)
Call header.SetHeaderVal(subject)'Subject setzen
End If
End If
If Msgbox("Soll die Mail als fälschlicherweise als Spam markiert an die Administration gemeldet werden? ",36,"Falsche Spam-Mail melden") = 6 Then
ident = dbkey.getListParameter("Spam-Message", "Mail")'Empfänger der Meldungsmail
'Header in die Mail schreiben und Meldung versenden
Dim body As NotesRichTextItem
Set newmail = db.CreateDocument
Set body = newmail.CreateRichTextItem("Body")
Call body.AddNewline(2)
Call body.AppendText(mime.Headers)
Call body.AddNewline(2)
newmail.Form = "Memo"
newmail.Subject = "Fälschlicherweise als Spam markierte Mail"
newmail.SendTo = ident
newmail.Send(False)
End If
'Spam Markierung aufheben
ident = dbkey.getListParameter("Spam-Field", "Mail")
Dim item As NotesItem
Set item = mail.GetFirstItem(ident)
If Not item Is Nothing Then
Call item.Remove
End If
Hier der Fehler --> Call mail.Save(True,False)
Call mail.RemoveFromFolder("JunkMail")
End If
s.ConvertMIME = True
Dim ws As New NotesUIWorkspace
Call ws.ViewRefresh
End If
End Sub
mfg
Kjeld
Habe den Code mal überflogen,
also auch wenn ich nicht sicher bin, aber ich könnte wetten es liegt an der letzten Zeile
Dim ws As New NotesUIWorkspace
Call ws.ViewRefresh
der ViewRefresh ist mir auch schon ein paar mal um die Ohren geflogen, es kommt auf den Kontext an (also ob Deine Aktion aus einer Maske oder View heraus aufgerufen wird und ob Du im Read- oder Edit-Mode bist!
Kommentier mal den Refresh aus und versuchs dann nochmal, nur zu Testzwecken, Refreshe dann per Hand mit F9, wenn das geht mußt Du die Refresh-Methodik ändern.