Hey,
so müsste es komplett funktionieren
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim OutApp As Object
Dim objOLMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set objOLMail = OutApp.CreateItem(0)
With objOLMail
.To = "" 'Empfänger AN
.CC = ""
.BCC = ""
.Sensitivity = 0 'Vertraulichkeit
.Importance = 2 'Wichtigkeit
.Subject = ""
.Body = Environ("Username")
.Send 'Versand
'.Display
End With
Set objOLMail = Nothing
Set OutApp = Nothing
MsgBox "E-Mail wurde erfolgreich versand.", , "ERFOLGREICH"
End Sub
|