Currently below is the code that is being used to "SendObject". However, along with using vbTab, ect, I would like to have [Password] to be sent in BOLD. Any ideas??
Private Sub SaveMe_Click()
If Me.Plant <> "EXEC" Then
DoCmd.SendObject , , , [UserID], , , "Capital Budget Password", "Your Password is: " & [ReviewPassword] & " " & vbCr & " " & vbCr & " " & vbTab & "This password will allow you to enter the Review area of the Budget. From this area you are able to add new, modify or delete items and view multiple reports. " & vbCr & " Also, if you execute any of the enginering combination reports, the password is: " & [SmyrnaEngineering] & "", False
'DoCmd.SendObject , , , [UserID], , , "Capital Budget Password", "Your Password is: " & [ReviewPassword] & " This password will allow you to enter the Review area of the Budget. From this area you are able to add new, modify or delete items and view multiple reports. Also, if you execute any of the enginering combination reports, the password is: " & [SmyrnaEngineering] & "", False
Emailsent.SetFocus
[Emailsent] = True
DoCmd.Close
Else
DoCmd.SendObject , , , [UserID], , , "Capital Budget Password", "Your Password is: " & [ReviewPassword] & " " & vbCr & " " & vbCr & " " & vbTab & "With the exception of locking the budget for review, this password will grant you access to every secured portion of the database. " & vbCr & " " & vbCr & " To lock or unlock the database for review, use the password: " & [LockDBPassword] & " " & vbCr & " " & vbCr & " " & vbTab & " To lock, click on the Logo on the entrance screen. To unlock, click on the Unlock button located on the Review screen", False
[Emailsent] = True
DoCmd.Close
End If
End Sub
Thank you for any and all help,
PBrown
Private Sub SaveMe_Click()
If Me.Plant <> "EXEC" Then
DoCmd.SendObject , , , [UserID], , , "Capital Budget Password", "Your Password is: " & [ReviewPassword] & " " & vbCr & " " & vbCr & " " & vbTab & "This password will allow you to enter the Review area of the Budget. From this area you are able to add new, modify or delete items and view multiple reports. " & vbCr & " Also, if you execute any of the enginering combination reports, the password is: " & [SmyrnaEngineering] & "", False
'DoCmd.SendObject , , , [UserID], , , "Capital Budget Password", "Your Password is: " & [ReviewPassword] & " This password will allow you to enter the Review area of the Budget. From this area you are able to add new, modify or delete items and view multiple reports. Also, if you execute any of the enginering combination reports, the password is: " & [SmyrnaEngineering] & "", False
Emailsent.SetFocus
[Emailsent] = True
DoCmd.Close
Else
DoCmd.SendObject , , , [UserID], , , "Capital Budget Password", "Your Password is: " & [ReviewPassword] & " " & vbCr & " " & vbCr & " " & vbTab & "With the exception of locking the budget for review, this password will grant you access to every secured portion of the database. " & vbCr & " " & vbCr & " To lock or unlock the database for review, use the password: " & [LockDBPassword] & " " & vbCr & " " & vbCr & " " & vbTab & " To lock, click on the Logo on the entrance screen. To unlock, click on the Unlock button located on the Review screen", False
[Emailsent] = True
DoCmd.Close
End If
End Sub
Thank you for any and all help,
PBrown