SendUsingAccount not working - code not finding Mailbox Accounts

I have used this routine with Redemption to send via Outlook without security dialogs and to a specific account that is not the default account.

You can find Redemption (free) here: http://www.dimastr.com/redemption/

Public Enum tOutlookBodyFormat
   OutlookBodyFormat_Plain = 1
   OutlookBodyFormat_HTML
   OutlookBodyFormat_RichText
End Enum

Public Sub SendOutlookMailWithRedemption( _
      ByVal ToRecipients As Variant, _
      ByVal Subject As String, _
      ByVal Body As String, _
      Optional ByVal BodyFormat As tOutlookBodyFormat, _
      Optional ByVal CCRecipients As Variant, _
      Optional ByVal BCCRecipients As Variant, _
      Optional ByVal ReplyName As String, _
      Optional ByVal ReplyAddress As String, _
      Optional ByVal Attachments As Variant, _
      Optional ByVal AccountName As String _
   )
   
   #If AuthoringOutlook Then
      Dim RDOSession As RDOSession
      Dim Drafts As RDOFolder
      Dim Message As RDOMail
      Dim Account As RDOAccount
   #Else
      Dim RDOSession As Object
      Dim Drafts As Object
      Dim Message As Object
      Dim Account As Object
   #End If
   Dim Attachment As Variant
   Dim Tag As Variant
   
   If Not IsArray(ToRecipients) Then ToRecipients = Array(ToRecipients)
   If Not IsMissing(CCRecipients) Then If Not IsArray(CCRecipients) Then If Len(CCRecipients) > 0 Then CCRecipients = Array(CCRecipients)
   If Not IsMissing(BCCRecipients) Then If Not IsArray(BCCRecipients) Then If Len(BCCRecipients) > 0 Then BCCRecipients = Array(BCCRecipients)
   If Not IsMissing(Attachments) Then If Not IsArray(Attachments) Then If Len(Attachments) > 0 Then Attachments = Array(Attachments)
   
   Set RDOSession = CreateObject("Redemption.RDOSession")
   RDOSession.Logon
   Set Drafts = RDOSession.GetDefaultFolder(16) ' olFolderDrafts
   Set Message = Drafts.Items.Add
   With Message
      If Len(AccountName) > 0 Then
         Set Account = RDOSession.Accounts(AccountName)
         .Account = Account
      End If
      .To = Join(ToRecipients, "; ")
      If IsArrayInitialized(CCRecipients) Then .CC = Join(CCRecipients, "; ")
      If IsArrayInitialized(BCCRecipients) Then .BCC = Join(BCCRecipients, "; ")
      .Subject = Subject
      Select Case BodyFormat
         Case OutlookBodyFormat_Plain
            .Body = Body
         Case OutlookBodyFormat_HTML
            .HTMLBody = Body
         Case OutlookBodyFormat_RichText
            Tag = .GetIDsFromNames("{00062008-0000-0000-C000-000000000046}", &H8582) Or 11 ' PT_BOOLEAN
            .Fields(Tag) = True
            .RTFBody = Body
      End Select
      If IsArrayInitialized(Attachments) Then
         For Each Attachment In Attachments
            If Len(Attachment) > 0 Then .Attachments.Add Attachment
         Next Attachment
      End If
      .Save
      .Send
   End With

End Sub

Kevin

You will need this support routine:


Public Function IsArrayInitialized( _
      ByVal SourceArray As Variant _
   ) As Boolean

' Return True if the array is initialized, False otherwise.

   Dim UpperBound As Long

   UpperBound = -1
   On Error Resume Next
   UpperBound = UBound(SourceArray)
   On Error GoTo 0
   IsArrayInitialized = UpperBound > -1

End Function

Kevin

Stupid question but you have restarted outlook with the three accounts pre-existing?

Chris

Hello.  Thank u all for responding to my question so quickly.

Chris.  Yes, I have rebooted..restarted outlook and my machine.  I have had at least 2 of the mailboxes for over 2 years.  The one I need to use has just been recently created for this project.  Thanks

Kevin,  I saw a few blurps about redemption when I was looking for a resolution to this issue..didn't realize it was an add in.  I have to see if I can install.  Does this mean all my users will need to install as well.  If so, this may not be a valid fix.  My company hates non-company installed software and most people have locked down pc.  I will still check it out though.  Do you know of anything besides redemption?  Also I will try out your routine, but can you tell me what it is suppose to do?  Thanks.  

The two accounts .. you can send emails from each of them from the same instance of outlook, and what version are you using.

I ask only because I use this mechanism myself to select sender in macros and the substance you depict is the same as Use, and I have tested in outlook 2007 your exact code with no issues.

If I recall the accounts method was a 2007 inititiate so if you are using anything earlier this would expain the issue ... assuming errors are being skipped.

Chris

This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.