Primer debes agregra los componentes MAPISession y MAPIMessages
If Time = #12:00:00 PM# Then EnviarEmail 'esto lo colocas dentro de un evento timer
*----------------------------------------------------------------------
Private Sub EnviarEmail()
MAPISession1.SignOn
MAPIMessages1.SessionID = -1
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = Correo 'lo puedes hacer con un textbox, listbox, etc ;
MAPIMessages1.MsgSubject = Asunto
MAPIMessages1.MsgNoteText = Mensaje
MAPIMessages1.MsgReceiptRequested = True
MAPIMessages1.Send False
MAPISession1.SignOff
End Sub
*----------------------------------------------------------------------
Si son muchas direcciones puedes usar el Select case, el For o los dos.
Lo que tienes que hacer es adaptarlo a la manera que vas a enviarlos...
