if no email address iferror end or skip

[rjmdc]

hi
this part of my code sends a message once a column is changed.
how and where do i edit my code to iferror or on error exit
if there is no email address listed in (Cells(Target.Row, "Z").Value) or (Cells(Target.Row, "AA").Value)

If result = vbOK Then


            Set OutlookApp = CreateObject("Outlook.Application")
            Set OlObjects = OutlookApp.GetNamespace("MAPI")
            Set newmsg = OutlookApp.CreateItem(olMailItem)

            newmsg.Recipients.Add (Cells(Target.Row, "Z").Value) ' Add Recipients
            newmsg.Recipients.Add (Cells(Target.Row, "AA").Value)
            newmsg.Subject = Cells(Target.Row, "B").Value & "   Reimbursement"  ' Add Subject
            newmsg.Body = "This is to inform you that payment has been processed   "     ' Email Body
            newmsg.Display   'Display Email
            newmsg.Send      'Send Email

 

[mole999]

i would step over the whole thing if you test for the cell presence, probbaly only need to look at Z

 

[rjmdc]

what does that mean and how would i look at the code
at the moment if either z or aa are blank the code gives an error message

 

[rjmdc]

what code would i use for iferror

 

[mole999]

something like the first and last statements, the last being after anything that might have been to do with sending

If  (Cells(Target.Row, "Z").Value) = "" Then GoTo NoEmail
If result = vbOK Then


            Set OutlookApp = CreateObject("Outlook.Application")
            Set OlObjects = OutlookApp.GetNamespace("MAPI")
            Set newmsg = OutlookApp.CreateItem(olMailItem)

            newmsg.Recipients.Add (Cells(Target.Row, "Z").Value) ' Add Recipients
            newmsg.Recipients.Add (Cells(Target.Row, "AA").Value)
            newmsg.Subject = Cells(Target.Row, "B").Value & "   Reimbursement"  ' Add Subject
            newmsg.Body = "This is to inform you that payment has been processed   "     ' Email Body
            newmsg.Display   'Display Email
            newmsg.Send      'Send Email

NoEmail:

your continued events

 

[rjmdc]

i put
on error resume next
before
newmsg.Recipients.Add (Cells(Target.Row, "Z").Value) ' Add Recipients
newmsg.Recipients.Add (Cells(Target.Row, "AA").Value)
newmsg.Subject = Cells(Target.Row, "B").Value & " Reimbursement" ' Add Subject
newmsg.Body = "This is to inform you that payment has been processed " ' Email Body
newmsg.Display 'Display Email
newmsg.Send 'Send Email

this seems to work. would this be a correct way to do things?

 

[mole999]

tht makes it move to the next statement, does it reliably produce an output

 

[rjmdc]

it seems to work for me as before the email sending it sees no email address and code completes