ik wil graag een pagina per mail versturen dit lukt me met onderstaande code
alleen gaat het mis met de formules die in de pagina staan
ik denk dat het in de regel
ActiveSheet.Copy
zit maar krijg het niet zo dat hij alleen de waardes stuurt de formules hoeven niet mee
alleen gaat het mis met de formules die in de pagina staan
ik denk dat het in de regel
ActiveSheet.Copy
zit maar krijg het niet zo dat hij alleen de waardes stuurt de formules hoeven niet mee
Code:
Sub mail09()
Application.DisplayAlerts = False
ActiveSheet.Copy
ActiveWorkbook.Sheets(1).SaveAs Environ("Temp") & "\" & ThisWorkbook.ActiveSheet.Name & ".xlsx", 51
With CreateObject("Outlook.Application").CreateItem(0)
.To = ActiveWorkbook.Sheets(1).Range("A20")
.Subject = "Uren overzicht"
.Body = "Geachte heer/mevrouw,"
.Attachments.Add Environ("Temp") & "\" & ThisWorkbook.ActiveSheet.Name & ".xlsx"
.Display 'or send
End With
Workbooks(ThisWorkbook.ActiveSheet.Name & ".xlsx").Close
Kill Environ("Temp") & "\" & ThisWorkbook.ActiveSheet.Name & ".xlsx"
Application.DisplayAlerts = True
End Sub