Dreadful array indexes out of bounds

[wattles]

I am a newbie when it comes to VB ans I'm trying to send emails from Access 2016 but I recieve and "array Index" error which I do not understand ans cannot apply it to my code......can anyone throw some light on it? Code below

' Send the email using rst! from strSQL

oMail.Body = "Hi, " & rst![FirstName] & " " & rst![Surname] & ", Please find attached your Subscription Reminder for the current year!"
oMail.Subject = "Subscription Invoice"
oMail.To = rst!Email
oMail.Attachments.Add CurrentProject.Path & "" & stDocName & ".pdf"
oMail.SendUsingAccount = oApp.Session.Accounts.Item(2)
oMail.Send

Set oMail = Nothing
Set oApp = Nothing
Set rst = Nothing

'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++

DoCmd.Close acReport, stDocName, acSaveNo



Msgbox "The Subscription Invoice for " & rst![FirstName] & " " & rst![Surname] & " has been sent."






Exit_CmdSubInvoice_Click:
Exit Sub


Err_CmdSubInvoice_Click:
Msgbox Err.Description
Resume Exit_CmdSubInvoice_Click

End Sub

[Welshgasman]

Do you have 3 email accounts?, as arrays start at 0.

Run this code and see what you have

Function MailAccountNumber()
'Don't forget to set a reference to Outlook in the VBA editor
    Dim outApp As Outlook.Application
    Dim i As Long


    Set outApp = CreateObject("Outlook.Application")


    For i = 1 To outApp.Session.Accounts.Count
'        If InStr(1, "xxxxxxx", outApp.Session.Accounts.item(i)) Then
'            MailAccountNumber = i
'            Exit For
'        End If
        Debug.Print outApp.Session.Accounts.item(i) & " : This is account number " & i
    Next i
    Set outApp = Nothing
End Function

[June7]

Please post code between CODE tags - use # icon on edit toolbar.

Which line triggers error? Disable error handler and step through code. You should probably post the entire procedure.

Welsh, I have only one email account and function returns 1 as the number.

[Welshgasman]

Really?
My bad then, but my code should show what O/P has.
I was just assuming the account as that appears to be the only use of an array?

[Micron]

It's not zero because Session.Accounts.Item(n) is not an array, it's a collection? Not sure what any of that code has to do with an array error message.

[Gicu]

@wattles: can you please post the entire VBA procedure with the declarations and showing the recordset looping?

Cheers,

[wattles]

[QUOTE=Gicu;518914]@wattles: can you please post the entire VBA procedure with the declarations and showing the recordset looping?

Cheers,[/QUOTE

[Welshgasman]

[QUOTE=wattles;518942]

@wattles: can you please post the entire VBA procedure with the declarations and showing the recordset looping?

Cheers,[/QUOTE

????????