Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
788to792
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
788to792
788to792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zugriff auf Lotus notes Email-Datenbank aus Excel

Zugriff auf Lotus notes Email-Datenbank aus Excel
10.08.2006 12:12:38
Thomas
Hallo Liste,
ich möchte von Excel aus auf eine Lotus Notes Email-Datenbank zugreifen und nach einem bestimmten Betreff der Emails suchen.
Meine Versuche den Quellcode, den ich hier im Archiv gefunden habe, haben zu keinem gewünschten Ergebnis geführt. Mein größtes Problem war die Suche nach den betreffenden Emails nach folgendem Quellcode:
Set session = CreateObject("Notes.Notessession")
Set db = session.getdatabase("SERVERNAME", "VERZEICHNIS\DATENBANKNAME.NSF")
Set view = db.getview("Nach Kategorie")
Set doc = view.GetFirstDocument()
Kann mir jemand einen Tipp geben, wie ich dieses Problem lösen kann.
Danke Grüße Thomas

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zugriff auf Lotus notes Email-Datenbank aus Excel
10.08.2006 15:55:57
Peter
Hier ein Code-Fragment, mit dem ich diese Arbeit erledige:
Zuerst ein Datenfeld, welches die Suchbegriffe beinhaltet und zwar in genau der Anzahl der Dimensionen, die die entsprechende Notes-Ansicht erwartet.
In meinem Fall 2. sStr hat eine interne Filialnummer zum Inhalt.
Es wird im weiteren Verlauf eine NotesDocumentCollection erzeugt, die genau die Dokumente mit den gewünschten Stichworten aus der verwendeten View hat.
Die Anzahl wird geprüft (NumberTotal: sNt). Die Dokumente werden dann sequentiell abgearbeitet.
In Ihrem Beispiel ist sNsfNam eben der DOS-Name der Mailbox.
sAry(0) = "Praktikumsbetrieb"
sAry(1) = sStr
Set NotSes = CreateObject("Notes.NotesSession")
Set Nsf___ = NotSes.GetDatabase(NotSrvDatNam, sNsfNam)
Set Nsf___Viw = Nsf___.GetView("3. Spezifikation nach\Stichworte")
Set Nsf___Dcl = Nsf___Viw.GetAllDocumentsByKey(sAry, True)
sNt = Nsf___Dcl.Count
si = 0
For sn = 1 To sNt
Set Nsf___Doc = Nsf___Dcl.GetNthDocument(sn)
If Nsf___Doc.GetItemValue("Form")(0) = "Company" Then
Viel Glück
Peter
Anzeige
AW: Zugriff auf Lotus notes Email-Datenbank aus Excel
11.08.2006 07:56:58
Thomas
Hallo Peter,
herzlichen Dank für Deinen Tipp. Dadurch habe ich feststellen müssen, dass mein Problem bereits beim öffnen der Lotus Notes Email-Datenbank liegt.
Muss ich hier irgendwelche wichtigen Verweise auswählen?
SAry(0) = "Statusbericht" 'Betreff der Email nach dem gesucht werden soll
Set session = CreateObject("Notes.NotesSession")
Set db = session.GETDATABASE("", "mail/tbunnema.nsf")
Set view = db.GETVIEW("Thema")
Set alldoc = view.GETALLDOCUMENTSBYKEY(SAry, True)
countdoc = alldoc.Count
For zeile = 1 To countdoc
Set doc = alldoc.getnthdocuments(zeile)
If doc.getitemvalue("Form")(0) = "Statusbericht" Then
a = 1
End If
Next zeile
Dank für die Hilfe
Grüße Thomas
Anzeige
AW: Zugriff auf Lotus notes Email-Datenbank aus Excel
11.08.2006 11:49:29
Peter
Hallo Thomas,
ich bin mir nicht ganz klar darüber, an welcher Stelle es bei deinem Code jetzt klemmt.
Ggf. mit Einzelschritt arbeiten und Variable und Err als Überwachungsausdrücke anzeigen lassen.
Was mich erstaunt, ist, dass 'Statusbericht' als Suchbegriff vorkommt und auch als Vorlagenbezeichnung im Standardfeld 'Form'. Stimmt das ?
Falls es noch nicht geht, bitte präzisieren.
Gruss
Peter

