Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
460to464
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
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ActiveSheet per Lotus Notes verschicken

ActiveSheet per Lotus Notes verschicken
30.07.2004 13:43:28
MikeS
Hallo,
nach längerer Recherche im Forum schreibe ich nun doch
einen Beitrag zu diesem Thema.
Ich möchte gern das aktive Blatt als Mailanhang verschicken.
Da ich allerdings die Empfänger manuell eingeben möchte,
dürfte das Blatt nicht direkt verschickt werden!
Vielleicht könnt Ihr mir helfen.
Vielen Dank
MikeS

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ActiveSheet per Lotus Notes verschicken
30.07.2004 13:45:18
Michl
Hallo,
ist das dann nicht ein Notes-Problem? Da kann ich dir evtl. auch helfen, versteh aber grad nicht wo das Problem ist!? Erklär doch mal genauer.
Gruß
Michael
AW: ActiveSheet per Lotus Notes verschicken
30.07.2004 13:51:00
MikeS
Hallo,
ich möchte aus dem aktiven Blatt heraus, z.B. nach drücken eines Buttons,
daß das bereits im Hintergrund geöffnete Lotus Notes auf dem Bildschirm erscheint
und mein aktives Excelblatt bereits als Anhang eingefügt wurde.
Wenn das überhaupt möglich ist.
Danke, Mike
AW: ActiveSheet per Lotus Notes verschicken
30.07.2004 14:05:09
Bertram
Hi Mike,
hier ein Auszug aus meinem Code. Mußt du nur noch entsprechend anpassen.


Sub SendMail()
Dim session As Object
Dim db As Object
Dim doc As Object
Dim strTo As Variant
Dim strPath As String
Dim EmbedObj As Object 'The embedded object (Attachment)
Dim AttachME As Object 'The attachment richtextfile object
'Mail erstellen
Set session = CreateObject("Notes.NotesSession")
Set db = session.CURRENTDATABASE
On Error GoTo Fehler
Set doc = db.CREATEDOCUMENT
doc.Form = "Memo"
doc.SendTo = "Dein Addressat"
doc.CopyTo = "Deine Copies"
doc.Subject = "Betreff"
doc.body = "Dein Text"
doc.SAVEMESSAGEONSEND = True
'Set up the embedded object and attachment and attach it
'Daten zum Auslesen
Set AttachME = doc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", strPath & "\CI Temp.xls") ', "Attachment")
doc.PostedDate = Now()
Call doc.send(False, strTo)
Set db = Nothing
Set doc = Nothing
Set session = Nothing
End Sub
(Ist auch mit Hilfe des Forums erstellt:))
Gruß
Bertram
Anzeige
AW: ActiveSheet per Lotus Notes verschicken
MikeS
Hallo Bertram,
die Mail ist zwar rausgegangen, was schon ein Erfolg ist,
aber leider ohne Anhang.
Hast Du vielleicht eine Idee, woran das liegt?
Dankeschön, ciao Mike
AW: ActiveSheet per Lotus Notes verschicken
30.07.2004 14:59:46
bertram
Wie sieht dein Makro denn jetzt aus?
AW: ActiveSheet per Lotus Notes verschicken
30.07.2004 15:07:12
MikeS
Hallo Bertram,
wie folgt... (vielleicht hab ich auch Mist gebaut)


Option Explicit
Sub SendMail()
Dankeschön. Mike
AW: ActiveSheet per Lotus Notes verschicken
30.07.2004 15:13:37
Bertram
Hi Mike,
ändere die Zeile
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", strPath & "\CI Temp.xls") ', "Attachment")
so ab
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", "kompletter Pfad deiner Datei")
Sollte funktionieren (Das andere war noch das zusammengestückel des Pfades meiner Datei).
Gruß
Bertram
Anzeige
AW: ActiveSheet per Lotus Notes verschicken
30.07.2004 16:18:03
MikeS
Hi Bertram,
"fast" perfekt.
Mail ist rausgegangen mit Anhang, aber mein Code sollte "zuhause" bleiben,
also nicht mitgeschickt werden.
Ist das möglich?
Vielen Dank auf jeden Fall für Deine Mühe.
Ciao Mike
AW: ActiveSheet per Lotus Notes verschicken
30.07.2004 16:48:55
Bertram
Das ist schon möglich. Hier mal zwei Ansaätze:


Sub ModulLöschen()
ActiveWorkbook.VBProject.VBComponents.Remove ActiveWorkbook.VBProject.VBComponents("Modul2")
End Sub
Public Sub Makro_loeschen()
MsgBox "Hier stehen Deine Makrobefehle"
'Beginn der Zeilenlöschung
With Application.VBE.ActiveVBProject.VBComponents("modul1").CodeModule
    .DeleteLines 1, 7 'Zeilenlöschung (ab Zeile1, Anzahl der Zeilen)
End With
End Sub
Gruß
Bertram
Anzeige
Nachtrag
30.07.2004 17:30:12
Bertram
Hi Mike,
du solltest natürlich erst dein Tabellenblatt in eine andere Mappe kopieren und diese senden, sonst ist dein Code weg.
Gruß
Bertram
AW: Nachtrag
MikeS
guten morgen bertram.
vielen dank für deine mühe. werd es morgen im büro sofort ausprobieren.
dir einen schönen sonntag.
ciao mike
AW: ActiveSheet per Lotus Notes verschicken
30.07.2004 13:45:18
Michl
Hallo,
ist das dann nicht ein Notes-Problem? Da kann ich dir evtl. auch helfen, versteh aber grad nicht wo das Problem ist!? Erklär doch mal genauer.
Gruß
Michael

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