VBA script to add HTML attachment as text in Outlook 2007

[OBIS1]

Hi,<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
Our admin team currently send client documents via email. The current process is that our system automatically creates an email with the documents attached and the user then runs a macro within the email which attaches an HTML file and inserts as text to give the email a nice polished and professional look.<o></o>
<o></o>
We were using Office 2003 which allows you to manually record a macro however some users now have Office 2007 so I have to write the macro manually as the record function is no longer available. I have tried copying the VBA script however this fails with the error - Complie Error Sub or Function not defined.<o></o>
<o></o>
This was the original macro<o></o>
<o></o>
Sub addattachment()<o></o>
ChangeFileOpenDirectory "Z:\I.T Department\Call Back Email Templates\"
Selection.InsertFile FileName:="1506ONE process email.html", Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False
End Sub<o></o>
<o></o>
I have been given the following code to try however this just attaches the file normally and does not insert as text.<o></o>
<o></o>
Sub addattachment()<o></o>
ActiveInspector.CurrentItem.Attachments.Add "Z:\I.T Department\Call Back Email Templates\1506ONE process email.html"<o></o>
End Sub<o></o>
<o></o>
If anyone has any ideas or more information please let me know.<o></o>
<o></o>
Cheers<o></o>
<o></o>
Sean

 

[Andrew Poulsom]

Which line is causing the error and where have you put that code?

 

[OBIS1]

The original macro will fail after SUB NAME(). This VBA was created using the Record button in Outlook 2003. As Outlook 2007 does not have this I had to paste the old script into Visual Basic under the Developer Tab in a new email.

 

[Andrew Poulsom]

Sorry I don't see SUB NAME() in the code you posted.

By the way Outlook doesn't have a macro recorder in any version.

 

[OBIS1]

Apologies,

It is the SUB addattachment(). This is highlighted in yellow with an arrow and the ChangeFileOpenDirectory is highlighted in blue.

 

[Andrew Poulsom]

Then you must have a sub ChangeFileOpenDirectory that you have forgotten to copy. It's not an Outlook method.

 

[OBIS1]

This is all that appears when I open the VBA on a machine running Outlook 2003.

Is there not a piece of code I can add to the following as this does pull through the attachment but inserts as text.

Sub addattachment()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
ActiveInspector.CurrentItem.Attachments.Add "Z:\I.T Department\Call Back Email Templates\1506ONE process email.html"<o></o>
End Sub<o></o>