Kleine vraag over en VBA

[Spekker]

goedemorgen allemaal
ik heb een VBA code die ik door hulp van jullie heb gemaakt, het is de code om 1 blad te verzenden.
nu wil ik graag ook deze gebruiken om een gehele file te versturen. maar wat ik ook probeer ik krijg het niet voor elkaar en wordt steeds meer 1 blad verzonden terwijl het er meer zijn. ook op het forum aan het zoeken geweest maar kon niet echt iets daar in vinden dus vandaar dat ik he zo vraag
hier is de code die ik heb gebruikt

Sub mail()
Application.DisplayAlerts = False
ActiveSheet.Copy
ActiveWorkbook.Sheets(1).SaveAs Environ("Temp") & "" & ThisWorkbook.Name & ".xlsx", 51
With CreateObject("Outlook.Application").CreateItem(0)
.To = "Astrid.Kuijt@tateandlyle.com"
.CC = "info@vaarboerentwint.nl"
.Subject = "Uren overzicht Vaarboer&Twint week"
.Body = "Hierbij het uren overzicht van de Vaarboer&Twint week,"
.Attachments.Add Environ("Temp") & "" & ThisWorkbook.Name & ".xlsx"
.Display 'or send
End With
Workbooks(ThisWorkbook.Name & ".xlsx").Close
Kill Environ("Temp") & "" & ThisWorkbook.Name & ".xlsx"
Application.DisplayAlerts = True
End Sub

 

[HSV]

Je doet een activesheet.copy.
Dat is altijd maar een blad.
Hierbij wordt je gehele werkboek verzonden.

Sub mail()
[COLOR=#333333]thisworkbook.save[/COLOR]
[COLOR=#333333]  With CreateObject("Outlook.Application").CreateItem(0)[/COLOR]
[COLOR=#333333]     .To = "Astrid.Kuijt@tateandlyle.com"[/COLOR]
[COLOR=#333333]     .CC = "info@vaarboerentwint.nl"[/COLOR]
[COLOR=#333333]     .Subject = "Uren overzicht Vaarboer&Twint week"[/COLOR]
[COLOR=#333333]     .Body = "Hierbij het uren overzicht van de Vaarboer&Twint week,"[/COLOR]
[COLOR=#333333]     .Attachments.Add ThisWorkbook.fullname[/COLOR]
[COLOR=#333333]     .Display 'or send[/COLOR]
[COLOR=#333333]End With[/COLOR]
[COLOR=#333333]End Sub[/COLOR]

 

[Spekker]

He bedankt voor je snelle bricht ga het meteen toepassen, maar heb meteen nog een vraag hier over
de file word eerst geopent en daarna krijgt het de naam Vaarboer week 6, is mogelijk dat de naam automatische wordt overgenomen in de email.

 

[HSV]

Het wordt niet verwijderd na verzending maar staat in dezelfde map als het origineel.

Sub mail()
thisworkbook.savecopyas thisworkbook.path & "\Vaarboer week 6.xlsm"
  With CreateObject("Outlook.Application").CreateItem(0)
     .To = "Astrid.Kuijt@tateandlyle.com"
     .CC = "info@vaarboerentwint.nl"
     .Subject = "Uren overzicht Vaarboer&Twint week"
     .Body = "Hierbij het uren overzicht van de Vaarboer&Twint week,"
     .Attachments.Add thisworkbook.path & "\Vaarboer week 6.xlsm"
     .Display 'or send
End With
End Sub

 

[Spekker]

Nog niet geheel wat ik bedoel want per week wordt er een nieuwe naam aan gegeven en deze naam wil ik graag zien in de mail
dus deze week is het vaarboer week 6 volgende week vaarboer week 7 enz enz
hoepelijk snap je wat ik bedoel

 

[HSV]

thisworkbook.savecopyas thisworkbook.path & "\Vaarboer week " & datepart("ww",date,2,2) & ".xlsm"

 

[Spekker]

Ja dit doet wat ik wil
alleen hoeft de file niet worden opgeslagen want dat is hij al
ik weet dat dit wel even moet voor het emailen maar daarna kan hij worden verwijderd

 

[HSV]

De 'Kill' methode heb je al in je openingspost.

 

[Spekker]

HSV bedankt voor de hulp, het werkt weer naar behoren en ik zal de vraag op opgelost zetten