Email versturen via VBA blijft staan in Postvak uit

[koolenpaul]

Beste VBA goeroes,
ik heb een raar probleempje.
Wanneer ik in Excel op een macro knop druk, is het de bedoeling dat het programma het excelwerkblad verstuurd via email. Dit werkt ook naar wens, het bericht komt aan bij de ontvanger. Echter, het blijft ook staan in postvak uit in outlook. Het staat dus ook niet bij de verzonden items. Dit is niet fijn. Wij maken gebruik van een exchange server.
Moet ik een andere VBA code gebruiken om dit te voorkomen of zit dit verhaal in outlook (zo ja, waar dan)?
Alvast bedankt voor uw hulp.:thumb:

De code die nu wordt gebruikt:

naam = Sheets("Optimalisatie").Range("B5")
plaats = Sheets("Optimalisatie").Range("B7")

Sheets("Optimalisatie").Select
ActiveWorkbook.SaveAs Filename:="C:\historie_" & Format(Date, "dd-mm-yy") & "_" & naam & "_" & plaats
ActiveWorkbook.SendMail Recipients:=Array("verzendgroep"), Subject:="Aanvraag_" & Format(Date, "dd-mm-yy") & "_" & naam & "_" & plaats
ActiveWorkbook.Close SaveChanges:=False
Application.Quit
End Sub

 

[ExcelAmateur]

koolenpaul,

Je bent sinds Geregistreerd:20 april 2007.

Dan zou je toch moeten weten dat de code tussen code tags moet staan.
Dit doe je door de code teselecteren en dan boven in het menu op # te klikken.

Als je wil kun je dit nu nog doen, door bij de vraag "bericht aanpassen" te kiezen.

Op je vraag weet ik geen antwoord.