If Not j = 4 And Not j = 14 And Not j = 15 And Not j = 17 Then TreśćHTMLDoMaila = TreśćHTMLDoMaila & '' & Arkusz1.Cells(i, j). If Arkusz1.Cells(i, 25).Value = 'Nierozliczone' Then If Not j = 4 And Not j = 14 And Not j = 15 And Not j = 17 Then TreśćHTMLDoMaila = TreśćHTMLDoMaila & '' & Arkusz1.Cells(1, j).Value & '' Ive noticed, that when user change message type to RTF. But if user (on Outlook 2016) try to add an attachment, gets the prompt 'Array index is out of bounds' (even, if Excel is closed after creating mail), so I think its Outlooks problem rather than Excels. Set OutMail = OutApp.CreateItem(olMailItem)įunction TreśćHTMLDoMaila(WierszMin As Long, WierszMax As Long) As String When a user click 'Send', its sending properly. Set OutApp = CreateObject('Outlook.Application') Sub WysyłanieMaila(Treść As String, Temat As String, Adresat As String, DW As String, Załącznik As String)

I was asked for the code (it's not important in my opinion, but maybe i'm wrong ) ). I've searched Stack and other sites, but everything I've found on that prompt was occuring in Excel while code was running. I've noticed, that when user change message type to RTF, then it's possible to add an attachment (but HTML formatting is quite important for me, because I want to send a table in body). Update before use Before starting Outlook or any other Office application, make sure you apply the latest updates first. Outlook 2013 remains supported via Extended Support on Windows 10 until April 11, 2023. But if user (on Outlook 2016) try to add an attachment, gets the prompt 'Array index is out of bounds' (even, if Excel is closed after creating mail), so I think it's Outlook's problem rather than Excel's. Outlook 2016 Note: Outlook 2013 isn’t supported on Windows 11 as it was no longer in mainstream support at the launch date of Windows 11.

When a user click 'Send', it's sending properly. I'm creating the HTML mail via Excel VBA and it's displaying properly.

Outlook 2016 indexing errors