What I think you want is as follows. Use the code from http://www.rondebruin.nl/win/s1/outlook/openclose.htm to start Outlook

Sub SendReport()
Dim olApp As Object
Dim oItem As Object
Dim olInsp As Object
Dim wdDoc As Object
Dim oRng As Object
    'Create a new mailitem
    Range("Print_Area").Copy
    Set olApp = OutlookApp()
    Set oItem = olApp.CreateItem(0)
    With oItem
        .BodyFormat = 2
        Set olInsp = .GetInspector
        Set wdDoc = olInsp.WordEditor
        Set oRng = wdDoc.Range
        oRng.collapse 1
        oRng.Text = "Dear Sir," & vbCrLf & vbCrLf & _
                    "Please find the attachment weather report on" & " " & Format(Now, "dd-mmm-yy") & " " & "at 05:00 hrs." & vbCrLf & vbCrLf
        oRng.collapse 0
        oRng.Paste
        oRng.collapse 0
        oRng.Text = vbCr & "Regards"
        .To = ActiveSheet.Range("K1")
        .Subject = "Weather report on " & " " & Format(Now, "dd-mmm-yy")
        .Display
    End With

    'Clean up
    Set oItem = Nothing
    Set olApp = Nothing
    Set olInsp = Nothing
    Set wdDoc = Nothing
lbl_Exit:
    Exit Sub
End Sub