Posted on 2004-11-09
I have a the following code, Im trying to attach a query-report in the attachment but it gives a --Cant find this file and file name make sure the path and file name are correct.
Can someone please help.
Dim objOutlook As Outlook.Application
Dim objMailItem As Outlook.MailItem
Dim objAttachment As Outlook.Attachment
Set objOutlook = New Outlook.Application
Set objMailItem = objOutlook.CreateItem(olMailItem)
Set objattachments = objMailItem.Attachments
.To = Me.Vendoremail
.Subject = "Festiva Resorts Purchase Order"
.Body = "Dear " & Me.Vendor_Name & "," & vbCrLf _
& "Attachted above is a Purchase Order." & vbCrLf & vbCrLf _
& "Festiva Resorts"
.Importance = olImportanceHigh
Thanks for your time.