Prompt for email address on field

[burrina]

I have a hard coded command button that send a email when they click on it. I need a way for the user to be prompted to input the address or else pull it from the Company's information, which would be better I think.
Field name is E Mail and command button is named Command209. Here is the code behind the command button.


The Company's information is stored in table Company and the field name is Company.Hmmm, how could I make it use the Company name instead of being hard coded? What do you think, prompt or use Company ?


DoCmd.SendObject acSendNoObject, "FormTyp", acFormatHTML, [E Mail], , , , "From Anonymous Person", True, ""

[alansidman]

Perhaps adding this to your code. Then take the result and put it into your SendObject line of code.

http://office.microsoft.com/en-us/ac...001228856.aspx

[burrina]

How about if I add this code to the syntax I have some kind of way? That looks up the Company name and I could just use it instead by default. I don't know how to edit my code already and make it work though! I also added a field to my form for the company's email address and it is CompEmail it shows the company's email address.Anyway to use this and add to the syntax?

DLookup("[Company]", "Company")

[alansidman]

You have completely lost me on your last post. I have no idea what you are trying to say or do. Please try to explain that again.

I believe that since you are using VBA in your DoCmd statement that if you added an input box and the result was just added to the DoCmd line where you have the [Email] would be the most expeditious answer unless there is something in what you have that you have not made us aware of. You would do this by creating a variable that took the value of the input box, then use the variable in your line of code.

Alan

[burrina]

I just want to add the companys email address to the outgoing email being sent from the Customers form is all. I added a field to the customers form and set it to do a lookup and it now shows the companys email address. I dont know how to edit/make the syntax I have add the company email address to it is all!
DoCmd.SendObject acSendNoObject, "FormTyp", acFormatHTML, [E Mail], , , , "From Anonymous Person", True, ""

I need to get companys email address into the "From Anonymous Person" is what I am after. It uses whoever is in the field as to send to, just I dont have a send from!

[alansidman]

Is the company email address in a control on your form now? If so, what is the name of the control? If not on the form, how will Access know what to put in there. If it is on the form, then something like the following

dim strCompAdd As String

strComAdd = me.yourControlHoldingTheEmail.Value

DoCmd.SendObject acSendNoObject, "FormTyp", acFormatHTML, [E Mail], , , , strComAdd, True, ""

I hope I am understanding your issue, but this is how I interpreted your explanation.

[burrina]

Yes, I think you do, however here is what I got: ? Code looked good to me? Error is Compile Error Variable Not Defined

[pbaldy]

Check your spelling.

[burrina]

Good Catch Paul, Thanks... Good to Go!

[pbaldy]

No problemo!