Mailen van 2 of meer sheets in een workbook

[marc tuinstra]

Beste

een vraagje

ik heb een excel workbook dat bestaat uit meerdere sheets die gelinkt zijn aan mekaar.
Hoe kan ik bv 2 sheets (van de 10 in totaal) die samen horen doorsturen in 1 workbook naar 1 geadresseerde?

Sheet 1 en 4 zouden bv in document naar 1 geadresseerde moeten
wie kan me helpen met de code in VBA?

mvg
Marc

 

[AHulpje]

Een beginnetje:

Sub Verstuur()
    Sheets(Array("Blad1", "Blad4")).Copy
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Export.xlsx"
    With CreateObject("Outlook.Application").CreateItem(0)
       .To = "iemand@bedrijf.nl"
       .CC = ""
       .BCC = ""
       .Subject = "Onderwerp"
       .Body = "Bijgaand een excelletje"
       .Attachments.Add ThisWorkbook.Path & "\Export.xlsx"
       .Display
       '.Send
    End With
End Sub

 

[marc tuinstra]

Een beginnetje:

Sub Verstuur()
    Sheets(Array("Blad1", "Blad4")).Copy
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Export.xlsx"
    With CreateObject("Outlook.Application").CreateItem(0)
       .To = "iemand@bedrijf.nl"
       .CC = ""
       .BCC = ""
       .Subject = "Onderwerp"
       .Body = "Bijgaand een excelletje"
       .Attachments.Add ThisWorkbook.Path & "\Export.xlsx"
       .Display
       '.Send
    End With
End Sub

Beste

ik krijg op de 2de lijn een foutmelding
dit zijn de namen van mijn tabbladen
moet ik dit dan anders formuleren?



Sub LaadlijstPanelen2()

Sheets(Array("LaadlijstPanelen", "HuurbonPanelen")).Copy
ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\Export.xlsx"
With CreateObject("Outlook.Application").CreateItem(0)
.To = "aankoop@betonwerkenroba.be"
.CC = "aankoop@betonwerkenroba.be"
.BCC = ""
.Subject = "Laadlijst + Huurbon Panelen" + " : " + ActiveSheet.Range("B1").Text + " - " + ActiveSheet.Range("B5").Text
.Body = ""
.Attachments.Add ThisWorkbook.Path & "\Export.xlsx"

End With
End Sub

 

[edmoor]

Als je zegt een foutmelding te krijgen, vertel er dan ook bij welke dat is.

 

[marc tuinstra]

oop sorry

 

[edmoor]

Dan is er dus iets niet in orde met die bladnamen.
Staat er toevallig een spatie achter?

 

[marc tuinstra]

Neen er staat niets achter de tabbladen van spaties
Ik heb de namen ook gecopy-paste en niet getypt.
Ik heb ook getest met de bladnaam die excel heeft gegeven maar dat werkt ook niet

moet er nog iets voor de code gespecifieerd worden?

 

[edmoor]

Plaats dan je document.

 

[marc tuinstra]

in bijlage de ganse file

Laadlijsten wapening, hout, riolering komen samen op Totaallijst en die wordt
verstuurd naar 1 adres en de invulbladen (laadlijsten) worden leeggemaakt en
de totaallijst gerefreshed na het versturen van de mail

Die zou ik ook willen doen bij het versturen van de paneellijst en de huurbonpanelen
deze 2 tabladen zouden dan samen naar magazijn moeten en in hoofddocument ook
terug leeggemaakt worden

 

[AHulpje]

Werkt dit wel?

 

[edmoor]

Het werkt hier zonder enig probleem met:

Sheets(Array("LaadlijstPanelen", "HuurbonPanelen")).Copy

 

[AHulpje]

Deze doet het bij mij prima:

Sub LaadlijstPanelen2()
    Sheets(Array("LaadlijstPanelen", "HuurbonPanelen")).Copy
    ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\Export.xlsx"
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = "aankoop@betonwerkenroba.be"
        .CC = "aankoop@betonwerkenroba.be"
        .BCC = ""
        .Subject = "Laadlijst + Huurbon Panelen" + " : " + ActiveSheet.Range("B1").Text + " - " + ActiveSheet.Range("B5").Text
        .Body = ""
        .Attachments.Add ThisWorkbook.Path & "\Export.xlsx"
        .Display
    End With
