vba - If error then skip sending an email -
i have piece of code sends me email when button pressed. if reason email won't send don't want code break, ignore command , carry on. how add current code?
dim outapp object dim outmail object dim strbody string  set outapp = createobject("outlook.application") set outmail = outapp.createitem(0)  strbody = thisworkbook.name & vbnewline & _           environ("username") on error resume next outmail     .to = "bm@email.co.uk"     .cc = ""     .bcc = ""     .subject = "ogi statements used"     .body = strbody     .send end on error goto 0 set outmail = nothing set outapp = nothing thank you
you change error statement avoid .send method in case of earlier error - if error occurs actual sending of email there's not lot can execution has been handed on application , it's out of error handler's scope speak.
see if of use:
on error goto skip: outmail     .to = "bm@email.co.uk"     .cc = ""     .bcc = ""     .subject = "ogi statements used"     .body = strbody     .send end skip: on error goto 0 set outmail = nothing set outapp = nothing 
Comments
Post a Comment