Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
308to312
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
308to312
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatische Email-Benachrichtigung

Automatische Email-Benachrichtigung
18.09.2003 14:12:09
Nicola
Hallo Excel-Könner!

Kann mir jemand sagen, wie ich in einem Makro, das eine Datei speichert, eine automatische email-Benachrichtigung auslösen kann.


Sub speichern_und_benachrichtigen()
'mach irgendwas und speicher:
ActiveWorkbook.SaveAs FileName:="C:\ordner1\ordner2\Anmeldungen\" & ActiveSheet.Name & "_" & ID & "_" & Format(Now, "YY-MM-DD_hh-mm") & ".xls"
'hier sollte dann eine email an xy@web.de ausgelöst werden, die im Betreff sagt: "Neues Dokument: " & FileName & " wurde abgelegt"
MsgBox "Das Dokument wurde gespeichert und Benachrichtigung gesendet!"
End Sub


Kann mir hier jemand dabei helfen?
Danke,
Nicola

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatische Email-Benachrichtigung
18.09.2003 16:14:53
Willie
Hallo Nicola ich hoffe ich habe für dich das richtig!
Teste mal ob es so o.K ist!
Sonst melde dich einfach im Forum nochmal
Gruß
Willie


Sub AktiveTabelleAlsEMailVersenden()
Dim Empfänger As String
Dim Filename As String
Filename = ActiveSheet.Name
Empfänger = "ww@xyz.de"
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A1").Value & ".xls"
ActiveWorkbook.SendMail Recipients:=Empfänger, _
Subject:="Neues Dokument: " & Filename & " wurde abgelegt"
ActiveWorkbook.Close savechanges:=False
End Sub

Anzeige

24 Forumthreads zu ähnlichen Themen

Wenn Enddatum erreicht Jahreszahl +1
Thomas

Hallo Excelfreund,
ich habe eine Tabelle in der ich Verträge aufgelistet habe mit Anfangsdatum (ab C6) und Enddatum (ab D6). In I6 trage ich ein ob der Vertrag gekündigt ist oder nicht (ist/ ist nicht). In B1=Heute()
Nun verlängern sich die Vertäge nach Ablauf immer um ein weiteres Jahr...
24.07.2010 21:15:12
Thread-ID: 1168711
22 Beiträge
Anzeige
Automatische Email Benachrichtigung
Hammermann,

Hallo,
ich habe erneut ein Problem. Ich habe über eine bedingte Formatierung ja die Möglichkeit eine Zelle bei erreichen eines Wertes zu "färben". Z. B. bei negativen Wert in rot. Ist es nun möglich, daß bei einem vorher definierten Wert automatisch eine Email an einen definierten Empfänger...
18.04.2012 09:24:57
Thread-ID: 1259893
3 Beiträge
alle Makros deaktivieren wenn Datum erreicht
Ron

Hallo,
Guten Tag, ichbrauche wieder mal Eure Hilfe.
Ich habe eine umfangreiche Datei, die makrogesteuert aus diversen Dateien Daten sammelt und zu einer statistischen Auswertung zusammen fasst. Da das Layout der Quelldaten Anfang eines Quartals "gerne" mal geändert wird, wurde ich den A...
09.08.2016 11:30:06
Thread-ID: 1508461
5 Beiträge
Anzeige
Zeilen sperren wenn ein Datum erreicht ist
Frank

Hallo Zusammen,
ich habe in A4 das aktuelle Datum mit Uhrzeit stehen (=Jetzt()).
In der Spalte A6 bis A17 habe ich ein Datum mit Uhrzeit stehen (Bsp.: A6: 01.04.18 12:00 .... A17: 11.04.18 17:00).
Nun sollen die Zellen / Zeile (B6 bis AZ6) neben dem Datum von A6 ab dem Datum (A4) f...
04.04.2018 20:36:20
Thread-ID: 1618092
7 Beiträge
Zelle leeren, wenn bestimmtest Datum erreicht ist
Timo

Hallo zusammen, 😊
ich bin überfragt, liegt wohl daran, dass ich Neuling mit VBA bin.
Vielleicht könnt ihr mir ja helfen.
Ich habe eine Datei mit folgenden Daten:
Spalte U = Datum(Bsp. 31.07.2019)
Spalte K bis P = Private Daten
Ich möchte gerne, wenn das Datum in U7 der...
25.01.2019 09:22:48
Thread-ID: 1670793
15 Beiträge
Umwandeln wenn Datum erreicht
Malte

Hallo,
Ich habe eine Exceltabelle mit Kosten und Einnahmen, so wie überweisung zwischen mehreren Realen Konten erstellt. In der Tabelle sind alle Zellen abhängig von anderen Zellen.
Mein Problem besteht jetzt darin, dass diese Tabelle eine jetzt Darstellung ist, d.h. wenn die Tabelle je...
08.03.2019 17:09:40
Thread-ID: 1680157
2 Beiträge
meldung, wenn ein bestimmtes Datum errreicht ist
Matthias

Hi,
ich habe eine Tabelle entworfen, diese Tabelle hat mehrere Blaetter.
Einmal im Monat muss ich an meinen Chef berichten.
Ueber ein Makro soll mir angezeigt werden, wann ich wieder berichten muss.
Das geht doch,oder?
Schon mal Danke
Matthias
01.01.1970 00:00:00
Thread-ID: 405888
4 Beiträge
Wenn Datum erreicht, dann Meldung!!
Matthias

Hallo,
ich habe mehrere Datums, jeden Monat eins. Jeden Monat muss ich zu einem bestimmten Zeitpunkt wieder einen Bericht schicken.
Wie kann ich das per Makro hinbekommen, das wenn ein Report faellig ist, in einer bestimmten Zelle steht: "report ist faellig" und sonst in der Zelle steht...
01.01.1970 00:00:00
Thread-ID: 406909
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
21
2
2
4
4
6
14
1
3
2
4
4
1
12
2
1
2
13
4
2
8
4
2
1