AccessXP email thru Outlook2007

B

bobh

Hi,

I'm hoping someone can help me understand what is going on with the
following senario

I have AccessXP with Outlook2007 and this vba code on a form in
Access
which sends an email, with Outlook 'closed' this code works as long
as
I attach a file.
If I comment out the .Attachedment Add line with Outlook closed the
code fails on the .Send line with error -> 287 - Application-defined
or Object-defined Error

But, with Outlook open this code works with or without
the .Attachment
Add line.

I don't get it, why do I have to have an attachment in order to get
this code to work with Outlook closed???
bobh.

Dim objOutlook As Object, objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail
.To = TheTo
.Subject = TheSubj
.body = TheBody
.Attachments.Add "c:\empty.txt"
.Importance = olImportanceHigh
.ReadReceiptRequested = True
.Send
End With
'clean up
Set objMail = Nothing
Set objOutlook = Nothing
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top