Excel to Outlook error

[tiredofit]

This is the standard code for Excel to set up an e-mail in Outlook:

    ' early binding

    Dim o As Outlook.Application
    Dim om As Outlook.MailItem
    
    Set o = New Outlook.Application

    Set om = o.CreateItem(olMailItem)
    
    With om
    
        .BodyFormat = olFormatPlain
        
        .Body = "hi"
        
        .Display
        
        .To = "dummy@dummy.com"
        
        .Subject = "Some subject"
        
    End With

It works as expected.


The problem is I have to do this a number of times, eg:

    Const N As Long = 10

    Dim o As Outlook.Application
    Dim oe As Outlook.MailItem
    
    Dim i As Long

    For i = 1 to N

        Set o = New Outlook.Application

        Set oe = o.CreateItem(olMailItem)
    
        With oe
    
            .BodyFormat = olFormatPlain
        
            .Body = "hi"
        
            .Display
        
            .To = "dummy@dummy.com"
        
            .Subject = "Some subject"
        
        End With

    Next i

When N is large, (say 50), the code crashes on this line:

    .Display

with the message:

    [ATTACH type="full" size="329x194"]120684[/ATTACH]

Does anyone know what is causing it and how can it be resolved?

Thanks

 

[tiredofit]

I suspect you may be right (and suggested as much). As such, I don't think there is much more that I can give you, from an Excel standpoint.

As for the randomness of the number, it could be dependent upon what else may be happening on your computer at the same time, using it resources.
Or how much memory Outlook may be using at the moment.

Like I said, short of changing your approach, the only recommendation I can make to you if you want to use your current methodology is to limit the number of emails is does at a time so you don't run into that error.
I really have no other suggestions for you.

I did find this article, which seems to talk about the problem you are experiencing, and their recommendations:
Classic Outlook errors opening more than sixty emails at the same time - Microsoft Support.

Thanks for taking the time to investigate and the link.

 

[Joe4]

You are welcome.