mail zonder formules alleen waades

[mrnico]

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

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

 

[OctaFish]

Heb je al op de site van Ron de Bruin gekeken? Die heeft allerlei voorbeelden van mail macro's.

 

[mrnico]

ja maar ik krijg het niet voor elkaar

 

[gast0660]

Test deze eens.

Sub mail09()
Application.DisplayAlerts = False
ActiveSheet.Copy
[COLOR="#FF0000"]With ActiveSheet.UsedRange
    .Value = .Value
End With[/COLOR]
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

 

[mrnico]

Bedankt het werkt jou tekst moest 1 regel hoger maar het werkt