Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
672to676
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
672to676
672to676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

E-Mails versenden aus Lotus Notes

E-Mails versenden aus Lotus Notes
26.09.2005 08:43:45
Matthias
Hallo zusammen,
ich möchte Daten aus einer Excel-Datei direkt über Lotus Notes verschicken. Excel soll dabei einige Datenblätter auslagern und in eine neue Mail kopieren. Der Versand soll anschließend aber nicht automatisch, sondern per "Senden"-Knopfdruck in Lotus funktionieren (ich überprüfe die Datei in der Mail immer gerne nochmal). Weiss jemand, wie das geht? Ich vermute, dass diese Routine irgendwo in den Weiten des Netzes schon existiert, konnte sie aber leider nicht ausfindig machen.
Vielen Dank schonmal
Matthias

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: E-Mails versenden aus Lotus Notes
26.09.2005 10:25:38
Heinz
Hallo Matthias,
diesen Code habe ich aus dem Internet:

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 Resume Next
Set doc = db.CREATEDOCUMENT
doc.Form = "Memo"
doc.SendTo = "heinz.wankmueller@ktn.gv.at"
doc.CopyTo = ""
doc.Subject = "TestBetreff"
doc.body = ThisWorkbook.Worksheets("Tabelle1").Range("I4").Value
'   doc.body = "Mein Body"
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, "", "C:\daten\Excel\00Test\AAATest.xls")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", "C:\daten\Excel\00Test\BKS.xls")
doc.PostedDate = Now()
Call doc.send(False, strTo)
Set db = Nothing
Set doc = Nothing
Set session = Nothing
End Sub

Für jeden Anhang eine eigene Zeile schreiben
Gruß
Heinz
Anzeige
AW: E-Mails versenden aus Lotus Notes
26.09.2005 11:09:38
Matthias
Hallo Heinz,
vielen Dank für die schnelle Antwort. Das Versenden funktioniert wunderbar, aber leider bleibt die Mail nicht als Entwurf stehen, sondern wird direkt rausgeschickt. Dies wollte ich eigentlich verhindern, um vorher die versendeten Daten aus der Mail nochmals prüfen zu können. Weiss jemand, wie ich die Routine anpassen muss, um die Nachricht nur als Entwurf zu speichern?
Vielen Dank im Voraus
Matthias

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