reference library missing Microsoft Outlook 9.0 Object Library

[CoCoCha]

Hi,

I am trying to run a simple macro in excel vba to create a new email and attach two spreadsheets. But it won't work. It stops at the first line everytime. Dim objOutlook As Outlook.Application

Do I need to install Microsoft Outlook 9.0 Object Library? When I go to Tools-->references I checked off MS outlook 9.0 Object Library. Then it tell me it is missing MS outlook 9.0 Object Library.

Appreciated if someone can give me some insight. I am new at write macros.

Thanks in advance.

Sub SendMsgwithAttachment()
 
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipent
Dim objOutlookAttach As Outlook.Attachment
 
 
Dim RecipList As String
Dim AttachmentPath As String
Dim SubjectName As String
 
Sheets("Sheet1").Select
RecipList = Range("B1").Value
AttachmentPath = Range("B2").Value
SubjectName = Range("B4").Value
Filename = Range("B6:B7").Value
 
 
 
On Error Resume Next
 
Set objOutlook = CreatObject("Outlook.Application")
 
Set objOutlookMsg = objOutlook.createitem(olmailitem)
With objOutlookMsg
 
Set objOutlookRecip = .Recipients.Add(RecipList)
objOutlookRecip.Type = olTo
 
 
.Subject = SubjectName
.Body = " "
 
If Not IsMissing(AttachmentPath) Then
Set objOutlookAttach = .Attachments.Add(AttachmentPath) & "\" & Array(Filename)
End If
 
For Each objOutkRecip In .Recipients
    objOutlookRecip.Resolve
    If Not objOutlookRecip.Resolve Then
Exit Sub
End If
Next
.Display 'Display the message
End With
 
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
 
End Sub

[Kevin Wilcox]

Try searching for the Microsoft Outlook 9.0 Object Library (MSOUTL.OLB) in windows explorer, to find out if and where it's on your pc. If it's present, go back to Tools-->references and use 'browse' to add the file back in to the library. If it's missing, I'm fairly sure I have in the past simply copied a library file from another PC and referenced it like this.

Hi,

I am trying to run a simple macro in excel vba to create a new email and attach two spreadsheets. But it won't work. It stops at the first line everytime. Dim objOutlook As Outlook.Application

Do I need to install Microsoft Outlook 9.0 Object Library? When I go to Tools-->references I checked off MS outlook 9.0 Object Library. Then it tell me it is missing MS outlook 9.0 Object Library.

Appreciated if someone can give me some insight. I am new at write macros.

Thanks in advance.

Sub SendMsgwithAttachment()
 
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipent
Dim objOutlookAttach As Outlook.Attachment
 
 
Dim RecipList As String
Dim AttachmentPath As String
Dim SubjectName As String
 
Sheets("Sheet1").Select
RecipList = Range("B1").Value
AttachmentPath = Range("B2").Value
SubjectName = Range("B4").Value
Filename = Range("B6:B7").Value
 
 
 
On Error Resume Next
 
Set objOutlook = CreatObject("Outlook.Application")
 
Set objOutlookMsg = objOutlook.createitem(olmailitem)
With objOutlookMsg
 
Set objOutlookRecip = .Recipients.Add(RecipList)
objOutlookRecip.Type = olTo
 
 
.Subject = SubjectName
.Body = " "
 
If Not IsMissing(AttachmentPath) Then
Set objOutlookAttach = .Attachments.Add(AttachmentPath) & "\" & Array(Filename)
End If
 
For Each objOutkRecip In .Recipients
    objOutlookRecip.Resolve
    If Not objOutlookRecip.Resolve Then
Exit Sub
End If
Next
.Display 'Display the message
End With
 
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
 
End Sub

[MMcCarthy]

Have a look down the references list and see if there is another version of the library besides 9.0

What version of Office are you using?

[CoCoCha]

Have a look down the references list and see if there is another version of the library besides 9.0

What version of Office are you using?

MS 2000
I only have 9.0 right now I found it at the list and check it again. I get a message box when I run the macro.

A program is trying to access email address you have stored in Outlook. Do you want to allow this?

Allow access for 1 min or 10 mins options: Yes, No, Help. I press Yes.

another box appears.

Miscrosoft Excel is waiting for another application to complete an OLE action.

Ok button

what does OLE mean here?

I just keep on getting this message. I can't get a Outlook msg box to appear.

[MMcCarthy]

Create breakpoint stops in your code. See how far you get before the OLE message appears.

[CoCoCha]

Create breakpoint stops in your code. See how far you get before the OLE message appears.

it starts to display OLE message when I get to.

Set objOutlookRecip = .Recipients.Add(RecipList) before

I have the email address saved in a cell in the spreadsheet.

cell A2: [e-mail] ; [e-mail]

then nothing after I just let it make connection with Outlook

[MMcCarthy]

Have a look at this declaration

Dim objOutlookRecip As Outlook.Recipent

Now change it to

Dim objOutlookRecip As Outlook.Recipients

Does that make a difference

[FishVal]

Hi, CoCoCha.

I think you have faulty code line.
Comment

On Error Resume Next
 

and see there does it fail. I suppose you don't want to ignore all errors at this time. ;)

I've run this simplified code in Excel module with no problema.

Public Sub qqq()
 
    Dim appOutlook As Outlook.Application
    Dim objMail As Outlook.MailItem
 
    Set appOutlook = CreateObject("Outlook.Application")
    Set objMail = appOutlook.CreateItem(olMailItem)
 
    With objMail
        With .Recipients.Add("qqq")
            .Type = olTo
        End With
        .Subject = "qqq"
        .Body = "qqq"
        .Display
    End With
 
    Set objMail = Nothing
    Set appOutlook = Nothing
 
End Sub
 
 

[CoCoCha]

Have a look at this declaration

Dim objOutlookRecip As Outlook.Recipent

Now change it to

Dim objOutlookRecip As Outlook.Recipients

Does that make a difference

Hi M. McCarthy
Thanks for your help.

I changed the line but didn't change anything. It still stopped right at that line for debug. OLE message prompt up I grant access for one minute and nothing happens.

[MMcCarthy]

Hi M. McCarthy
Thanks for your help.

I changed the line but didn't change anything. It still stopped right at that line for debug. OLE message prompt up I grant access for one minute and nothing happens.

The problem may be that you are adding more than one address in the recipient list. Try changing your code to add one address at a time.