Shawn Pelletier 18.Oct.11 12:58 PM a Web browser Applications Development6.5.5Windows XP
The following code snippet is supposed to send an email if one form field is populated with an entry that is present in an array I set up. I've pointed out the problem line of code:
I could use some professional help :) Thank you!
'Set up array for Power maintenance routines
Dim GenRoutine( 1 To 14 ) As String
GenRoutine(1) = "PF00A"
GenRoutine(2) = "PFGAB"
GenRoutine(3) = "PFGAC"
GenRoutine(4) = "PFGAE"
GenRoutine(5) = "PFGAG"
GenRoutine(6) = "PFGAI"
GenRoutine(7) = "PFGAO"
GenRoutine(8) = "PFGBB"
GenRoutine(9) = "PFGBD"
GenRoutine(10) = "PFGCA"
GenRoutine(11) = "PFGCE"
GenRoutine(12) = "PFGGA"
GenRoutine(13) = "PFGEA"
GenRoutine(14) = "PFGEG"
Dim AdviseDoc As NotesDocument 'declare variable for new mail document
Set AdviseDoc = New NotesDocument( db ) 'assign AdviseDoc as the new mail document
'Variable for email IF statement
Dim GenArray As NotesItem
Dim AdviseRtitem As NotesRichTextItem 'declare variable for richtext Item
Dim richStyle As NotesRichTextStyle
Set richStyle = session.CreateRichTextStyle
'Rich text item variables for message body
Dim AreaDisplay As String
AreaDisplay= uidoc.FieldGetText("Area_Display")
Dim RoutineDisplay As String
RoutineDisplay= uidoc.FieldGetText("RoutineID_Display")
Dim DescDisplay As String
DescDisplay= uidoc.FieldGetText("Description_Display")
Dim LastComplete As String
LastComplete= uidoc.FieldGetText("LastCompleted")
Dim CompleteBy As String
CompleteBy= uidoc.FieldGetText("CompletedBy")
AdviseDoc.Form = "Memo"
'Set Subject line
AdviseDoc.Subject = "Generator Routine Maintenance Notification/"+AreaDisplay+"/ "+RoutineDisplay
Call AdviseRtitem.AddNewLine(2)
Call AdviseRtitem.AddNewLine(2)
richStyle.NotesColor = COLOR_RED
richStyle.Bold = True
Call AdviseRtitem.AppendStyle(richStyle)
Call AdviseRtitem.AppendText("This Memo has been sent to you to advise you of a recently completed maintenance routine.")
richStyle.NotesColor = COLOR_BLACK
richStyle.Bold = False
Call AdviseRtitem.AppendStyle(richStyle)
'If Generator routines listed in array "GenRoutine" appear in RoutinID field then send email
Set GenArray= RequestDoc.GetFirstItem("RoutineID_Display")
If GenArray = GenRoutine() Then <===========================Type Mismatch error
'Send Email
'AdviseDoc.SendTo = "Routines@xxxxxxx.com"
End If
Return to top
Type Mismatch Error (Shawn Pelletier... 18.Oct.11)
. . 
Print this page
