Email automation [Me!Field]

[Parasyke]

I'm trying to embed the value of a combo box into my email body text
string. Any clues as to how I can adjust my syntax as this gives
compile error:

Private Sub Email_Click()
DoCmd.SendObject_ acSendNoObject, , ,_
"Da*********@abcde.com", , ,_
"Database maintenance notice",_
"I will need to shut down the" [Me!ComboEmailDB] "database from to
today." , , _
False
End Sub

'thus it needs to read "I will need to shut the RECEIVABLES database
down from to today."

Thanks for any clues!

[Jana]

Clue: :-)

You need to change this part:
"I will need to shut down the" [Me!ComboEmailDB] "database from

to:
"I will need to shut down the" & Me!ComboEmailDB & " database from

What's different:
1. The & sign strings together the text between your quotes and the
value of the field on your form. Note that I've added a space before
the word database. Otherwise, the value of your field will be run
together with the subsequent text, leaving you with RECEIVABLESdatabase
instead of RECEIVABLES database.
2. You don't want a bracket around the entire field name. The only
time you should need to use a bracket on a field name is if it has
spaces or special characters in the field name. So if your field name
was Combo Email DB, you'd need to do this to reference it:
Me![Combo Email DB].
If you really LIKE the brackets but don't need them, you can do it like
this:
Me![ComboEmailDB].

hth,
Jana

[Parasyke]

Thanks, it works fine. One more item puzzles me: I have a table that
has about 20 different departments within our company. Each department
has from 5-10 email recipients. For example one row has "Quality
Assurance" in the field called "Departments" and three email addresses
stored as a long string (under 255 of course)
"Be*********@Arcturus.com, Ev**********@Arcturus.com,
To*******@Arcturus.com" in the field called "EmailAddresses". I have a
combobox (Me!ComboAddresses) on a form from which I choose "Quality
Assurance" and want that to populate the "Recipient" from the email
command string:

DoCmd.SendObject acSendNoObject, , , " & Me!ComboAddresses & ", , ,
"Database maintenance notice - """ & Me!ComboEmailDB & """ database",
_
"I will need to shut down the """ & Me!ComboEmailDB & """ database from
to today." & Chr(13) & _
"I will send a separate Email notification to confirm that it is OK to
sign back on." & Chr(13) & Chr(13) & _
"" & Chr(13) & _
"Thanks!", , _
False

I tried this and got ... & Me!ComboAddresses & ... as a literal in
the recipients when what I wanted to see was the
"Be*********@Arcturus.com, Ev**********@Arcturus.com,
To*******@Arcturus.com" string.

Of course "Me!ComboAddresses" will also need to be rewritten to pull
the second column from the table which is the "EmailAddresses".

Thanks again for any clues!
Dave

[Ron2005]

You will have to use the doulbe/triple quots to bracket the " &
Me!ComboAddresses & "

As it stands right now you have simply created a literal with ' &
Me!ComboAddresses &' as the body of the literal.

[Parasyke]

Tried some variations of " "" """ [ ]. etc. None seemed to work. Still
got either a literal or an erro.

[Jana]

Change this line to:
DoCmd.SendObject acSendNoObject, , , Me!ComboAddresses, , ,

Also, it is usually easier to use Chr(34) anywhere you need a ", rather
than trying to muddle through the double/triple quote thingy. So, if
you want a line like this:
I will need to shut down the "RECEIVABLES" database.
Do this (all on one line):
"I will need to shut down the " & Chr(34) & Me!ComboEmailDB & Chr(34)
& " database."

If you need to refer to a particular column of a combo box, use the
Column property, like this:
Me!ComboAddresses.Column(1)
Replace the 1 with the desired column number, but the first column is
column 0, not column 1. So, if your addresses are in the 2nd column of
your combo box, the above line would get the correct data for you.
HTH,
Jana