Mijn macro start niet automatisch bij opslaan/afsluiten, weet iemand wat er verkeerd

[rickuitulft]

Sub mailen_naar_team_XXX()
'
' mailen_naar_team_XXX Macro
' verstuurd een email met de actuele planning naar alle leden van team XXX.
'

'
Application.Goto Reference:="mailen_naar_team_XXX"

If ThisWorkbook.Saved = False Then
ThisWorkbook.Save
End If

x = MsgBox("Planning van team XXX is(nog) niet opgeslagen, wilt u deze opslaan?", vbYesNoCancel, "Planning opslaan?")
If x = vbNo Then
x = MsgBox("Planning van team XXX is(nog) niet opgeslagen, wilt u deze opslaan?", vbOKOnly, "Planning opslaan?")
Exit Sub
ElseIf x = vbCancel Then
Exit Sub
ElseIf x = vbYes Then
ThisWorkbook.Save
End If

With CreateObject("Outlook.Application").CreateItem(0)
.To = "XXX@XXX.nl;"
.CC = ""
.BCC = ""
.Subject = Range("B1") & " - " & Range("E1") & " " & Range("E12")
.Body = "Datum planning gewijzigd: " & Range("E1") & Chr(10) & _
" " & Range("I8") & Chr(10) & _
" " & Range("E12") & Chr(10) & _
" " & Range("E14") & Chr(10)
.Attachments.Add (ActiveWorkbook.FullName)
.send '.SEND of .DISPLAY
End With


End Sub

 

[OctaFish]

Je bent vrij consequent (zie je andere vraag) in het niet toepassen van de CODE knop (of handmatig intypen van de tags [ code ] voor de code, en [ /code ] er achter (zonder de spaties)). Wil je (liefst met terugwerkende kracht) de code alsnog netjes opmaken?

 

[edmoor]

En waar heb je aangegeven dat die macro moet worden gestart tijdens opslaan/afsluiten?
Kijk eens waar ThisWorkbook.Close en ThisWorkbook.Save voor zijn.