Help with error in trying to email from Access...

[Robert McGregor]

Hey everyone,

I'm trying to email from access and i want email the contents of one
field with a subject of another to the owner of a final field.

I think i've referred to everything correctly in the ocde below but I
get an error message:

Run-time error '-2147352567 (800200009)':

The operation failed.

This appears after the message "A program is trying yo access
email..." to which i say yes.

I'm using Access XP with all the relevant libraries referenced.

Thanks.

*************Begin Code************
Private Sub Command44_Click()

Dim myOlApp, myMessage

Set myOlApp = CreateObject("Outlook.Application")
Set myMessage = myOlApp.CreateItem(olMailItem)

With myMessage
..Recipients = Me.ThingyOwner
..Resolve
..Subject = Me.ThingyTitle
..Body = Me.ThingyDescription
End With
myMessage.Send

Set myOlApp = Nothing

End Sub
*************End Code************

[rmcgregor]

Robert McGregor wrote:

Hey everyone,

I'm trying to email from access and i want email the contents of one
field with a subject of another to the owner of a final field.

I think i've referred to everything correctly in the ocde below but I
get an error message:

Run-time error '-2147352567 (800200009)':

The operation failed.

This appears after the message "A program is trying yo access
email..." to which i say yes.

I'm using Access XP with all the relevant libraries referenced.

Thanks.

*************Begin Code************
Private Sub Command44_Click()

Dim myOlApp, myMessage

Set myOlApp = CreateObject("Outlook.Application")
Set myMessage = myOlApp.CreateItem(olMailItem)

With myMessage
.Recipients = Me.ThingyOwner
.Resolve
.Subject = Me.ThingyTitle
.Body = Me.ThingyDescription
End With
myMessage.Send

Set myOlApp = Nothing

End Sub
*************End Code************