what error?!

[jonra]

"class does not support automation or does not support expected interface"...what is tis error?...

tis is my code

Public Sub sentMail()
Dim objOutlook As New Outlook.Application
Dim objMessage As MailItem
Set objOutlook = CreateObject("Outlook.Application&quot
Set objMessage = objOutlook.CreateItem(olMailItem)
With objMessage
.To = "xxx@hotmail.com"
.Subject = "Report"
.Body = "test"
.Attachments.Add "C:\Report.doc"
.Send
End With
Set objOutlook = Nothing
Set objMessage = Nothing
end sub

 

[jjob]

try searching for error 430 in the VBA forum, and look at

mstrmage1768 'Email attachment' on 29 May 03 - that seems to be the same problem.