Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1236to1240
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
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei Terminüberschreitung -> Lotus Notes Mail

Bei Terminüberschreitung -> Lotus Notes Mail
Marten
Hallo,
nachdem ich nun länger ohne Hilfe des Forums ausgekommen bin, bräuchte ich nun wieder Unterstützung.
Ich habe eine große Tabelle in der viele Einträge mit einer bestimmten Frist versehen sind. Wenn nun eine Frist überschritten wird, soll eine Mail generiert werden. Soweit so gut, nun aber zu den Tücken:
- Nutze Lotus Notes (habe hier schon gefunden, wie das generell funktionieren sollte:
http://www.bygsoftware.com/Excel/VBA/email_from_lotus_notes.htm
- Es sollen nur die Zeilen mit Terminüberschreitung verschickt werden. Also müssten die betroffenen Zeilen in einen Zwischenspeicher oder so geschrieben werden
Kann mir hier geholfen werden?
Das wäre super. Danke
AW: Bei Terminüberschreitung -> Lotus Notes Mail
10.11.2011 15:40:04
Bertram
Hallo,
vielleicht hilft dir das schon mal weiter. Kannst du sicher umbauen.
Sub SelektionAlsTextInEmail()
Dim i As Long
Dim text As Variant
Dim strText As String
Dim session As Object
Dim db As Object
Dim doc As Object
Dim EmbedObj As Object
Dim AttachME As Object
Dim Workspace As Object
Dim uidoc As Object
For i = ActiveCell.Row To Selection(Selection.Count).Row
text = Range(Cells(i, ActiveCell.Column), Cells(i, Selection(Selection.Count).Column))
text = WorksheetFunction.Transpose(WorksheetFunction.Transpose(text))
strText = strText & Join(text, vbTab) & vbCrLf
Next i
Set session = CreateObject("Notes.NotesSession")
Set db = session.GetDatabase("", "")
If db.IsOpen = False Then db.OPENMAIL
Set doc = db.CreateDocument
With doc
.form = "Memo"
.Subject = "Das ist ein Test"
.Body = strText
.SaveMessageOnSend = True
.PostedDate = Now()
End With
'Mail in LN anzeigen zum Einfügen
Set Workspace = CreateObject("Notes.NotesUIWorkspace")
Set uidoc = Workspace.EDITDOCUMENT(True, doc)
'uidoc.FIELDSETTEXT "Body", strText
Set EmbedObj = Nothing
Set AttachME = Nothing
Set uidoc = Nothing
Set Workspace = Nothing
Set db = Nothing
Set doc = Nothing
Set session = Nothing
End Sub
Gruß
Bertram
Anzeige
AW: Bei Terminüberschreitung -> Lotus Notes Mail
10.11.2011 16:06:06
Marten
Danke. Kann ich wohl doch nicht selber umbauen :)
Aber das geht schon mal in die richtige Richtung. Ich bräuchte in der Mail nur die Spalten, in der der Termin überschritten wird. Geht das?
AW: Bei Terminüberschreitung -> Lotus Notes Mail
10.11.2011 16:15:58
Bertram
Das geht, aber bei mir nicht jetzt. Wenn du dich bis morgen gedulden kannst bastle ich dir morgen vormittag was.
Ich lass den Beitrag aber mal offen.
Gruß
Bertram
AW: Bei Terminüberschreitung -> Lotus Notes Mail
10.11.2011 16:24:41
Marten
Na klar. Hat Zeit. Vielen Dank.
AW: Bei Terminüberschreitung -> Lotus Notes Mail
11.11.2011 11:19:24
Bertram
Hallo Marten,
hier mal ein kleines Beispiel:
Alle Zeilen (Spalte A-C) deren Datum in Spalte A kleiner Heute ist, werden in die Mail kopiert.
https://www.herber.de/bbs/user/77458.xls
Gruß
Bertram
Anzeige
AW: Bei Terminüberschreitung -> Lotus Notes Mail
11.11.2011 14:48:47
Marten
Das klappt. Vielen Dank!
Danke auch von mir - Zusatzfrage zu Notes Mail
11.11.2011 15:43:11
mir
Hallo Bertram,
danke auch von mir für den LotusNotes-relevanten Code - er klappt hervorragend !
Jetzt habe ich noch eine Frage als Ergänzung dazu :
Kann man das Lotus Notes Fenster auch noch irgendwie aktivieren ?
Ich habe es bereits (erfolglos) mit folgendem Konstrukt probiert :
    'Session.Activate 'funktioniert nicht
