Simple email from Access 2003 form

I have been searching out VB code to accomplish a simple task and keep
running into snags. I have a form including these fields:

- CourseName
- CourseNumber
- ProjectCoordinator
- email

The "ProjectCoordinator" control on the Courses form is a combo box
drawing from a related table called (T) Names. The "email" control is
automatically populated when the name is chosen.
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/13996-simple-email-from-access-2003-form.html

I want to create a button that, when clicked, creates an email in
Outlook 2003 to the Project Coordinator and tells them that their
learning module has been uploaded and is ready for the staff.

Here is the code I have so far - it is edited from the closest I could
find in another message here.

Private Sub Command231_Click()
Dim strTo As String
Dim strBody As String
Dim strSubject As String

strTo = DLookup(email, "(T) Names", "Name = " & Me.ProjectCoordinator)
strBody = "Your CBL with the title and course number shown above has
been published in the Learning Management System and is available for
staff."
strSubject = "Learing Module information"
DoCmd.SendObject , , acFormatTXT, strTo, , , strSubect, strBody, True

Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13996
End Sub

I am getting an error in the strTo line = Runtime error 3705. Syntax
error (missing operator) in query expression 'name@email.com'

Is this ensough info to tell where I am messing up?

Thanks,
Fred

 
Do share your immediate thoughts or reactions on this issue? We value your views! Login Now! or Sign Up Today! to share your views with us.. Gurfateh!

Quotes, Quotes

try
strTo = DLookup("email", "(T) Names", "Name = '" & Me.ProjectCoordinator &
"'")

Pieter

PS that is a nasty name for a Table/Query
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13996
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13996
don't you get tired by hitting []

"Fred" wrote in message
news:1153944730.937836.315950@h48g2000cwc.googlegr oups.com...
>I have been searching out VB code to accomplish a simple task and keep
> running into snags. I have a form including these fields:
>
> - CourseName
> - CourseNumber
> - ProjectCoordinator
> - email
>
> The "ProjectCoordinator" control on the Courses form is a combo box
> drawing from a related table called (T) Names. The "email" control is
> automatically populated when the name is chosen.
>
> I want to create a button that, when clicked, creates an email in
> Outlook 2003 to the Project Coordinator and tells them that their
> learning module has been uploaded and is ready for the staff.
>
> Here is the code I have so far - it is edited from the closest I could
> find in another message here.
>
> Private Sub Command231_Click()
> Dim strTo As String
> Dim strBody As String
> Dim strSubject As String
>
> strTo = DLookup(email, "(T) Names", "Name = " & Me.ProjectCoordinator)
> strBody = "Your CBL with the title and course number shown above has
> been published in the Learning Management System and is available for
> staff."
> strSubject = "Learing Module information"
> DoCmd.SendObject , , acFormatTXT, strTo, , , strSubect, strBody, True
>
> End Sub
>
> I am getting an error in the strTo line = Runtime error 3705. Syntax
> error (missing operator) in query expression 'name@email.com'
>
> Is this ensough info to tell where I am messing up?
>
> Thanks,
> Fred
>



--
----------------------------------------
I am using the free version of SPAMfighter for private users.
It has removed 4367 spam emails to date.
Paying users do not have this message in their emails.
Get the free SPAMfighter here: http://www.spamfighter.com/len

Pieter Wijnen wrote:
> Quotes, Quotes
>
> try
> strTo = DLookup("email", "(T) Names", "Name = '" & Me.ProjectCoordinator &
> "'")
>
> Pieter
>
> PS that is a nasty name for a Table/Query
> don't you get tired by hitting []
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13996
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13996
>

Thank you, Pieter - yes, it worked.

I never said I was smart so nasty (T) Table Names, (F) Form Names,
(M) Macro Names, (Q) Queries, etc. have resulted - need to switch to
frmForm, tblTable, rptReport, etc.