Runtime Error -2147221238(8004010a)

[stuartgb100]

Hi,

The error message goes on to say
"The item has been moved or deleted".

This is occurring during a batch email routine, where the email
addresses are held as strings in an array.

The routine works find until the second run through, when it fails
on the line
.To

And yet there is clearly a value (valid email address) as the 2nd
element of the array.

Can anyone help, please ?

 

[RunTime91]

I know this post is a little long in the tooth, but I am having the identical issue as described here -

Does anyone have any ideas - code below works great for the first run but on run # 2 - I get the above error

Dim OutlookApp As Object
Dim OutlookMailItem As Object
Dim MyAttachments As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set MyAttachments = OutlookMailItem.Attachments

With OutlookMailItem
      .To = "[EMAIL="Mike.M.Smith@MSN.COM"]Mike.M.Smith@MSN.COM[/EMAIL]"
        .Subject = "Test"
          .Body = "Boo"
        MyAttachments.Add "N:\Management\Internal\Common\Sales Current Reports\SalesRpts_North\2018_DailySalesReport_" & Format(Rng2, "M-D-YYYY") & ".xls"
      .Send
    End With

 

[RunTime91]

Can't give up on this - 370+ views and no hint of a solution - Well, this is what I've done up to this point and it appears to be working with consistency... but I'm not an expert so I can't explain it perhaps someone here can...

What I did was simply re-Set the Outlook Objects in front of the second Email Send.
Thus, I just put the same three 'Set' lines below of code in front of the second pass and thus far, no more 2147221238 Error

But why?

Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Set Attachments = OutlookMail.Attachments

Thanks

 

[RoryA]

Was your original code in some sort of loop, or were you rerunning the whole thing?

 

[Txusmah]

You must Set the objects every time you create a new email. It means that if you're in a loop, this must go INSIDE the loop and not before.

This is what happened to me.

Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Set Attachments = OutlookMail.Attachments