• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1092
  • Last Modified:

Ad translate button in Outlook 2007 Menu / Add Google Translate API in Outlook

Hi Guys

I have 2 questions
1.- How can i add the translation button in Outlook 2007
2.- How can i integrate the Google Translation API in Outlook 2007

Please comment
0
titorober23
Asked:
titorober23
  • 3
  • 2
2 Solutions
 
David LeeCommented:
Hi, titorober23.

1.  I can show how to add a toolbar button or, perhaps better, right-click context menu.  Which do you prefer?

2.  I thought I answered this in your previous question.  The code in that question integrates the Translation API using a rule.  What other form of integration did you have in mind?
0
 
titorober23Author Commented:
Yes, please show me how
0
 
David LeeCommented:
Show you how to what, add a button or a right-click context menu?
0
 
titorober23Author Commented:
both, please
0
 
David LeeCommented:
Here's how to add a toolbar button.

1.  Click View->Toolbars->Customize
2.  Click the Toolbars tab
3.  Click New
4.  Name the toolbar
5.  Click the Commands tab
6.  Under Categories click Macros
7.  Under Commands click and hold on the macro, then drag it out and drop it on the new toolbar
8.  Dock the toolbar somewhere onscreen

The code below adds a right-click context meu.
Private Sub Application_ItemContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Selection As Selection)
    Const msoControlButton = 1
    Const msoButtonIconAndCaption = 3
    Dim objButton As CommandBarButton
    Set objButton1 = CommandBar.Controls.Add(msoControlButton)
    With objButton
       .Style = msoButtonIconAndCaption
       'Enter your caption text'
       .Caption = "Hello World"
       .Parameter = Selection.Item(1).EntryID
       'List of face IDs here: http://www.kebabshopblues.co.uk/2007/01/04/visual-studio-2005-tools-for-office-commandbarbutton-faceid-property/'
       .FaceId = 355
       'Enter the macro you want to run.  Be sure to include the Project and module names.'
       .OnAction = "Project1.Module1.HelloWorld"
   End With
End Sub

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now