DoCmd.SendObject only works once in a loop!

[WynneSMI]

For some reason, I can only get the DoCmd.SendObject to work only once, the very first time, in a loop. Why is this? It goes to the command, but doesn't generate anything. How do I fix this? Thanks.

 

[ruthcali]

Are you using Access2000? it's a documented problem in Access 2000. (so your computer isn't haunted, like i thought mine was!)

see below:

http://support.microsoft.com/default.aspx?scid=kb;en-us;260819

What the article advises is to install service pack 3.


If that doesn't work, here is another way around it:

http://support.microsoft.com/default.aspx?scid=kb;en-us;Q209948

 

[WynneSMI]

Thanks! I'll have to check out the articles.

 

[ruthcali]

Check out the thread: thread702-304121

The code below is from GammelNok (Hans) and it works great:

Dim objOutLook As Outlook.Application
Dim objNameSpace As Outlook.NameSpace
Dim objMailItem As Outlook.MailItem

Dim strSendTo As String
Dim strSubject As String
Dim strText As String

'======================================================
Set objOutLook = New Outlook.Application
Set objNameSpace = objOutLook.GetNamespace("MAPI&quot
Set objMailItem = objOutLook.CreateItem(olMailItem)

strSendTo = "xxxx.yyyy@zzz.co.uk"
strSubject = "Test01"
strText = "Hi. Your request processed as requested"

With objMailItem
.To = strSendTo
.Subject = strSubject
.Body = strText
.Send
End With

Set objOutLook = Nothing
Set objNameSpace = Nothing
Set objMailItem = Nothing
end sub

My docmd.sendobject worked fine in Access97.
But it didn't work in Access2000.

So I tried Microsoft's solution at:

http://support.microsoft.com/default.aspx?scid=kb;en-us;Q209948.

That solution worked ok, but, each time, i got a pop up message from Outlook: "a program is trying to access email addresses you have stored in Outlook. Do you want to allow this? If this is unexpected, it may be a virus and you should choose no."

But the way above works great!