Mit (Excel) VBA eine Notes DB durchsuchen

[Markus1984]

Hallo,
ich habe folgendes Problem:
Ich will von  VBA eine Mail mit Notes versenden, da nicht bei jedem User das Mailfile lokal gepflegt ist muss ich das Mailfile aus meiner names.nsf auslesen. Hat hierfür jemand eine Lösung?
Momentan hänge ich daran, dass ich die Items aus den Dokumenten nicht lesen kann.


Mein bisheriger Code:

Sub mail()
Dim server As String, mailfile As String
Dim session As Object
Dim DB As Object
Dim doc As Object
Dim view As Object
Dim viewname As String
Dim dbname As String


viewname = "$Users"
dbname = "names.nsf"

Set session = CreateObject("notes.notessession")

    user = session.UserName
    server = session.GetEnvironmentString("MailServer", True)
   
Set DB = session.GetDatabase(server, dbname)
Set view = DB.GetView(viewname)
Set doc = view.GetFirstDocument 'bishier geht alles
mailfile = doc.GetItemValue("Mailfile") 'kommt die Meldung: "Typen unverträglich"

End Sub

[ascabg]

Hi,

GetItemValue liefert Dir einen Array zurueck.

Also
==> mailfile = doc.GetItemValue("Mailfile)(0)

Andreas

[Tode]

Dein Fehler ist: GetItemValue liefert ein Array und mailfile ist eine String- Variable.

Das muss also heissen "GetItemValue( "Mailfile" )( 0 )"

Aber warum verwendest Du nicht einfach die Befehle, die Notes sowieso mitbringt ?

Dim db as New NotesDatabase( "" , "" )
call db.OpenMail

HTH
Tode

[koehlerbv]

Vielleicht, weil die Methode OpenMail für COM nicht zur Verfügung steht?

Geeignet ist in diesem Fall die Methode notesDatabase = notesDbDirectory.OpenMailDatabase.

Bernhard

[ascabg]

Hi Bernhard,

Versteh ich jetzt nicht ganz.

Er kommt doch schon bis zum Auslesen des Dokumentes. Ergo ist die Db doch schon offen.

Andreas

[Markus1984]

Danke für eure schnelle Antwort.

Bekomme nun den Wert übergeben.

[koehlerbv]

Versteh ich jetzt nicht ganz.

Er kommt doch schon bis zum Auslesen des Dokumentes. Ergo ist die Db doch schon offen.

Folgendes ist damit gemeint:
"This method is supported in LotusScript only. For COM, use OpenMailDatabase in NotesDbDirectory."

Bernhard

[Tode]

@ascabg: Du hast recht.. die Diskussion von Bernhard und mir ist wenig zielführend, weil der Frager über diesen Stand ja schon lange raus ist.

@koehlerbv: hast recht. habe die Hilfe nicht gelesen. Aber ich glaube, es ist auch nicht nötig, weiter zu dieskutieren. Dem Fragenden wurde geholfen.

Gruß
Tode