Hallo zusammen,
ich möchte aus einem VBScript ein Mail generieren. Wenn das Notes bereits geöffnet ist klappt das so wie ich es mir vorstelle.
Aber wenn ich die Notes-DB erst öffnen muss, dann wird das Mail nicht erstellt. Es hat den Anschein, daß nach dem Öffnen des Notes (was noch korrekt gemacht wird) das Script nicht weiter ausgeführt wird.
Wenn in dem Code-Ausschnitt der ELSE-Zweig durchlaufen wird, dann wird z.B. die MsgBox nach dem Öffnen nicht mehr angezeigt.
Hat jemand ne Idee was fehlen oder falsch sein könnte?
Danke & Gruss,
El-Barto
(Evtl. noch von Bedeutung: Das VBScript wird als AddOn von einer Standard-Software gerufen.)
.
.
.
Set newSession = CreateObject("Notes.NotesSession")
set oCurrentMailDb = newSession.CurrentDatabase
If oCurrentMailDb.IsOpen = True Then
MsgBox ">>> Lotus Notes bereits offen ..."
Else
MsgBox ">>> Lotus Notes wird geöffnet ..."
oCurrentMailDb.OPENMAIL
End If
MsgBox "Nach dem Öffnen ..."
.
.
.
ja stimmt, ich habe "LotusNotes" gleich der "MailDB" gesetzt weil mich nur die interessiert ;D
Habe jetzt eine Lösung, die zumindest funktioniert (weiß aber nicht ob das die eleganteste Lösung ist):
Set oSession = CreateObject("Notes.NotesSession")
strMailServer = oSession.GetEnvironmentString("MailServer",True)
strUserName = oSession.UserName
strMailDatabase = Left(strUserName, 1) & Right(strUserName, (Len(strUserName) - InStr(1, strUserName, ""))) & ".nsf"
Set oCurrentMailDb = oSession.getDatabase(strMailServer, strMailDatabase)
oCurrentMailDb.OPENMAIL
Danke für die schnelle Antwort!
El-Barto
Hallo Bernhard,
aus dem was ich hier im Forum gefunden habe, nehme ich an Du meinst ich soll das:
strMailServer = oSession.GetEnvironmentString("MailServer",True)
strUserName = oSession.UserName
strMailDatabase = Left(strUserName, 1) & Right(strUserName, (Len(strUserName) - InStr(1, strUserName, ""))) & ".nsf"
Set oCurrentMailDb = oSession.getDatabase(strMailServer, strMailDatabase)
oCurrentMailDb.OPENMAIL
durch das
Set notesdir = oSession.GetDbDirectory("")
Set oCurrentMailDb = notesdir.OpenMailDatabase
ersetzen, oder?
Das funktioniert bei mir aber nicht ...