'Session.Window.Activate 'funktioniert nicht
'Session.Visible 'funktioniert nicht
'Session.SetFocus 'funktioniert nicht
Habe leider auch per GOOGLE keine passende Anweisung dazu gefunden - vielleicht weisst Du das ja ?!?!
Danke, Gruß NoNet
Anzeige

300 Forumthreads zu ähnlichen Themen

Befehlsschaltfläche zum Versenden einer e-Mail
Roland

Hallo. Ich habe eine für mich sehr harte "Nuss" zu knacken. Ich habe über Excel ein Rechnungsprogramm erstellt. jetzt möchte ich diese Rechnung immer per e-mail versenden. Ich brauche eine Befehlsschaltföläche, die einen bestimmten Bereich als e_mail versendet. Also.... Die Schaltfläche sollte...
11.08.2008 13:17:00
Thread-ID: 1000827
2 Beiträge
Anzeige
Email per Hyperlink aus Zelle mit Formel
Frank

Hallo und schönen guten Morgen zusammen,
neues kleines Problem!
Ich möchte mit Hilfe eines Hyperlink per klick eine Email öffnen!
Soweit so gut und kein Problem!
Jetzt steht die Email Adresse aber nicht wirklich in der Zelle sondern diese hole ich mir per
Sverweises aus ein...
21.08.2008 09:22:45
Thread-ID: 1003367
3 Beiträge
Access Datei in csv Datei speichern
Fred

Hallo zusammen
Ich habe ein Problem und hoffe mir kann jemand helfen. Ich importiere in meine Tabelle csv.Dateien.
Vorher muss ich aber immer Access Tabellen in das csv.Format exportieren. Ich suche ein Makro was dieses für mich automatisch auf Button klick machen würde.
Also Datei...
25.08.2008 20:27:50
Thread-ID: 1004581
5 Beiträge
Anzeige
Hyperlink Email aus Feld mit Sverweis
Frank

Hallo zusammen,
Eine Frage hätte ich da noch zu dem Hyperlink!
Richard hatte mir schon geholfen…
danke für deine Hilfe!! Du bist auf dem richtigen Weg!!
Deine Formel ist gut!!
(Na ja und hier kannst du die Daten auch per SVERWEIS ziehen.)
Was ich meine ist genau aus eine...
28.08.2008 09:34:00
Thread-ID: 1005298
3 Beiträge
Outlook Email einlesen/löschen
Peter

Ich bin zwar in der Lage Emails von Excel/VBA via Outlook abzusenden.
Jetzt würde ich jedoch gerne via VBA/Excel Emails einlesen, den Header der eingehenden Email auslesen und danach die Email wieder löschen.
Danke für die Unterstützung.
Grüße
Peter
29.08.2008 15:07:44
Thread-ID: 1005850
3 Beiträge
Zeilenumbruch, wenn Textbox in Mail eingefügt wird
a_ke

Hallo,
ich versende mit dem folgenden Code ( von Rene Holtz - Danke !!!)
eine Mail mit Outlook.
Private Sub CommandButton2_Click() '* 11.01.2008, 15:50:00 * '* erstellt von Rene Holtz, http://www.rholtz-office.de _ a> '* rene.holtz@rholtz-office....
05.09.2008 12:00:39
Thread-ID: 1007636
4 Beiträge
Off-Topic: Namen von Queries in Access nach Excel
Queries

Tach auch,
ich soll zu den ca. 200 existierenden Queries in unserer Access-Datenbank Beschreibungen abliefern und Kurzbeschriebe, was das Ziel der Query ist, auflisten. Da würde ich mir gerne die Arbeit ersparen jede Query einzeln den Namen kopieren zu müssen.
Gibt es eine Möglichkeit...
24.09.2008 11:24:00
Thread-ID: 1012003
4 Beiträge
Hilfe: Hyperlink auf email setzen?
Mike

Hi Leute,
Mein Problem bzw. Frage ist folgende:
Ich möchte in einer Exceltabelle einen Hyperlink setzen,
mit dem automatisch das Excelfile, in dem der Link sitzt,
an eine bestimmte email-Adresse versandt werden soll.
(bzw. durch den sich Outlook öffnet und der Empfänger...
21.10.2008 10:14:00
Thread-ID: 1017882
3 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
1
2
2
4
2
2
2
3
3
2
6
2
1
7
2
1
2
8
2
2
4
2
1
6
6