Add email button - Access 2000

[Randy Star]

I need to add a button on the form that just opens a new email, pre-filled
with an email address from a field also in the same form. Can someone PLEASE
walk me through this? Much appreciated! Thanks.

 

[Ofer]

Have a look at these 2 sample databases:

http://www.datastrat.com/Download/OutlookForms2K.zip

http://www.datastrat.com/Download/OutlookAppointment.zip

 

[Randy Star]

Thanks for replying - might I ask for a little bit more elaboration on my
specific issue?

 

[Ofer]

On the OnClick event of the button run this code
===================================
Dim spObj As Object, objItem As Object
Set spObj = CreateObject("Outlook.Application")

Set objItem = spObj.CreateItem(olMailItem)
objItem.Display
Set spObj = Nothing
===================================

 

[Randy Star]

It didn't like that - said that olMailItem was undefined.

 

[Randy Star]

Just wanted to bump this - can anyone assist?

 

[Ofer]

Try the simple way, but not the recomanded one

docmd.SendObject acSendNoObject

 

[Ofer]

Dim AddressName As String
AddressName = "[email protected]"
docmd.SendObject acSendNoObject,,,AddressName

Replace in the Addressname the field value