sluice
06-05-2008, 09:02 AM
I have a number (counter) of email addresses in an AddressList which I have copied into an array (arAgencyemail). I also have a number of emails (bodycount) that contain email addresses in the body of the email. I have copied the email body texts into another array (arBodies). I want to search through the arAgencyemail array and where the email address matches one in the body text array, delete the corresponding address in the AddressList.
How do I find the addressEntry so that I can delete it. I know its number in the Index of the AddressList from the outer For.....Next loop but I can't work out how to delete it.
For x = 1 To counter
For y = 1 To bodycount
If InStr(arAgencyemail(x), arBodies(y)) Then
' olAgency.Delete????
End If
Next
Next
.
~Oorang
How do I find the addressEntry so that I can delete it. I know its number in the Index of the AddressList from the outer For.....Next loop but I can't work out how to delete it.
For x = 1 To counter
For y = 1 To bodycount
If InStr(arAgencyemail(x), arBodies(y)) Then
' olAgency.Delete????
End If
Next
Next
.
~Oorang