Passing Email Address Into Outlook

[cg1465]

I'm having partial success with this script. However, I'd like to pass the email address in my record in my form to the "To" field in Outlook. I'm not having any luck using Forms![FirstUSA]![Email]. Everything else works great!

Thanks in advance!



Clint

Dim objOutlk 'Outlook
Dim objMail 'Email item
Dim strMsg
Const olMailItem = 0
'Create a new message
Set objOutlk = CreateObject("Outlook.Application")
Set objMail = objOutlk.createitem(olMailItem)
objMail.To = ("Forms![FirstUSA]![Email]")
objMail.cc = "" 'Enter an address here to include a carbon copy; bcc is for blind carbon copy's
'Set up Subject Line
objMail.subject = "First USA Project Summary"
'Add the body
strMsg = "Hi "
'To add an attachment, use:
objMail.attachments.Add ("C:\FirstUSA\Prospects\" & Forms![FirstUSA]![Phone1] & ".doc")
objMail.body = strMsg
objMail.display 'Use this to display before sending, otherwise call objMail.Send to send without reviewing
'Clean up
Set objMail = Nothing
Set objOutlk = Nothing

[RuralGuy]

My favorite email answers site: http://www.granite.ab.ca/access/email.htm