Great Thanks for that Bob.

I assume that this would then remove the necessity of a Reference to the specific Outlook Library?

P.

Thanks Bob,

Just answered my own question, by replacing all instances of Outlook.Application with the late bind, it removed the reference.

Will adding the Office11 version of the Outlook Library to a new directory (..\Office11\MSOUTL.olb) cause any conflicts with the Version 10 file?

It's just as a temporary measure as I go through all of the code and update it.

Thanks again,

Paul.

Thanks for your post ... this should resolve a similar problem that I am
having ...

I've put the following Function together:

Sub TestSendEmailLateBinding()
 Dim bResult As Boolean
 Dim arto(1) As String
 Dim arcc(1) As String
 Dim sto As String
 Dim sCC As String
 
 
 arto(0) = "fred@xxx.xyz.com"
 arto(1) = "george@xxx.xyz.com"
 arcc(0) = "jane@xxx.xyz.com"
 arcc(1) = "jill@xxx.xyz.com"
 bResult = SendEmailLateBinding("c:\output.log", arto, "Subject test",
"body test", arcc)
 
 
 sto = "fred@xxx.xyz.com"
 sCC = "george@xxx.xyz.com"
 bResult = SendEmailLateBinding("c:\output.log", sto, "Subject test", "body
test", sCC)
 

End Sub

Function SendEmailLateBinding(sInPathFile As String, sInTo As Variant, _
   sInSubject As String, sInBody As String, Optional sInCC As Variant) As
Boolean
 Dim bResult As Boolean
 Dim sResp As String
 Dim obApp As Object
 Dim obEmail As Object     'Outlook.MailItem
 Dim obFiles As Object     'Outlook.Attachments
 Dim obRecipients As Object 'Outlook.Recipients
 Dim obRecipient As Object   'Outlook.Recipient
 Dim iTo As Integer
 Dim iCC As Integer
 Dim bCont As Boolean
 
 Set obApp = CreateObject("Outlook.Application")
 Set obEmail = obApp.CreateItem(0)   '0=olMailItem
 Set obRecipients = obEmail.Recipients

 On Error Resume Next
   iTo = UBound(sInTo)
   
   If Err <> 0 Then
     Set obRecipient = obEmail.Recipients.Add(sInTo)
     Err.Clear
   Else
     For iTo = 0 To UBound(sInTo)
       Set obRecipient = obEmail.Recipients.Add(sInTo(iTo))
     Next iTo
   End If
   obRecipient.Type = 1   '1=to; 2=cc
   bCont = True

   iCC = UBound(sInCC)
   
   If Err <> 0 Then
     Set obRecipient = obEmail.Recipients.Add(sInCC)
     Err.Clear
   Else
     For iCC = 0 To UBound(sInCC)
       Set obRecipient = obEmail.Recipients.Add(sInTo(iCC))
     Next iCC
   End If
   obRecipient.Type = 2   '1=to; 2=cc
   bCont = True
 On Error GoTo 0
 
 
 If bCont Then
   obEmail.Subject = sInSubject
   obEmail.Body = sInBody
   
   If sInPathFile <> "" Then
     obEmail.Attachments.Add sInPathFile, 1    '1=olByValue
   End If
   
   'send email
   On Error Resume Next
     obEmail.Send
     
     If Err > 0 Then
       sResp = MsgBox("Email to " & sInTo & " has not been sent." & _
           Chr(10) & "Err: " & Err.Description & _
           Chr(10) & "Do you want the program to continue?", vbYesNo)
       
       If sResp = 6 Then
         bResult = True
       Else
         bResult = False
       End If
       
       Err.Clear
     Else
       bResult = True
     End If
   On Error GoTo 0
 End If
 SendEmailLateBinding = bResult
End Function