End Sub

 

[marc tuinstra]

Ik zie dat idd .Display werkt maar .send niet

 

[AHulpje]

Foutmelding?

 

[marc tuinstra]

Beste



Nog vraagje hoe kan ik de naam van het bestand veranderen want hij neemt onderstaande niet aan


Sub LaadlijstPanelen2()
Sheets(Array("LaadlijstPanelen", "HuurbonPanelen")).Copy
ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\Laadlijst + Huurbon Panelen.xlsx"
With CreateObject("Outlook.Application").CreateItem(0)
.To = aankoop@.be
.CC = aankoop@.be
.BCC = ""
.Subject = "Laadlijst + Huurbon Panelen" + " : " + ActiveSheet.Range("B1").Text + " - " + ActiveSheet.Range("B5").Text
.Body = ""

.Attachments.Add ThisWorkbook.Path & "\Laadlijst + Huurbon Panelen" + " " + "ActiveSheet.Range("B1").Text" + " - " + "ActiveSheet.Range("B5").Text"
.Send

End With

End Sub



dit krijg ik bij het stuk in het geel

 

[AHulpje]

Gebruik geen + om strings te concateneren maar &.
En zet Range("B1") niet tussen ""
En als je een bestand opslaat als

ThisWorkbook.Path & "\Laadlijst + Huurbon Panelen.xlsx"

en vervolgens wilt versturen als

ThisWorkbook.Path & "\Laadlijst + Huurbon Panelen" + " " + "ActiveSheet.Range("B1").Text" + " - " + "ActiveSheet.Range("B5").Text"

dan zal dat niet lukken.
En je e-mailadressen moeten tussen "".
Probeer het eens zo:

Sub LaadlijstPanelen2()
    Dim onderwerp As String
    Dim filenaam As String
    Sheets(Array("LaadlijstPanelen", "HuurbonPanelen")).Copy
    onderwerp = "Laadlijst + Huurbon Panelen " & Range("B1") & " - " & Range("B5")
    filenaam = ThisWorkbook.Path & "\" & onderwerp & ".xlsx"
    
    ActiveWorkbook.SaveAs FileName:=filenaam
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = "aankoop@.be"
        .CC = "aankoop@.be"
        .BCC = ""
        .Subject = onderwerp
        .Body = ""
        .Attachments.Add filenaam
        .Display
    End With
End Sub

 

[marc tuinstra]

Heb op paar manier geprobeerd nu krijg ik dit






Kan ik ook de temporaryfile gelijk wissen na het verzenden

 

[AHulpje]

Lees nog eens heel aandachtig bericht #16 en probeer de code uit dat bericht.

 

[marc tuinstra]

Ok nu werkt het

Kan ik de temporary file gelijk ook laten wissen ?
Is het ook mogelijk om via de macro de iconen te verwijderen uit de sheets of deze een andere functie te geven?

 

[AHulpje]

Sub LaadlijstPanelen2()
    Dim onderwerp As String
    Dim filenaam As String
    Sheets(Array("LaadlijstPanelen", "HuurbonPanelen")).Copy
    onderwerp = "Laadlijst + Huurbon Panelen " & Range("B1") & " - " & Range("B5")
    filenaam = ThisWorkbook.Path & "\" & onderwerp & ".xlsx"
    For Each shp In Sheets("LaadlijstPanelen").Shapes
        shp.Delete
    Next
    For Each shp In Sheets("HuurbonPanelen").Shapes
        shp.Delete
    Next
    ActiveWorkbook.SaveAs FileName:=filenaam
    ActiveWorkbook.Close
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = "aankoop@.be"
        .CC = "aankoop@.be"
        .BCC = ""
        .Subject = onderwerp
        .Body = ""
        .Attachments.Add filenaam
        .Display
    End With
    Kill filenaam
End Sub