Information générale
Catégorie:
Codage, syntaxe et commandes
Titre:
When cancelled email getting error.
The following program i use for outlook function for sending emails.
When this program runs it checks for the name which is .oleMessage.RecipDisplayName
If it doesn't find the name in the address book it says the name not found in the address book would you like to add the name to Address book or cancel.
When i say cancel i get the error. Is there a way to skip the error smoothly and come back to program again.
********************This is the code********************************
WAIT WINDOW NOWAIT "Please wait ... Logging Into Mail" NOCLEAR
WITH thisformset.basicform1
PUBLIC array ErrorArray(1)
PUBLIC mapierror
local lcCRLF
* Define constant
lcCRLF = CHR(13) + CHR(10)
MapiError = -1
STORE "" to ErrorArray
ON ERROR DO "PROGRAMS\mapierror"
* Signon to mail if user is not already signed in
IF NOT .oleSession.SessionID > 0
.oleSession.Signon
ENDIF
* If the session ID is not valid, do not allow the form to load
IF .oleSession.SessionID > 0
WAIT clear
.oleMessage.SessionID = .oleSession.SessionID
* Start a new message
.oleMessage.Compose
.oleMessage.RecipIndex = 0
.oleMessage.AddressResolveUI = .T.
.oleMessage.RecipDisplayName = ALLTRIM(sub_revw.reviewer)
.oleMessage.ResolveName
IF UPPER(ALLTRIM(sub_revw.reviewer)) <> UPPER( .oleMessage.RecipDisplayName)
REPLACE sub_revw.reviewer WITH .oleMessage.RecipDisplayName
ENDIF
IF MapiError = 30021
MESSAGEBOX("E-mail Canceled")
ELSE
.oleMessage.MsgSubject = "Reviewer Action Item for "+sub.Project_no
.oleMessage.MsgNoteText = "following Submittal issued for merit review " +sub.Project_no+" "+sub.Workpkg_no
.oleMessage.Send(1)
ENDIF
ELSE
WAIT WINDOW "Form Cannot Load: Login Failed"
ENDIF
ON ERROR DO "PROGRAMS\errhand" WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
ENDWITH
WAIT CLEAR
*********************END*********************************
Thank you very much in advance.
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement