Hi,

I'm using Outlook 2003

I've created a custom form for internal communication to mail send to our
shared mailbox. This form is located on our network drive (saved as .oft).
I'm creating a custom (VBA) Userform to call the .oft mailformat via a
commandbutton. For a new e-mail this works great.

What I would like to achieve is a second button that can be clicked for
replying to a message using that same Custom form format. How would I do this
via VBA code.

I can reply to a message but it uses the standard e-mail format instead of
the custom I would like it to, this is the code I have so far;

Dim mynamespace As NameSpace
Dim myforward As MailItem
Dim myfolder

Set mynamespace = Application.GetNamespace("MAPI")
Set myfolder = mynamespace.GetDefaultFolder(6)

Set myforward = GetCurrentItem()

With myforward.Reply
..Display
End With

Any ideas?

Cheers,

Paul

This is a complicated scenario. You would have to use the same
CreateItemFromTemplate technique to create the new message from the template
*and* also call Reply to create a new reply message, copy all property
values from the reply message to the newly created message, and then call
Recipients.Add as many times as needed to copy all the recipients. I can't
imagine an .oft template that would have so much functionality to justify
that amount of work.

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Paul" wrote in message
...
Hi,

I'm using Outlook 2003

I've created a custom form for internal communication to mail send to our
shared mailbox. This form is located on our network drive (saved as .oft).
I'm creating a custom (VBA) Userform to call the .oft mailformat via a
commandbutton. For a new e-mail this works great.

What I would like to achieve is a second button that can be clicked for
replying to a message using that same Custom form format. How would I do
this
via VBA code.

I can reply to a message but it uses the standard e-mail format instead of
the custom I would like it to, this is the code I have so far;

Dim mynamespace As NameSpace
Dim myforward As MailItem
Dim myfolder

Set mynamespace = Application.GetNamespace("MAPI")
Set myfolder = mynamespace.GetDefaultFolder(6)

Set myforward = GetCurrentItem()

With myforward.Reply
.Display
End With

Any ideas?

Cheers,

Paul