Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1608to1612
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
Inhaltsverzeichnis

Automatisch Email versenden

Automatisch Email versenden
01.03.2018 13:08:03
FabySan
Hallo liebe Foren-Mitglieder,
aus beruflichen Gründen bräuchte ich ein Makro, das automatisch eine E-Mail per Outlook versendet, sobald der Dateiname der entsprechenden Arbeitsmappe geändert wird. Im Internet konnte ich schon einen Code finden, der diese Aktion ausführt, wenn man die Datei speichert.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xName = ActiveWorkbook.FullName
With xMailItem
.To = ""
.CC = ""
.Subject = "Diese Datei wurde unter einer neuen Version gespeichert"
.Body = "Hallo," & Chr(13) & Chr(13) & "Fyi, die Datei wurde geupdated :)."
.Attachments.Add xName
.Display
'.send
End With
Set xMailItem = Nothing
Set xOutApp = Nothing
End Sub
Leider konnte ich den Code mit meinen bescheidenden VBA-Kenntnissen nicht so umschreiben, dass er wie oben beschrieben nur E-Mails verschickt, wenn der Dateiname geändert wird. Vielleicht kann mir von euch jemand helfen. Vielen Dank schon Mal im voraus.
VG
Felix

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisch Email versenden
02.03.2018 11:26:54
Luschi
Hallo Felix,
bei mir sieht das so aus:

Dim aktWbName As String
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
If ThisWorkbook.FullName  aktWbName Then
'jetzt Dein Code
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'vor dem Speichern den aktuellen Dateinamen samt Pfad merken
aktWbName = ThisWorkbook.FullName
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige