Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
844to848
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
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Lotus Notes und Anhänge

Lotus Notes und Anhänge
09.02.2007 08:58:38
stormy_weathers
Hallo Spezialisten,
ich habe hier in der Vergangenheit eine Lösung gefunden mit Exel eine Datei über Lotus Notes zu versenden. Nun interessiert mich aber die "andere Richtung":
Kennt jemand eine Möglichkeit einen Anhang aus einer Mail im Notes via Excel VBA als Datei auf der Festplatte abzulegen, oder den Anhang aus Excel heraus zu öffnen?
Leider finde ich hier im Forum nur den Weg Datei als Anhang in Mail versenden...
Besten Dank im voraus für Bemühungen/Informationen/Anregungen!!!
stormy

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

Betreff
Datum
Anwender
Anzeige
AW: Lotus Notes und Anhänge
09.02.2007 09:22:10
PeterB
Hallo,
für das folgende Programmteil brauchst du u.a. die Document-UnID und den Feldnamen, welches den Anhang enthält und die Angelegenheit funktioniert auch nur mit einem Anhang.

Function P_350f_ExtrAttmFromSpecItem(sNotSrv As String, _
sNsfFnm As String, _
sNsfDocUid As String, _
sNsfItmNam As String, _
sUdp As String) As String '070102
'Löst/kopiert angehängte Datei aus benanntem Feld eines Notes-Dokumentes in angegebenes Verzeichnis
'und liefert dessen Dateinamen zurück. Löscht ggf. Datei gleichen Namens.
'Bei Fehler wird "" zurückgegeben.
Dim sNotSes As Object 'NotesSession
Dim sNsf As Object    'NotesFile
Dim sNsfDoc As Object 'NotesDokument
Dim sRTI As Object    'RichTextFeld
Dim sUdf As Object    'UserDataFile
Dim sUdfNam As String 'UserDataFileName
'   sNotSrv            Notes Server
'   sNsfFnm            NotesFileFullName
'   sNsfDocUid         NotesDokumentUniversalId
'   sNsfItmNam         NotesDokumentFeldname
'   sUdp               UserDataPath
P_350f_ExtrAttmFromSpecItem = ""
Set sNotSes = CreateObject("Notes.NotesSession")
Set sNsf = sNotSes.GetDatabase(sNotSrv, sNsfFnm)
Set sNsfDoc = sNsf.GetDocumentByUNID(sNsfDocUid)
sUdfNam = sNsfDoc.GetItemValue("$FILE")(0)
Set sRTI = sNsfDoc.GetFirstItem(sNsfItmNam)
Set sUdf = sRTI.GetEmbeddedObject(sUdfNam)
If Dir(sUdp & "\" & sUdfNam) <> "" Then Kill sUdp & "\" & sUdfNam
sUdf.ExtractFile sUdp & "\" & sUdfNam
If Err = 0 Then P_350f_ExtrAttmFromSpecItem = sUdfNam
On Error GoTo 0
Set sUdf = Nothing
Set sRTI = Nothing
Set sNsfDoc = Nothing
Set sNsf = Nothing
Set sNotSes = Nothing
End Function

Viel Glück
Peter
Anzeige
AW: Lotus Notes und Anhänge
09.02.2007 09:25:31
PeterB
Hallo,
funktioniert nur bein EINEM Anhang, bekannter Doc-UnID und bekanntem Feld des Anhangs:

Function P_350f_ExtrAttmFromSpecItem(sNotSrv As String, _
sNsfFnm As String, _
sNsfDocUid As String, _
sNsfItmNam As String, _
sUdp As String) As String '070102
'Löst/kopiert angehängte Datei aus benanntem Feld eines Notes-Dokumentes in angegebenes Verzeichnis
'und liefert dessen Dateinamen zurück. Löscht ggf. Datei gleichen Namens.
'Bei Fehler wird "" zurückgegeben.
Dim sNotSes As Object 'NotesSession
Dim sNsf As Object    'NotesFile
Dim sNsfDoc As Object 'NotesDokument
Dim sRTI As Object    'RichTextFeld
Dim sUdf As Object    'UserDataFile
Dim sUdfNam As String 'UserDataFileName
'   sNotSrv            Notes Server
'   sNsfFnm            NotesFileFullName
'   sNsfDocUid         NotesDokumentUniversalId
'   sNsfItmNam         NotesDokumentFeldname
'   sUdp               UserDataPath
P_350f_ExtrAttmFromSpecItem = ""
Set sNotSes = CreateObject("Notes.NotesSession")
Set sNsf = sNotSes.GetDatabase(sNotSrv, sNsfFnm)
Set sNsfDoc = sNsf.GetDocumentByUNID(sNsfDocUid)
sUdfNam = sNsfDoc.GetItemValue("$FILE")(0)
Set sRTI = sNsfDoc.GetFirstItem(sNsfItmNam)
Set sUdf = sRTI.GetEmbeddedObject(sUdfNam)
If Dir(sUdp & "\" & sUdfNam) <> "" Then Kill sUdp & "\" & sUdfNam
sUdf.ExtractFile sUdp & "\" & sUdfNam
If Err = 0 Then P_350f_ExtrAttmFromSpecItem = sUdfNam
On Error GoTo 0
Set sUdf = Nothing
Set sRTI = Nothing
Set sNsfDoc = Nothing
Set sNsf = Nothing
Set sNotSes = Nothing
End Function

Viel Glück
Peter
Anzeige
AW: Lotus Notes und Anhänge
09.02.2007 11:46:33
stormy_weathers
Hallo Peter,
danke für die Antwort. Leider bin ich in Sachen Notes nicht besonders Firm... Ich hab schon schwierigkeiten an die Einzelnen Angaben zu kommen...
Das KO-Kriterium ist aber die Tatsache, dass die Doc-UnID (wenn das die Nummer ist welche ich in Erfahrung gebracht habe) immer ändert. Der Datei-Anhang ist zwar immer der selbe (auch vom Namen) aber die ID ist unterschiedlich. Es ist eine Mail die mir automatisch eine Auswertung zuschickt. Diese Auswertung würde ich gerne weiterverarbeiten.
Trotzdem vielen Dank!!!
Grüße
stormy

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

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