Fax Cover from Outlook?

[John Mulvaney]

Hi,

I am looking to generate a Fax Cover from Outlook (2003
Beta). Outlook seems to fire up the Word Letter Wizard
(2003 Beta) but I don't have much control.

I would like to be able to drop name, fax, phone, company
in specific spots.

Any idea how to do this? Is there some special template
language I need to work with?

Thanks.
John

 

[John Mulvaney]

Thanks. I can do this. I was stuck thinking in terms of
the Action "New Letter to Contact" in Outlook, rather
than the Tool "Mail Merge".

Once I have a mail merge fax cover in place and can point
and click my way to creating it, do you know an easy way
to automate it (one button kind of thing)? I am really
just trying to print the one page so I can add it to a
paper stack and fax it out manually.

Thanks.
John

 

[John Mulvaney]

Thanks for your many thoughts. I got a solution this
morning from one of my tech guys here that is working for
me. The solution seems to be very similar to what you
suggest at the end of your message.

I built a FaxCover.doc with fieldnames where I wanted
them. Then created the macro (source follows) and
assigned it to the toolbar of open contacts. Works
great. With the button only on the toolbar of an open
contact, the context is always OK so it always works.

The macro is at the "outlook" level in the macro editor.

Thanks again for your help.
John

Macro:
Sub CreateFaxCover()
Set myinspector = Me.ActiveInspector
Set MyContact = myinspector.CurrentItem
OpenWord MyContact
End Sub
Sub OpenWord(MyContact)
Set appWord = CreateObject("Word.Application")
If Not appWord.Visible Then
appWord.Visible = True
End If

Set oDoc = appWord.Documents.Add("C:\CreateFaxCover.doc")

For Each fldField In oDoc.Fields
If fldField.Result.Text = "«Full_Name»" Then
fldField.Result.Text = MyContact.FullName
End If

If fldField.Result.Text = "«Company»" Then
fldField.Result.Text = MyContact.CompanyName
End If

If fldField.Result.Text = "«Business_Phone»" Then
fldField.Result.Text =
MyContact.BusinessTelephoneNumber
End If

If fldField.Result.Text = "«Business_Fax»" Then
fldField.Result.Text = MyContact.BusinessFaxNumber
End If
Next
End Sub