I'm trying to build a macro that runs through a designated list of screens based on the answer to a previous msgbox. I'm new to macros in attachmate, so this may be a simple step I'm missing but I just started teaching myself today.
The first two paths for either a yes or no response work fine, but it's when we meet the second fork that ties to two paths together where it doesn't work. It will just play out the rest of the feed, and it won't allow me to place a second "else" for the second response. Any guidance would be greatly appreciated!
strPriority=MsgBox ("Was this an inbound Call?",4 ,"Compliance tool")
' If you answer yes
If strPriorityDelete = "6" Then
Sess0.Screen.Sendkeys("<Home>dlq1<Enter>")
Sess0.Screen.Sendkeys("<Home><Tab><Tab>mort<Enter>")
MsgBox"Verify customer name, property address, mailing address, and last four of social security number. Also look for cease and desist banner as well"
Sess0.Screen.Sendkeys("<Home>mem1<Enter>")
MsgBox"Verify all A3P/Attorney contacts in MEM1"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Home>saf1<Enter>")
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"Verify the cease and desist code"
Sess0.Screen.Sendkeys("<Home>dlq1<Enter>")
msgbox"Review mancode to read appropriate disclaimer and recording script"
Sess0.Screen.Sendkeys("<Home>dlq8<Enter>")
MsgBox"Verify all contact numbers on the account"
Sess0.Screen.Sendkeys("<Home>for1<Enter>")
' If you answer no
Else
Sess0.Screen.Sendkeys("<Home>dlq1<Enter>")
Sess0.Screen.Sendkeys("<Home><Tab><Tab>mort<Enter>")
MsgBox"Verify customer name, property address, mailing address. Also look for cease and desist banner as well"
Sess0.Screen.Sendkeys("<Home>mem1<Enter>")
MsgBox"Verify all A3P/Attorney contacts in MEM1"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Home>saf1<Enter>")
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"Verify the cease and desist code"
Sess0.Screen.Sendkeys("<Home>dlq1<Enter>")
msgbox"Review mancode to read appropriate disclaimer and recording script"
Sess0.Screen.Sendkeys("<Home>dlq8<Enter>")
MsgBox"Verify all contact numbers on the account"
Sess0.Screen.Sendkeys("<Home>for1<Enter>")
[highlight #FCE94F] strPriority=MsgBox ("Is the foreclosure active?",4 ,"Foreclosure status")
' If you answer yes
MsgBox"Verfiy foreclosure status, click okay to continue"
Sess0.Screen.Sendkeys("<Home>for3<Enter>")
MsgBox"Review for U20, click okay to continue"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Home>lmt1<Enter>")
MsgBox"Review status and assigned SPOC, offer to transfer call to SPOC or handle the call. Inform customer you will email the HPS of the call if handled by you"
Sess0.Screen.Sendkeys("<Home>lmtn<Enter>")
' If you answer no
MsgBox"Verfiy foreclosure status, click okay to continue"
Sess0.Screen.Sendkeys("<Home>lmt1<Enter>")
MsgBox"Review status and assigned SPOC, offer to transfer call to SPOC or handle the call. Inform customer you will email the HPS of the call if handled by you"
Sess0.Screen.Sendkeys("<Home>lmt3<Enter>")
MsgBox"If Foreclosure status was inactive/suspended review for a populated L14. If blank, solicit payment per hierarchy"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Home>lmtn<Enter>")[/highlight]
End if
End Sub
The first two paths for either a yes or no response work fine, but it's when we meet the second fork that ties to two paths together where it doesn't work. It will just play out the rest of the feed, and it won't allow me to place a second "else" for the second response. Any guidance would be greatly appreciated!
strPriority=MsgBox ("Was this an inbound Call?",4 ,"Compliance tool")
' If you answer yes
If strPriorityDelete = "6" Then
Sess0.Screen.Sendkeys("<Home>dlq1<Enter>")
Sess0.Screen.Sendkeys("<Home><Tab><Tab>mort<Enter>")
MsgBox"Verify customer name, property address, mailing address, and last four of social security number. Also look for cease and desist banner as well"
Sess0.Screen.Sendkeys("<Home>mem1<Enter>")
MsgBox"Verify all A3P/Attorney contacts in MEM1"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Home>saf1<Enter>")
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"Verify the cease and desist code"
Sess0.Screen.Sendkeys("<Home>dlq1<Enter>")
msgbox"Review mancode to read appropriate disclaimer and recording script"
Sess0.Screen.Sendkeys("<Home>dlq8<Enter>")
MsgBox"Verify all contact numbers on the account"
Sess0.Screen.Sendkeys("<Home>for1<Enter>")
' If you answer no
Else
Sess0.Screen.Sendkeys("<Home>dlq1<Enter>")
Sess0.Screen.Sendkeys("<Home><Tab><Tab>mort<Enter>")
MsgBox"Verify customer name, property address, mailing address. Also look for cease and desist banner as well"
Sess0.Screen.Sendkeys("<Home>mem1<Enter>")
MsgBox"Verify all A3P/Attorney contacts in MEM1"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Home>saf1<Enter>")
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"Verify the cease and desist code"
Sess0.Screen.Sendkeys("<Home>dlq1<Enter>")
msgbox"Review mancode to read appropriate disclaimer and recording script"
Sess0.Screen.Sendkeys("<Home>dlq8<Enter>")
MsgBox"Verify all contact numbers on the account"
Sess0.Screen.Sendkeys("<Home>for1<Enter>")
[highlight #FCE94F] strPriority=MsgBox ("Is the foreclosure active?",4 ,"Foreclosure status")
' If you answer yes
MsgBox"Verfiy foreclosure status, click okay to continue"
Sess0.Screen.Sendkeys("<Home>for3<Enter>")
MsgBox"Review for U20, click okay to continue"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Home>lmt1<Enter>")
MsgBox"Review status and assigned SPOC, offer to transfer call to SPOC or handle the call. Inform customer you will email the HPS of the call if handled by you"
Sess0.Screen.Sendkeys("<Home>lmtn<Enter>")
' If you answer no
MsgBox"Verfiy foreclosure status, click okay to continue"
Sess0.Screen.Sendkeys("<Home>lmt1<Enter>")
MsgBox"Review status and assigned SPOC, offer to transfer call to SPOC or handle the call. Inform customer you will email the HPS of the call if handled by you"
Sess0.Screen.Sendkeys("<Home>lmt3<Enter>")
MsgBox"If Foreclosure status was inactive/suspended review for a populated L14. If blank, solicit payment per hierarchy"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Pf8>")
MsgBox"click okay to continue"
Sess0.Screen.Sendkeys("<Home>lmtn<Enter>")[/highlight]
End if
End Sub