I was trying to do a simple macro in outlook to send emails out everyday, with the same message.

This is what I have so far, but it's not working

Sub test()
   Dim mail As Outlook.MailItem
   With mail
    .To = "mailto:test@yahoo.com"
    .Subject = "please work"
    .Body = "test"
    .Send
    End With
End Sub

Any help will be greatly appreciated