Excel macro versturen met bijlage

[abracadaver909]

Beste Helpmij-ers,

Ik wil met excel een macro maken waarmee je het excel bestand kan versturen. Dit heb ik al redelijk voor elkaar, maar nu komt de kneep:

Ik wil als onderwerp van het mailtje de bestandsnaam van het desbetreffende excel-bestand.

Dit is wat ik al heb:

Sub Stuur_Mail()
Sheets(Array("Blad1", "Blad2")).Copy
ActiveWorkbook.SendMail "e-mailadres", "Hier het onderwerp"
End Sub

Wat moet er in de plaats komen van "onderwerp" om daar de bestandsnaam te krijgen?

Bij voorbaat dank,

Chris Verschoor

 

[wampier]

ActiveWorkbook.Name . Dit geeft de naam zonder extentie. Indien je de extentie ook wil hebben moet je dat even bijplakken

 

[abracadaver909]

OK,

Dank je wel. dat gaat wel lukken denk ik.
Ik was er echter achter gekomen dat het op de volgende manier ook werkt:

Sub Stuur_Mail()
ActiveWorkbook.SendMail "e-mailadres"
End Sub

3 verschillen met de vorige manier zijn:
-Er wordt geen mailbox geopend, dus wordt het bestand op de achtergrond verstuurd;
-In de vorige methode wordt een kopie gemaakt van de sheets in de array en deze kopie wordt dan met subject "Map1" verstuurd. Er opent zich wel een mailbox met als subject hetgeen wat er in de code is vermeld, maar op de achtergrond wordt die Map1 verstuurd.
-In de codering staat geen subject genoemd, dus wordt automatisch de bestandsnaam daar ingevuld.

Evengoed bedankt voor je snelle reactie!
Hij gaat op Opgelost!