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