Auto-update field codes in Outlook Template

victoriasun · #1 12-21-2015, 04:35 AM

Hi All,

A complete VBA newbie here.

I’m want to auto update field codes in an Outlook Template.

I’ve tried writing a macro with Auto_Open(), AutoOpen(), and Workbook_Open functions, but no luck. I have my settings on outlook to allow any macro.

I added a new module that says:

Sub Auto_Open()
ActiveDocument.Fields.Update
End Sub

I also tried putting the code in “this outlook session”.
The macro runs properly when I click on it, but does not auto run.

Thanks!

gmayor · #2 12-21-2015, 07:43 AM

When exactly do you expect to run this macro? What is the nature of the template?

victoriasun · #3 12-21-2015, 08:52 AM

Hey,

I'd like it to run when I open the template (double click on the Outlook Template file on my desktop)

Template: I just opened a new message (typed a bunch of stuff) and then went "save as outlook template". The rest of the message is all text, but there's a date field code that should change according to today's date. It's actually 3 field codes because the date has a sub-scripted ordinal in it.

Thanks!

victoriasun · #4 12-22-2015, 12:32 AM

I'm also not sure the macro is actually attached to the template. When I send the template to others, the macro doesn't seem to be attached.

victoriasun · #5 12-22-2015, 12:44 AM

Perhaps it would be smarter to make a button that runs a macro that opens the template and updates the fields. ... Not totally sure how to do that yet...

gmayor · #6 12-22-2015, 01:54 AM

What you are trying to achieve is not possible. Outlook templates do not store macros and while the Outlook editor is Word based it is only superficially like Word. If it was for your own use, you could add a macro to Outlook to enter or change the date in the message body, but you couldn't transport it with the template for other users.

If that will suffice then the following macro in your ThisOutlookSession folder will update and fix the date field (if present) when you click 'Send' for all messages.

Code:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim olInsp As Inspector
Dim wdDoc As Object
Dim orng As Object
Dim ofld As Object
    With Item
        Set olInsp = .GetInspector
        Set wdDoc = olInsp.WordEditor
        Set orng = wdDoc.Range
        For Each ofld In orng.Fields
            If ofld.Type = 31 Then
                ofld.Update
                ofld.Unlink
            End If
        Next ofld
        .Display
        .Save
    End With
lbl_Exit
    Exit Sub
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA script to update field codes?	Calab	Word VBA	1	04-07-2014 09:27 PM
Auto Update Fields Macro	kveldulv	Outlook	0	06-07-2013 02:30 PM
Macro to update ole links not working	kisa500	PowerPoint	7	02-05-2013 03:52 AM
Auto update Filename field	Oliver Beirne	Word VBA	4	10-19-2012 03:33 AM
Table of Contents - Direct Field Implementation - Auto-Update Numbering	ztag	Word	3	01-19-2012 03:04 PM