I´m trying to send messages with Outlook from Access 2003. This code works
just fine on Access 2000, but with 2003 it seems to work ONE TIME. Then I
have to restart the computer to make it work ONE TIME again...
Why? Would love to have some tips...
I have tried to add "outApp.quit" with the same result.

Function TestMail()

Dim outApp As Outlook.Application
Dim outMsg As MailItem
Dim Cancel As Boolean

Set outApp = CreateObject("Outlook.Application")
Set outMsg = outApp.CreateItem(olMailItem)
With outMsg
.To = "(E-Mail Removed)"
.Subject = "Test av mailfunktion"
.Body = "Hej Peter!" & vbCrLf & "Jag testar och leker."
.Attachments.Add "C:\bilder\banner.jpg"
.Send
End With

Set outApp = Nothing
Set outMsg = Nothing

End Function

Probably and Outlook setting. I've used code similar to that to send
hundreds of emails. One of the things I've done though is to use Redemption
to destroy the security messages:

http://www.dimastr.com/redemption/
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

"Ceasarina" <(E-Mail Removed)> wrote in message
news:734EFE2F-0341-4CD6-A8B5-(E-Mail Removed)...
> I´m trying to send messages with Outlook from Access 2003. This code works
> just fine on Access 2000, but with 2003 it seems to work ONE TIME. Then I
> have to restart the computer to make it work ONE TIME again...
> Why? Would love to have some tips...
> I have tried to add "outApp.quit" with the same result.
>
> Function TestMail()
>
> Dim outApp As Outlook.Application
> Dim outMsg As MailItem
> Dim Cancel As Boolean
>
> Set outApp = CreateObject("Outlook.Application")
> Set outMsg = outApp.CreateItem(olMailItem)
> With outMsg
> .To = "(E-Mail Removed)"
> .Subject = "Test av mailfunktion"
> .Body = "Hej Peter!" & vbCrLf & "Jag testar och leker."
> .Attachments.Add "C:\bilder\banner.jpg"
> .Send
> End With
>
> Set outApp = Nothing
> Set outMsg = Nothing
>
> End Function