Re: How to add button on Mail editor which is not outlook.??

Tech-Archive recommends: Speed Up your PC by fixing your registry

How to show up my form on Outlook Word Email Editor?

I've my button on the Outlook Word Email Editor Standard Tool Bar. While
Click on the buttom my control goes to Outlook Explorer. But with the
following code, I'm able to show up my form on top of the Normal outlook
editor

Sub Form_Activate() 'Event
Dim hWnd As Long

hWnd = FindWindow("ThunderRT6FormDC", Me.Caption)
If 0 = hWnd Then hWnd = FindWindow("ThunderFormDC", Me.Caption)
Me.Caption = vbNullString
If hWnd <> 0 Then
Dim newStyle As Long
newStyle = GetWindowLong(hWnd, GWL_STYLE) And Not WS_SYSMENU
SetWindowLong hWnd, GWL_STYLE, newStyle
ShowWindow hWnd, SW_SHOW
DrawMenuBar hWnd
SetFocus hWnd
End If
End Sub

With some sample code also I've tried that the VB form could not be
displayed on top of the word email editor.(My form popups on the Outlook
Explorer, User will frustrate about it)

Could you please guide me how to achieve the same?


Your Prompt reply would be appreciated



Thanks & Regards
Ashokkumar P

"Ashok" wrote:

Hi,

I'm having similar kind of pblm. If I add any button to the outlook word
editor, then i open another word instance, the new word instance shows the
custom command bar which I've added to outlook word editor. But it shdn't
appear in the new word instance.

Could you pls advice me to achieve the same?

Thanks & Regards
Ashok

"Ken Slovak - [MVP - Outlook]" wrote:

You can't just assume the user is using the HTML editor if they're not using
Word, they might be using plain text or RTF as their defaults. You should
check the EditorType property.

Also, for a button in an addin you will want to use the ProgID you get in
the On_Connection event handler to set up the OnAction property for your
button:
osendButton.OnAction = "!<" & g_strProgID & ">"

See if that helps.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Gaurav Khare" <GauravKhare@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:000383E5-358F-4FEB-8FEF-A5C504EEAEBC@xxxxxxxxxxxxxxxx
Hi ken,
I tried using your method and it worked but there are two problems ..
1. when using Word Editor--> my button's click event is not firing. I
tried
to catch its click event like other custom buttons that i have added on
outlook but it did'nt work.
2. when using HTML Editor--> I tried to create button like as in word
editor
and like those in outlook but in both cases the button coud not get added.
When adding like word editor it gives "obects property not supported".
I used the following code......
Private WithEvents osendButton As Office.CommandBarButton
If Inspector.IsWordMail Then
Set objEditor = Inspector.WordEditor
Else
Set objEditor = Inspector.HTMLEditor
End If
If Not objEditor.CommandBars("Standard").Controls.Item(1).Caption =
"Send and Add to Intelligent" Then
Set osendButton =
objEditor.CommandBars("Standard").Controls.Add(Temporary:=True, Before:=1)
osendButton.Caption = "Send and Add to Intelligent"
osendButton.Visible = True
osendButton.DescriptionText = "Send and Add to Intelligent"
osendButton.ToolTipText = "Send and to Intelligent office also"
osendButton.Style = msoButtonCaption
osendButton.BuiltInFace = True
osendButton.Visible = True
End if

This worked well when case is "Word Editor" but its click event does not
fired.
for its click event i wrote.......

Private Sub osendButton_Click(ByVal Ctrl As Office.CommandBarButton,
CancelDefault As Boolean)
MsgBox ("Going to Intelligent.....")
End Sub

But when case is "HTML Editor" it gives the following error....

"Objects property not supported..."

I also tried using this code for HTML Editor...But it also didnt work....
Private WithEvents moOL As Outlook.Application
Set oCBs = moOL.ActiveInspector.CommandBars
Set oMenuBar = oCBs.ActiveMenuBar
oMenuBar.Visible = True
Set osendButton = oMenuBar.Controls.Add(msoControlButton, , , , True)
osendButton.Caption = "Add to Intelligent Office"
osendButton.Enabled = False
osendButton.Visible = True


please help me for both cases...
1. "Click event for Button in word editor"
2. Adding button and its click event in HTML editor
Looking forward from your side.....



--
Gaurav khare
software engineer
Ots Solutions Pvt Ltd


.

Quantcast