Hi David

You miss the send line

Download a example workbook from my site or copy past a example
http://www.rondebruin.nl/sendmail.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl



"David Gerstman" wrote in message
...
I have a VBA application in which I select information from a spreadsheet
and
send it off to different recipients.

First I set up the Outlook Application with this code:

Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)

And yes I've included the Outlook Object rererence.

When it's time to send I use the following code:

With OutMail
.To = send_to
.Subject = sub_line
.Body = sum_text
End With

Where each of the variables are stirngs. My problem is that while I'm not
getting any errors, this isn't sending anything.

I cut and paste the Outlook sections from another program that works. So
did
I miss copying something? I've gone over my code and I haven't seen
anything
missing. What could be wrong here.

Thanks,