>>Message imported from previous forum - Category:Scripts and Tips<<
User: mchartrand, originally posted: 2018-10-25 19:53:32 Id:292
This is a re-posting from the obsoleted (October 2018) "Schneider Electric Telemetry & SCADA" forum.
_______
**_du5tin:_**
_Function ObtainUserEmail(emailNum)
' Description:
' This function will find a user's email address using their user name
' and return it as a variant. It will return -1 (bad query) or -2 (can't find user)
' if there is an error.
'
' If you pass a number (1-4) into the function it will be used to get the
' proper email from the user's configuration. If no number is passed in
' the first email is returned.
'
' Created by: Dustin Symes
' Date: March 23, 2016
' Get the user's name
currentUser = Server.UserName
' Using the user's name, look through the database and pull out their email address.
query = "SELECT U.ID, U.NAME, C.EMAILADDRESS, C.EMAILADDRESS2, C.EMAILADDRESS3, C.EMAILADDRESS4 FROM CDBUSER AS U JOIN CDBUSERCONTACTCONFIG AS C ON U.ID = C.ID WHERE NAME='"¤tUser&"'"
Set results = Server.Query(query)
' Check if the query was good.
If results.Error Then
MsgBox "Whoops, we had an error."&CHR(10)&results.ErrorMessage
obtainUserEmail = -1
' Check if we have any rows (maybe this user is the Super Admin)
ElseIf results.RowCount=0 Then
MsgBox "Your user doesn't have an email. You may be the super user"
obtainUserEmail = -2
' Return the Email Address
Else
SELECT Case emailNum
Case 1
column = 2
Case 2
column = 3
Case 3
column = 4
Case 4
column = 5
Case Else
column = 2
End Select
queryRows = results.Rows
MsgBox queryRows(0,column)
ObtainUserEmail = queryRows(0,column)
End If
End Function_
