Sending email in a VB Script

Ok I am totally new to this! I am using VB 6.3.

I am trying to get an email sent after a user clicks yes to a popup box. It works except I get a dialog box after clicking yes that says "You are sending email on someones behalf..ect. Click Yes to send. I click yes and all is well. How do I bypass this message? It seems not the code is just using whatever email profile that is curently in use on the server. I would like it to send email via our exchange server directly if possible. If not, can I somehow still send with the current outlook profile and still bypass this message? Any ideas? Here is a snippet of the code where the email info is specified:

--------

 Response = MsgBox("The nickel average thickness is below the Lower Reaction Limit.  Press YES to continue running at these parameters.  Press NO to run another rack at a higher ampmin setting.  If you press NO you must re-enter the new thickness readings from the adjusted rack.", vbYesNo, "WARNING")
            If Response = vbYes Then
                Response1 = MsgBox("Are you sure the product is In-Control and that you are not going to raise the ampmins and retest?", vbYesNo, "PLEASE CONFIRM SELECTION")
                If Response1 = vbYes Then
                Me.[Ni_Au_Comments] = "Running with nickel avg. thickness below the Lower Reaction Limit.  Operator okay to run."
                DoCmd.SendObject , "", "", "user@domain.com", "", "", "Nickel Thickness below LRL", "Nickel thickness is being run below the lower reaction tolerance.  Operator has okay'd to run rest of DJ at these settings.  If there is repeat e-mails with this subject we must investigate that the operators adjust their ampmin's to get the proper thickness", False, ""
                End If
                If Response1 = vbNo Then
                Response = MsgBox("The nickel average thickness is below the Lower Reaction Limit.  Press YES to continue running at these parameters.  Press NO to run another rack at a higher ampmin setting.  If you press NO you must re-enter the new thickness readings from the adjusted rack.", vbYesNo, "WARNING")
                End If---

Thanks

Justin
LVL 23
Justin DurrantSr. Engineer - Windows Server/VirtualizationAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Dudge669Commented:
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Éric MoreauSenior .Net ConsultantCommented:
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.