Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call Mail_senden
End Sub
Sub Mail_senden()
'Quelle: http://www. _
schmittis-page.de/index.html?/excel/vba/t73.htm
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
'empfaenger@provider.de
.Recipients.Add "spottie@gmx.net"
'Betreff
.Subject = "Mappe """ & ThisWorkbook.Name & """ wurde gespeichert (" & Format(Now, "DD. _
MM.YYYY hh:mm") & ")"
'Nachricht
'.Body = "Das ist eine e-Mail" & Chr(13) & _
"Viele Grüße..." & Chr(13) & Chr(13)
'Lesebestätigung aus
.ReadReceiptRequested = False
'Dateianhang
'.Attachments.Add "c:\Dok1.doc"
.Send
End With
Set olApp = Nothing
End Sub
Sub Mail_senden()
'Quelle: http://www. _
schmittis-page.de/index.html?/excel/vba/t73.htm
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
'empfaenger@provider.de
.Recipients.Add "spottie@gmx.net"
'Betreff
.Subject = "Mappe """ & ThisWorkbook.Name & """ wurde gespeichert (" & Format(Now, "DD. _
MM.YYYY hh:mm") & " von " & Environ("Username") & ")"
'Nachricht
'.Body = "Das ist eine e-Mail" & Chr(13) & _
"Viele Grüße..." & Chr(13) & Chr(13)
'Lesebestätigung aus
.ReadReceiptRequested = False
'Dateianhang
'.Attachments.Add "c:\Dok1.doc"
.Send
End With
Set olApp = Nothing
End Sub
Sub Mail_senden()
'Quelle: http://www.
_
schmittis-page.de/index.html?/excel/vba/t73.htm
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
'empfaenger@provider.de
.Recipients.Add "spottie@gmx.net"
'Betreff
.Subject = "Mappe """ & ThisWorkbook.Name & """ wurde gespeichert (" & _
Format(Now, "DD.MM.YYYY hh:mm") & " von " & Environ("Username") & ")"
'Nachricht
'.Body = "Das ist eine e-Mail" & Chr(13) & _
"Viele Grüße..." & Chr(13) & Chr(13)
'Lesebestätigung aus
.ReadReceiptRequested = False
'Dateianhang
'.Attachments.Add "c:\Dok1.doc"
.Send
End With
Set olApp = Nothing
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
If MsgBox("Outlook versendet Mail, bitte bestätigen!", vbOKCancel, "Alles wird gut!!!") = vbOK _
Then
Call Mail_senden
Application.EnableEvents = False
ThisWorkbook.Save
Application.EnableEvents = True
Else
MsgBox "Datei wird nicht gespeichert!"
End If
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen