Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Standard Replies in Outlook 2000

Status
Not open for further replies.

groovygarden

Programmer
Aug 23, 2001
63
Hi, hope someone can help...

Any day now my department is going to be bombarded with emails from all sides. (Most of them coming to me!) Most of the emails will be asking the same questions so I've written a set of standard replies.

What I'm looking for is a way to create a toobar button for each standard reply. So that when an email comes in I can click the appropriate button and it will automatically fire off a copy of my standard reply. (Someone has suggested I write my replies as signatures and use the signature picker)

Any help anyone can offer will be much appreciated... this could save me a lot of time in the coming weeks
 
This sub creates a reply item on the selected item, and finds your template mail, with the subject "ThisTempSubject", then set the body of the forward item to the body of the temp item.

Sub ReplyTisMail()
Set myOlApp0 = CreateObject("Outlook.Application")
On Error Resume Next
Set mySelection = Application.ActiveExplorer.Selection
If mySelection.Count <> 1 Then _
GoTo ENDSub 'goto end if it's more than 1 item selected
Set myItem0 = mySelection.Item(1) 'the selected item
Set myForwItem = myItem0.Reply 'the reply item
Set myOlApp = CreateObject(&quot;Outlook.Application&quot;)
Set myNameSpace = myOlApp.GetNamespace(&quot;MAPI&quot;)
Set myFolder = myNameSpace.GetDefaultFolder(olFolderDrafts)
For i = 1 To myFolder.Items.Count 'find the template item
If myFolder.Items(i).Subject = &quot;ThisTempSubject&quot; Then 'where the subject is...
Set myItem = myFolder.Items(i)
End If
Next i
myForwItem.Body = myItem.Body
' myForwItem.Display
myForwItem.Send
ENDSub:
End Sub

Add a new button to an existing toolbar:
&quot;To add a button to a custom toolbar, or if you don't see the button you want in the Add or Remove Buttons list, click Customize on the Tools menu, and then click the Commands tab. In the Categories box, click a category for the command you want the button to perform. Drag the command or macro you want from the Commands box to the displayed toolbar. &quot;

i hope this helps you
ide
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top