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
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
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.