Enter data and send file as email

I have a file in which pretty much nothing changes. All I do, is open the file, enter today's date (cant use =TODAY), then email the file to some-one. I am trying to automate this, and this is what I have so far...

Sub Doors2()
'
' Doors2 Macro
'
' Keyboard Shortcut: Ctrl+d
'
    Workbooks.Open Filename:="C:\Users\wdibbins\Desktop\Daily mag checklist.xlsx"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("B2").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Application.Dialogs(xlDialogSendMail).Show
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

I initially tried using CTRL : to enter the date with the macro, but it just entered the date itself.
Also, I want it to enter the email addy by itself as well. I was using my own as a test, but it didnt get put into the macro...dibbins, william (its a company addy, so the rest gets put in by outlook)