Anzeige
Archiv - Navigation
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

File--> E-Mail (Lotus Notes) --> excel

File--> E-Mail (Lotus Notes) --> excel
Jens
Hallo,
kann man eingehende Mails über ein Excel Macro in einem bestimmten Zeitinterwall nach Dateien die man vorher in einer Tabelle definiert hat überprüfen lassen und wenn diese Dateien vorhanden sind diese in vorgegene Tabellen einlesen. Denkbar währe auch eine variente das man nur im Explorer in einem File in bestimmten Zeitinterwallen nach vorgegen Dateinamen sucht und bei vorhanden sein diese dann in eine vorgegebene Tabelle einliest.
Hoffe da kann mir jemand weiterhelfen.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: File--> E-Mail (Lotus Notes) --> excel
17.04.2004 00:35:27
Martin
Hallo Jens
es ist kein Problem in einer Notesdatenbank Dokumente nach Dateianhängen zu durchsuchen. Voraussetzung ist natürlich, daß du dich mit Lotus-Skript und den Notes-Klassen auskennst. In Excel kannst du Makros mit OnTime (Siehe Excel Hilfe) Zeitversetzt starten. Der folgende Code ist ein Beispiel wie man auf eine Notesdatenbank zugreift. Die Dateianhänge ermittelst du mit der NotesEmbeddedObject class (Siehe Notes Hilfe)

Sub ZugriffNotes()
Dim session As Object
Dim ws As Object
Dim db As Object
Dim doc As Object
Dim uidoc As Object
Dim DateTime As Object
Dim Collection As Object
Dim Kriterium As String
'Notes Datenbank festlegen
Set session = CreateObject("Notes.NotesSession")
Set ws = CreateObject("Notes.NotesUiWorkspace")
Set db = session.GetDatabase("RIS1", "RVS\\RVSMitgl.nsf")
'  'Notes Datenbank öffnen
'  Call ws.OpenDatabase("RIS1", "RVS\\RVSMitgl.nsf")
' 'Dokumente nach best. Kriterium suchen und öffnen
'  Kriterium = "Form = ""frmMitglieder"""
'  Set Collection = db.Search(Kriterium, DateTime, 0)
'  Set doc = Collection.GetNthDocument(1)
'  Set uidoc = ws.editdocument(True, doc)
'Dokument mit bekannter DocUNID öffnen
Set doc = db.GetDocumentByUNID("1ED26924426440ABC1256AF800725D59")
Call ws.OpenDatabase("RIS1", "RVS\\RVSMitgl.nsf")
Call ws.editdocument(False, doc, True)
End Sub


Grüße
Martin
Anzeige

132 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige