Outlook Attachment Error

[Nikkidoshi]

Hi,

I am using Excel and Outlook 2007.

I am trying to send an email attachment through Excel. Please find the code below:

=========================================================

Dim OutlookApp As Object
Dim MItem As Object
Dim cell As Range
Dim email_ As String
Dim subject_ As String
Dim body_ As String
Dim attach_ As String
Dim sAttachment As String

sAttachment = "C:\Documents and Settings\" & usrnm & "\My Documents\" & x2 & ".xlsx"

Dim x, y, z

'Create Outlook object
Set OutlookApp = CreateObject("Outlook.Application")

' Loop through the rows


email_ = ""
subject_ = "'" & x2 & "'"
body_ = ""


'Create Mail Item and send it
Set MItem = OutlookApp.CreateItem(0)
With MItem
.To = email_
.Subject = subject_
.Body = body_
.Attachments.Add sAttachment
End With
MItem.Save
=========================================================

I have a error "You dont have appropriate permissions" while trying to add the attachment.

Please help.