Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Sending Word doc as attachments-automatic subject line
In Microsoft Office 2000 when a word document was sent as an attachment the
subject line would automatically appear with the title I had assigned it in the properties of the word document. In Microsoft Office 2003, this no longer happens. The subject line no longer takes the title of the Template the document was created from, it only takes the document name. We have may rules set up when documents are sent that since upgrading to Office 2003 have not been as useful. I need help in determining how to get this subject line to automatically show up as before when using Office 2000 Thank you, -- Jackie |
#2
|
|||
|
|||
I don't know of a simple way to work around this change (which happened in
Office 2002) - the only thing I can suggest is that you construct your own macro. The following code is untested and is based on Astrid Zeelenberg's example at the Word MVP site - http://word.mvps.org/faqs/interdev/sendmailcontent.htm It really assumes that you have just saved the current document to disk. Sub SendDocumentInMail() Dim bStarted As Boolean Dim oOutlookApp As Outlook.Application Dim oItem As Outlook.MailItem On Error Resume Next 'Get Outlook if it's running Set oOutlookApp = GetObject(, "Outlook.Application") If Err 0 Then 'Outlook wasn't running, start it from code Set oOutlookApp = CreateObject("Outlook.Application") bStarted = True End If 'Create a new mailitem Set oItem = oOutlookApp.CreateItem(olMailItem) With oItem 'Set the recipient for the new email - edit this, or comment this out if your users should enter the address .To = " 'Set the recipient for a copy - edit this, or comment this out if your users should enter the address '.CC = " 'Set the subject to be the document title .Subject = ActiveDocument.BuiltInDocumentProperties("Title") 'The content of the document is used as the body for the email - change this to be whatever you want '.Body = ActiveDocument.Content .Attachments.Add Source:= _ ActiveDocument.FullName, _ Type:=olByValue, _ Position:=1, _ DisplayName:="my attachment" ' in this case, just display the result .Display End With If bStarted Then 'If we started Outlook from code, then close it oOutlookApp.Quit End If 'Clean up Set oItem = Nothing Set oOutlookApp = Nothing End Sub Peter Jamieson "Jackie" wrote in message ... In Microsoft Office 2000 when a word document was sent as an attachment the subject line would automatically appear with the title I had assigned it in the properties of the word document. In Microsoft Office 2003, this no longer happens. The subject line no longer takes the title of the Template the document was created from, it only takes the document name. We have may rules set up when documents are sent that since upgrading to Office 2003 have not been as useful. I need help in determining how to get this subject line to automatically show up as before when using Office 2000 Thank you, -- Jackie |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Convert Word 2003 documents to WordPerfect formate | Microsoft Word Help | |||
Does Word have Keyboard Merges like Word Perfect does? | Mailmerge | |||
Word2000 letterhead merge | Mailmerge | |||
Underscore (_) will not always display in RTF files (Word 2002). | Microsoft Word Help | |||
Is there a Fast Search in Word? | New Users |