132 Forumthreads zu ähnlichen Themen

Excel-VBA und Lotus Notes
Markus

Hallo zusammen,
ich möchte eine Tabelle über Lotus Notes senden. Beim Verwenden des Befehls SendMail bekomme
ich eine Fehlermeldung. Gibt es für Lotus Notes andere Befehle oder weis jemand, wie das bei Lotus Notes funktioniert ?
Gruß
Markus
11.08.2008 15:07:27
Thread-ID: 1000882
4 Beiträge
Anzeige
Mail aus Excel 97 via Lotus Notes
Björn

Hallo zusammen,
habe folgenden Code im Archiv gefunden leider hängt er sich bei "Mail erstellen" an
CreateObject("Notes.NotesSession") auf. Fehlermeldung Laufzeitfehler 429
"Ojekterstellung durch ActiveXKomponente nicht möglich"
Hat jemand eine Idee wieso, und wie ich abhilfe s...
27.01.2009 11:46:09
Thread-ID: 1044145
5 Beiträge
Lotus Notes: Nutzung Mail-Vorlage
Peter

Hallo,
aus meinem Lotus Notes möchte ich gerne aus Excel heraus mails versenden, was auch funktioniert. Allerdings habe ich noch nicht den Befehl gefunden, dass standardmäßig meine Mail-Vorlage verwendet wird (Vorgaben, Allgemein und Signatur).
2. Frage: Wie kann ich mehrere Adressea...
16.12.2009 08:33:29
Thread-ID: 1123871
2 Beiträge
Anzeige
mailen in Notes
kein

Hallo, ich habe viel versucht, aber ich bin am Ende. Und es kann nicht so schwer sein....
Ich habe eine ToDo-Liste in Excel, mit lfd. Nummer, Kurztext, Beschreibung, Verantwortlichem, Termin.
Über ein Makro möchte ich nun einen Eintrag auswählen und an den Verantwortlichen senden. In de...
22.01.2010 22:03:49
Thread-ID: 1132252
2 Beiträge
Excel und Email mit Lotus Notes und Gruppen
Tobias

Hallo zusammen,
wir setzen zum Versand von EMail Lotus Notes in der Version 8 ein.
Aus Excel gelingt es mir E-Mails zu erstellen (siehe unten). Wir habe sog. Teamboxen, also zusätzliche Mail-Datenbanken, in unserer Maildatenbank integriert (Lesezeichen).
Leider gelingt es mir nicht,...
24.02.2010 12:29:58
Thread-ID: 1141030
5 Beiträge
Mailen mit Lotus Notes
Klaus

Sub KapaMailen() Sheets("Sofo").Select 'Blattschutz deaktivieren 'Blatt für Fax ActiveSheet.Shapes("Drop1").Visible = False ActiveSheet.Shapes("Drop2").Visible = False ActiveSheet.Shapes("Drop3").Visible = False ActiveSheet.Shapes("Drop4").Visible = False ActiveSheet.Shapes("Drop5").Visible =...
06.03.2010 10:01:02
Thread-ID: 1143884
2 Beiträge
Mailen mit Lotus Notes, Kopie an:
Klaus

Hallo Excelprofis, ich habe sämtliche Beiträge durchwühlt, komme aber leider nicht weiter. Ich habe mehr als 10 Mail Empfänger, sobald ich einen mehr eingebe geht das Makro stehen. Habe versucht die anderen Namen in Kopie zu nehmen, wo mein Horizont aber nicht reicht.
Könnt ihr mir bitte he...
06.03.2010 10:10:59
Thread-ID: 1143885
5 Beiträge
Sheet mit Lotus Notes versenden mit Kopie an:
Klaus

Hallo Excelprofis,
habe den gleichen Betrag schon letzte Woche eingestellt, leider bin ich nicht weiter gekommen.
Vielen dank erst mal an mumpel, aber die Makros habe nicht funktioniert. Kannst du oder jemand anders mir mal zur Hand gehen?
Ich möchte eien Mail versenden mit mehr als...
10.03.2010 01:11:35
Thread-ID: 1144701
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
4
1
1
1
4
1
4
5
7
4
2
2
5
4
3
4
4
5
7
3
6
1
3