Sending open mails automatically

[Fackouch]

Hi guys,

I'm having a problem getting around this. I have a Macro in excel that run and pull data from database and then send a mails. This works fine. After the macro runs, about 32 Emails are generated. I'm just wondering if there is a way to send them automatically without going through each one and click Send?

I wrote the following but didn't work. I'm only new in outlook VB..

Sub send_all()

Dim olApp As Outlook.Application


Dim objMail As Outlook.MailItem
Set olApp = Outlook.Application.
objMail.Send
end sub

Any sugessions?

Thanks,
Pat