Lotus Notes, Arbeitsumgebung wechseln

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

"Diese Arbeitsmappe":
----------------------------------
Option Explicit


Private Sub Workbook_Open()
On Error Resume Next
Call Fehlerspeicher
End Sub

---------------------------------
"Modul1":
--------------------------------
Option Explicit
Sub TestProzedur()
On Error GoTo Fehlerbehandlung
' Inhalt der Prozedur
MsgBox 1 / 0 ' Fehlerbeispiel
Exit Sub
Fehlerbehandlung:
Call Fehlermeldung(Fehlertext:= _
"Name der Fehlermeldung, damit ich aus der eMail lesen kann, in welcher Prozedur der Fehler entstanden ist", _
Fehlernummer:=Err.Number, Beschreibung:=Err.Description)
Resume Next
End Sub
Sub Fehlermeldung(Fehlertext As String, Fehlernummer As Integer, Beschreibung As String)
On Error Resume Next
Dim Text As String
Dim Anzahl As Integer
Dim Schluessel As String
Text = ActiveCell.Address & "," & Fehlertext & "," & Fehlernummer & "," & Beschreibung & "," & Now
Anzahl = GetSetting("MeinProjekt", "Fehler", "AnzahlFehler") + 1
SaveSetting "MeinProjekt", "Fehler", "AnzahlFehler", Anzahl
Schluessel = "Fehler " & Format(Anzahl, "0000")
SaveSetting "MeinProjekt", "Fehler", Schluessel, Text
End Sub
Sub Fehlerspeicher()
On Error Resume Next
Dim Empfaenger
Dim Betreff
Dim Text(1 To 50)
Dim i As Integer
Dim j As Integer
Dim Anzahl As Integer
Anzahl = GetSetting("MeinProjekt", "Fehler", "AnzahlFehler")
If Anzahl = 0 Then Exit Sub
If Anzahl Empfaenger = "meineAdresse@t-online.de"
Betreff = "Automatische Fehlermeldung MeineTabelle"
For i = 1 To j
Text(i) = GetSetting("MeinProjekt", "Fehler", "Fehler " & Format(i, "0000"))
Next i
DeleteSetting "MeinProjekt", "Fehler"
NotesMail Empfaenger, Betreff, Text()
End Sub
Function NotesMail(Empfaenger As Variant, Betreff As Variant, Text As Variant)
Dim Notes As Object, NotesDB As Object, NotesMailDoc As Object
Dim SendItem, RTitem
Dim i As Integer
On Error GoTo Abbrechen
Set Notes = GetObject("", "Notes.Notessession")
Set NotesDB = Notes.GETDATABASE("", "")
Call NotesDB.OPENMAIL
Set NotesMailDoc = NotesDB.CREATEDOCUMENT
NotesMailDoc.Form = "Memo"
Call NotesMailDoc.Save(True, False)
Set SendItem = NotesMailDoc.APPENDITEMVALUE("SendTo", "")
SendItem.APPENDTOTEXTLIST Empfaenger
NotesMailDoc.Subject = Betreff
Set RTitem = NotesMailDoc.CREATERICHTEXTITEM("Body")
For i = 1 To UBound(Text)
RTitem.APPENDTEXT (Text(i))
If Text(i) "" Then RTitem.ADDNEWLINE (1)
Next
RTitem.ADDNEWLINE (1)
Call NotesMailDoc.Send(False)
NotesMailDoc.RemoveItem ("DeliveredDate")
Call NotesMailDoc.Save(True, False)
Call Notes.Close
Set Notes = Nothing
Set NotesDB = Nothing
Abbrechen:
End Function
----------------------
Danke im Voraus!
Freue mich auf Kommentare, Fragen, Ideen.
Gruß, Florian aus Berlin

Hallo, Bertram,
diesen Beitrag hier meinte ich: https://www.herber.de/forum/messages/841081.html
*** Lass uns doch mal definieren:
*** Fehlermeldung = Fehlermeldung im wörtlichen Sinne, also Excel oder VBA
*** Fehlernachricht = Deine generierten Fehlermeldungen in der Registry
OK.
"Fehlernachricht": hat sich ja erledigt, die war ja zu keinem Zeitpunkt relevant. Und dass Du die nicht gemeint haben kannst, hätte mir auch selbst klar sein können.
In meinem Beginn-Posting schrieb ich etwas über eine Fehlermeldung. Da hatte ich nicht aufgepasst. Es erscheint keine Fehlermeldung, sondern das Memo wird in Notes einfach nicht erstellt. Eine Fehlermeldung hingegen erscheint (und genau das ist meine Verwechslung, nur deshalb gehe ich hier darauf ein, denn es ist nicht aus Excel), wenn ich Lotus Notes über ein anderes Programm aufrufen lasse - FinePrint pdfFactory. Siehe https://www.herber.de/bbs/user/39943.doc
Der VBA-Code in Excel funktioniert in Abhängigkeit von der Arbeitsumgebung in Notes. Was meine ich damit? - Screenshot siehe https://www.herber.de/bbs/user/39950.doc
Ist die Arbeitsumgebung auf INSEL, dann läuft alles rund.
Hat der Anwender Lotus Notes nach der letzten Benutzung in der Arbeitsumgebung BÜRO verlassen, dann läuft der Code nicht. Und genau dieses Problem gibt es ja offensichtlich nicht nur mit dem verwendeten Code, sondern eben auch bei der pdfFactory. Daraus schließe ich, dass es kein VBA-Problem ist, sondern, dass ich in Notes VBA-gesteuert auf INSEL wechseln muss, damit es läuft.
Ich hoffe, jetzt ist alles klar (*ausatme*).
Gruß,
Flori aus Berlin

Beliebteste Forumthreads (12 Monate)

Lotus Notes, Arbeitsumgebung wechseln

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

132 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Lotus Notes, Arbeitsumgebung wechseln

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

132 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread