Domino 9 und frühere Versionen > ND6: Entwicklung

Mit (Excel) VBA eine Notes DB durchsuchen

(1/2) > >>

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

Navigation

[0] Themen-Index

[#] Nächste Seite