Kaum aus dem Urlaub zurück, schon gleich der erste Hilferuf:
Aus einem Dokument heraus wird eine Mail generiert. Mit der bekannten UNID wollte ich nun in die Historie des Dokumentes einen Link auf die besagte Mail eintragen. Dieses gelingt aber nur, wenn eine View der Mail-Datenbank als Default View definiert ist. Ist dieses nicht der Fall erhalte ich die Fehlermeldung : Could’t get default view id for database (…). Gibt es dafür einen work around?
Hier der Code-Schnipsel:
Set maildb = New NotesDatabase("","")
maildb.OpenMail
Set profil = maildb.GetProfileDocument("CalendarProfile")
Set maildoc = New NotesDocument(maildb)
maildoc.Form = "Memo"
maildoc.Logo = profil.DefaultLogo(0)
maildoc.Principal = profil.Owner(0)
maildoc.SendTo = thisdoc.CallerEmail(0)
Call uiws.EditDocument(True, maildoc)
Set uidoc = uiws.CurrentDocument
uidoc.FieldAppendText "Subject","Support Case: "+IADCall
………………………………
Set rtitem = thisdoc.GetFirstItem( "History" )
If ( rtitem.Type = RICHTEXT ) Then
Call rtitem.AddNewLine( 1 )
Call rtitem.appendText(Date$)
Call rtitem.AppendText(" Mail to Caller by ")
Call rtitem.appendtext(session.CommonUserName & " --> ")
Call rtitem.AppendDocLink( maildoc, "Maildoc" )
<Fehlermeldung>
Alexis
Hallo Thomas,
das Einfügen folgender Zeilen bringt leider keinen Erfolg:
Dim view As NotesView
Set view = maildb.GetView("All by Date") bzw. Set view = maildb.GetView("($All)")
view.IsDefaultView = True
Hallo Driri,
unsere IBM-Hotline empfiehlt genau obigen Code inclusive der Aussage, dass es KEINE default view in der DB gibt.
Bin ratlos :-:
Alexis
Hallo,
wenn die $Inbox die default view wäre, dann dürfte doch besagte Fehlermeldung gar nicht kommen! Oder?
Im Debugger wird mir trotz des ergänzenden Codes
view.IsDefaultView = True
Bin ratlos, habt Ihr noch eine Idee?
Alexis