Outlook Redemption accessing delegated accounts with MS Outlook connected to gmail (google apps)
Private Function SendEmail(ByVal sEntity As String, ByVal sMsg As String, _
            ByVal sRef As String) As Boolean
    Try
        Dim strMsg As String = ""
        Dim session As Redemption.RDOSession
        session = New Redemption.RDOSession
        session.Logon("Outlook")

        Dim addrList As Redemption.RDOAddressList
        Dim AE As Redemption.RDOAddressEntry
        Dim Drafts As Redemption.RDOFolder
        Dim account As Redemption.RDOAccount
        If My.Settings.Local = 1 Then
           AE = session.AddressBook.GAL.AddressEntries("user1")
           Drafts = session.GetSharedDefaultFolder("user1",       Redemption.rdoDefaultFolders.olFolderDrafts)
           account = session.Accounts("user1")
        Else
           AE = session.AddressBook.GAL.AddressEntries("user2")
           Drafts = session.GetSharedDefaultFolder("user2", Redemption.rdoDefaultFolders.olFolderDrafts)
           account = session.Accounts("user2")
        End If

        Dim mailItem As Redemption.RDOMail
        mailItem = Drafts.Items.Add
        mailItem.Account = account

        Dim dt As DataTable
        dt = New DataTable
        dt = DAC.ExecuteDataTable("GetEmailRecipForConfo_sp", _
            DAC.Parameter("EntityID", sEntity))
        For Each dr As DataRow In dt.Rows
            mailItem.Recipients.Add(dr("Email").ToString)
        Next

        mailItem.Recipients.ResolveAll()
        If Not mailItem.Recipients.ResolveAll Then
            mailItem.Display()
        End If

        Dim tmp As Object = mailItem.GetInspector

        mailItem.BodyFormat = OlBodyFormat.olFormatPlain

        mailItem.Subject = "(" & sRef & ") " & sEntity & " FX CONFIRMATIONS " & _
            Format(Now, "HH:mm:ss")
        mailItem.Body = sMsg
        mailItem.SentOnBehalfOfName = "user1@domain.co.nz"

        If My.Settings.Local = 1 Then
            mail.SaveSentMessageFolder = session.GetSharedDefaultFolder("user1", Redemption.rdoDefaultFolders.olFolderSentMail)
        Else
            mail.SaveSentMessageFolder = session.GetSharedDefaultFolder("user2", Redemption.rdoDefaultFolders.olFolderSentMail)
        End If
        mailItem.Sender = AE
        mailItem.SentOnBehalfOf = AE
        mailItem.Save()
        mailItem.Send()

        session.Logoff()
        Return True
    Catch ex As SystemException
        'Log error.....
        Return False
    End Try
End Function