Maile et excel ark

Hej

Jeg bruger følgende kode til at forberede en email, hvor excel-arket vedhæftes.
Problemet er, at hvis excelarket åbnes fra en mail og ikke gemmes, kommer de ændringer der er foretaget i arket efter åbning, men før det sendes, ikke med. Og det skulle de gerne.

Her er koden:
Dim OutMail As Object
 
    Dim strBody As String

    strBody = "Bla bla bla"
         

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .To = "testDH@test.com"
        .CC = ""
        .BCC = ""
        .Subject = "Timereg from " & strInitials
        .HTMLBody = strBody
        .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

Hvis jeg tilgengælde bruger denne funktion, kommer ændirngerne med, men så kan jeg ikke finde ud af at få modtageren ind i "to" feltet på mailen.

Application.Dialogs(xlDialogSendMail).Show

Nogen der kan hjælpe?`