OK, so here’s my problem.
I made up a request form in Word that has quite a few macros in it to automate the request process. My planned coup d’ grace was to have a macro commanded from the file menu to allow the submitter to kick out an E-mail, with the form attached, to the approver. The E-mail arrives in the approvers Inbox but when he double-clicks the Word icon the following popup appears:
Microsoft Office Outlook
“The operation failed. An object could not be found”
And the Word document does not open. I also notice that the document size indicated is much smaller than it should be if the whole document was there.
We are using MS Office Word 2003, Microsoft Office Outlook & Windows XP.
The code I’m using for sending the form is below.
Sub SendMailNew()
Dim docWif As Word.Document
Dim sProfile As String
Dim objSession As Object
Dim objMessage As Object
Dim objRecipient As Object
sProfile = ""
Set docWif = ActiveDocument
Set objSession = CreateObject("mapi.session")
objSession.Logon profileName: = sProfile
Set objMessage = objSession.Outbox.Messages.Add
objMessage.Subject = "Submission"
objMessage.Text = "A new request entitled :" & ActiveDocument.Bookmarks("Title").Range _
& ", has been submitted for consideration by " & ActiveDocument.Bookmarks("OrigSelect").Range
objMessage.Attachments.Add docWif
Set objRecipient = objMessage.Recipients.Add
objRecipient.Name = "John Doe"
objRecipient.Resolve
objMessage.Send showDialog:=False
MsgBox "Message is in your Outbox and will be sent shortly!"
objSession.Logoff
End Sub
I made up a request form in Word that has quite a few macros in it to automate the request process. My planned coup d’ grace was to have a macro commanded from the file menu to allow the submitter to kick out an E-mail, with the form attached, to the approver. The E-mail arrives in the approvers Inbox but when he double-clicks the Word icon the following popup appears:
Microsoft Office Outlook
“The operation failed. An object could not be found”
And the Word document does not open. I also notice that the document size indicated is much smaller than it should be if the whole document was there.
We are using MS Office Word 2003, Microsoft Office Outlook & Windows XP.
The code I’m using for sending the form is below.
Sub SendMailNew()
Dim docWif As Word.Document
Dim sProfile As String
Dim objSession As Object
Dim objMessage As Object
Dim objRecipient As Object
sProfile = ""
Set docWif = ActiveDocument
Set objSession = CreateObject("mapi.session")
objSession.Logon profileName: = sProfile
Set objMessage = objSession.Outbox.Messages.Add
objMessage.Subject = "Submission"
objMessage.Text = "A new request entitled :" & ActiveDocument.Bookmarks("Title").Range _
& ", has been submitted for consideration by " & ActiveDocument.Bookmarks("OrigSelect").Range
objMessage.Attachments.Add docWif
Set objRecipient = objMessage.Recipients.Add
objRecipient.Name = "John Doe"
objRecipient.Resolve
objMessage.Send showDialog:=False
MsgBox "Message is in your Outbox and will be sent shortly!"
objSession.Logoff
End Sub
