Rückgabe neues Doc bei Aufruf aus Function

[cococo69]

Hallo,

diesen Code von Matthias (TMC) habe ich geringfügig geändert als Funktion in eine Script-Bibliothek gesteckt.

Code

Function MailErstellen As Variant
        Dim ws As New NotesUIWorkspace
        Dim uidoc As NotesUIDocument  
        Dim maildb As NotesDatabase
        Dim maildoc As NotesDocument
        Dim profil As NotesDocument
       
        Set uidoc = ws.CurrentDocument 'ui
        Dim thisdoc As NotesDocument
        Set thisdoc = uidoc.Document 'ui
       
        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.EMail(0)
       
        Call ws.EditDocument(True, maildoc)
        Set uidoc = ws.CurrentDocument 'ui
        Call uidoc.GotoField("Subject")  
        Set MailErstellen = maildoc
       
End Function 

Nun möchte ich diese Funktion so aufrufen, dass das Mail-Dokument erstellt wird und ich es für weitere Manipulationen im Zugriff habe.

Mein Aufruf:

Code

Sub Click(Source As Button)
        Dim doc As NotesDocument        
        Set doc = MailErstellen
End Sub 

Fehlermeldung:
Illegal reference to: MAILERSTELLEN

Rufe ich lediglich
MailErstellen
auf, so funktioniert der Code einwandfrei (ein neues Mail wird erstellt), ich habe es aber nicht im Zugriff.

Wie muss ich vorgehen???

Gruß
Armin

[ZaLudtske]

Hallo,

damit das Funktioniert mußt du einen Verweis auf die Datenbank als Parameter beim Aufruf der Prozedur übergeben.

MailErstellen(ndbApp as notesdatabase)

Achtung: Diesen Sieteneffekt gibt es noch zwischen vielen anderen Objekten

Rainer

[0xse]

Muss er? Er holt sich doch die DB aus dem WS.

Ich würd mal spontan sagen das es der falsche Rückgabetyp ist:
Function MailErstellen As NotesDocument

[ZaLudtske]

Hallo,

nein, er muß die Referenz auf die Datenbank übergeben, sonst wird beim Rücksprung die Referenz auf die offene DB gelöscht und der Rückgabewert wird nothing. Das kann man wunderbar im Debugger nachvollziehen.

Anbei noch ein Link auf das Posting, das ich mal ins Forum eingestellt habe.

http://atnotes.de/index.php?topic=30619.0

Rainer

[cococo69]

Muss er? Er holt sich doch die DB aus dem WS.

Ich würd mal spontan sagen das es der falsche Rückgabetyp ist:
Function MailErstellen As NotesDocument

Danke Oxse,

das war die Lösung!!!

Gruß
Armin