> Right - I tried that before my 2nd post. It didn't work. To be sure, I
> tried
> it again after your post. That line then generates the following error:
> "Runtime error '5'. Invalid call procedure or argument."
>
> Thanks so much for helping me!
>
> Here's the modified code for clarity:
>
> Sub test()
>
> Set rng = Sheets("SharedRepIDs").Range("A1:L7")
>
> Set OutApp = CreateObject("Outlook.Application")
> OutApp.Session.Logon
> Set OutMail = OutApp.CreateItem(0)
>
> Dim OutAcct As Outlook.Account
> Set OutNS = OutApp.GetNamespace("MAPI")
> OutNS.Logon
> Set OutAcct = OutNS.Accounts.Item("sendingaccount@domain.com")
>
> 'On Error Resume Next
> With OutMail
>
> Set .SendUsingAccount = OutAcct
> .To = "toaccount@domain.com"
>
> .Subject = "Test"
> .HTMLBody = "Test"
> .Send
> End With
> On Error GoTo 0
>
> With Application
> .EnableEvents = True
> .ScreenUpdating = True
> End With
>
> Set OutMail = Nothing
> Set OutApp = Nothing
> End Sub