Outlook Banter

Outlook Banter (http://www.outlookbanter.com/)
-   Add-ins for Outlook (http://www.outlookbanter.com/add-ins-outlook/)
-   -   access to and subject of a wordmail item (http://www.outlookbanter.com/add-ins-outlook/41403-access-subject-wordmail-item.html)

[email protected] February 20th 07 04:56 PM
access to and subject of a wordmail item
 
hi there

I have managed to add some controls to the wordmail screen when word
is used sas the editor. This works all nice and dandy.

The problem is, is that i do not know how to access the to, subject
and other fields withing the mail

using outlook at the editor, i can do objmailitem.to = "" etc, to
reference the information, btu it doesnt work whe word is the editor

any ideas?

many thanks

Jamie

Ken Slovak - [MVP - Outlook] February 20th 07 07:35 PM
access to and subject of a wordmail item
 
Show your code. A MailItem has valid subject and other properties whether or
not it's being shown in an Outlook editor window or a WordMail window.

--
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


wrote in message
oups.com...
hi there

I have managed to add some controls to the wordmail screen when word
is used sas the editor. This works all nice and dandy.

The problem is, is that i do not know how to access the to, subject
and other fields withing the mail

using outlook at the editor, i can do objmailitem.to = "" etc, to
reference the information, btu it doesnt work whe word is the editor

any ideas?

many thanks

Jamie

[email protected] February 23rd 07 04:40 PM
access to and subject of a wordmail item
 
before i go through and post my code, (i have to strip alot out)

i am able to access the attachments array ok
I can set the to and subject properties programmatically, by doinng
ObjMailitem.to = ", i can slo set the subject too

But, when i click my custom control and check objmailitem.to, it is
nothing, empty!

i added the following ot control and clicked it

objmailitem.to = "
objmailitem.subject = "tester"

The fields int he email are updated with this information, then when i
click my send custom control and check the fields, these values are
displayed, even if i add extra info to the fields.

Very wierd any clues? if not, i will post my code. this is only
apparent when using word as editor, all works fine when using
outlook.

cheers

Jamie

Ken Slovak - [MVP - Outlook] February 26th 07 04:31 PM
access to and subject of a wordmail item
 
Are you saving the item after you set properties on the WordMail item?

Other than that I can't think of anything offhand, if you can't get
Inspector.CurrentItem.Subject after the first Inspector.Activate event has
fired then something is definitely wrong.

--
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


wrote in message
oups.com...
before i go through and post my code, (i have to strip alot out)

i am able to access the attachments array ok
I can set the to and subject properties programmatically, by doinng
ObjMailitem.to = ", i can slo set the subject too

But, when i click my custom control and check objmailitem.to, it is
nothing, empty!

i added the following ot control and clicked it

objmailitem.to = "
objmailitem.subject = "tester"

The fields int he email are updated with this information, then when i
click my send custom control and check the fields, these values are
displayed, even if i add extra info to the fields.

Very wierd any clues? if not, i will post my code. this is only
apparent when using word as editor, all works fine when using
outlook.

cheers

Jamie

[email protected] February 27th 07 02:04 PM
access to and subject of a wordmail item
 
On 26 Feb, 16:31, "Ken Slovak - [MVP - Outlook]"
wrote:
Are you saving the item after you set properties on the WordMail item?

Other than that I can't think of anything offhand, if you can't get
Inspector.CurrentItem.Subject after the first Inspector.Activate event has
fired then something is definitely wrong.

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

wrote in message

oups.com...



before i go through and post my code, (i have to strip alot out)

i am able to access the attachments array ok
I can set the to and subject properties programmatically, by doinng
ObjMailitem.to = ", i can slo set the subject too

But, when i click my custom control and check objmailitem.to, it is
nothing, empty!

i added the following ot control and clicked it

objmailitem.to = "
objmailitem.subject = "tester"

The fields int he email are updated with this information, then when i
click my send custom control and check the fields, these values are
displayed, even if i add extra info to the fields.

Very wierd any clues? if not, i will post my code. this is only
apparent when using word as editor, all works fine when using
outlook.

cheers

Jamie- Hide quoted text -

- Show quoted text -

Hi Ken

Thankyou for the reply. I have gone trhough and stripped my code down.
I do hope it is a simple error!

I have this class calld OutAddIn

Option Explicit
'Object variables for Event procedures
Private WithEvents objOutlook As Outlook.Application
Private WithEvents objWord As Word.Application
Private WithEvents objNS As Outlook.NameSpace
Private WithEvents objExpl As Outlook.Explorer
Private WithEvents colExpl As Outlook.Explorers
Private WithEvents objInsp As Outlook.Inspector
Private WithEvents colInsp As Outlook.Inspectors
Private WithEvents objMailItem As Outlook.MailItem
Private WithEvents objPostItem As Outlook.PostItem
Private WithEvents objContactItem As Outlook.ContactItem
Private WithEvents objDistListItem As Outlook.DistListItem
Private WithEvents objApptItem As Outlook.AppointmentItem
Private WithEvents objTaskItem As Outlook.TaskItem
Private WithEvents objJournalItem As Outlook.JournalItem
Private WithEvents objDocumentItem As Outlook.DocumentItem

'************************************************* *****************************
'These event-aware objects are for Outlook 2002 only
'Uncomment to use in Outlook 2002 COM Add-in
'Private WithEvents colViews As Outlook.Views
'Private WithEvents objResults As Outlook.Results
'Private WithEvents colReminders As Outlook.Reminders
'************************************************* *****************************
'Declare CommandBar, CommandBarButton, and CommandBarComboBox object
variables here
'Don't use WithEvents for CommandBar object
'Remove comments to declare object variables for CommandBar objects
'Dim objCB As Office.CommandBar
'Dim WithEvents objCBButton As Office.CommandBarButton
'Dim WithEvents objCBComboBox As Office.CommandBarComboBox
oSendLogMenuBar
Dim objCBars As Office.CommandBars
Dim objCB As Office.CommandBar
Dim oMyControl As Office.CommandBarPopup
Dim bar As Office.CommandBar

Dim WithEvents oSealandSendMenuBar As Office.CommandBarButton
Dim WithEvents oVerifyMenuBar As Office.CommandBarButton
Dim WithEvents oVerifyExternalMenuBar As Office.CommandBarButton
Dim WithEvents oExtractMenuBar As Office.CommandBarButton
Dim WithEvents oAboutMenuBar As Office.CommandBarButton
Dim WithEvents oHelpMenuBar As Office.CommandBarButton
Dim WithEvents oSendLogMenuBar As Office.CommandBarButton
Dim WithEvents oWordSealandSendMenuBar As Office.CommandBarButton



Dim WithEvents oSealandSendToolBar As Office.CommandBarButton
Dim WithEvents oVerifyToolBar As Office.CommandBarButton
Dim WithEvents oExtractToolBar As Office.CommandBarButton
'Dim WithEvents oTitleToolBar As Office.CommandBarButton
'Dim WithEvents oValidateExternalToolBar As Office.CommandBarButton

'controls for new inspector objects
Dim WithEvents oSealandSendNew As Office.CommandBarButton
Dim WithEvents oSealAttachmentNew As Office.CommandBarButton
Dim WithEvents oSealAllAttachmentsNew As Office.CommandBarButton
Dim WithEvents oVerifyNew As Office.CommandBarButton
Dim WithEvents oExtractNew As Office.CommandBarButton

Dim ShowSealAndSendControl As Boolean
Dim OutlookVersion As String


Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As
String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal
nShowCmd As Long) As Long


'************************************************* *****************************

'************************************************* *****************************
'Custom procedu InitHandler(olApp As Outlook.Application, strProgID
As String)
'Purpose: Initialize event-aware object variables
'************************************************* *****************************
Friend Sub InitHandler(olApp As Outlook.Application, strProgID As
String)

'On Error Resume Next

Set objOutlook = olApp 'Application Object

'Instantiate a public module-level Outlook application variable
Set m_olApp = olApp
'CDO Session if required
'Uncomment for CDO
'Set m_objCDO = CreateObject("MAPI.Session")
'm_objCDO.Logon "", "", False, False
'Declared WithEvents
Set objNS = objOutlook.GetNamespace("MAPI") 'NameSpace Object
'Uncomment to use in Outlook 2002 COM Add-in
'Set colReminders = objOutlook.Reminders 'Reminders Object
Set colExpl = objOutlook.Explorers 'Explorers Object
Set colInsp = objOutlook.Inspectors 'Inspectors Object
Set objExpl = objOutlook.ActiveExplorer 'Explorer Object


End Sub

'detect the type, then bind the new inspector item to ObjMailitem
Private Sub colInsp_NewInspector(ByVal Inspector As Inspector)

Dim objItem As Outlook.MailItem

Set objInsp = Inspector
objInsp.Activate
Set objItem = objInsp.CurrentItem
Select Case objItem.Class
Case olMail
Set objMailItem = objItem
End Select

Set objItem = Nothing
End Sub

Private Sub objMailItem_Open(Cancel As Boolean)
Call addControls
End Sub

Private Sub addControls()

Dim cmdBar As Office.CommandBar
Dim cmdBars As Office.CommandBars
Set cmdBars = objMailItem.GetInspector.CommandBars

On Error Resume Next
Dim deletebar As Office.CommandBar
Set deletebar = cmdBars.Item("bar")
deletebar.Delete
deletebar = Nothing
On Error GoTo 0

Set cmdBar = cmdBars.Add("bar", 1, False, True)

Set oSealAllAttachmentsNew =
cmdBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
oSealAllAttachmentsNew.Caption = "TruSeal &All Attachments"
oSealAllAttachmentsNew.ToolTipText = "Click here to Seal the
attachments on this email"
oSealAllAttachmentsNew.Tag = "oSealAllAttachmentsNew"
oSealAllAttachmentsNew.Style = msoButtonCaption
oSealAllAttachmentsNew.Visible = True

cmdBar.Visible = True


End Sub


'when i detect here the to value, it doesnt show anything.
Private Sub oSealAllAttachmentsNew_click(ByVal Ctrl As
Office.CommandBarButton, CancelDefault As Boolean)
MsgBox objInsp.CurrentItem.To
End Sub


This is my designers connect class

Option Explicit
'Use Implements IDTExtensibility2 in VB5 environment
'Implements IDTExtensibility2
Private gBaseClass As New OutAddIn

Private Sub AddinInstance_OnAddInsUpdate(custom() As Variant)
'DebugWrite "AddinInstance_OnAddInsUpdate"
End Sub

Private Sub AddinInstance_OnBeginShutdown(custom() As Variant)
'DebugWrite "AddinInstance_OnBeginShutdown"
End Sub

Private Sub AddinInstance_OnConnection(ByVal Application As Object, _
ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, _
ByVal AddInInst As Object, custom() As Variant)

'On Error Resume Next
'Evaluate ConnectMode
Select Case ConnectMode
Case ext_cm_Startup
Case ext_cm_AfterStartup
Case ext_cm_CommandLine
Case ext_cm_Startup
End Select
'Don't call InitHandler if Explorers.Count = 0 and
Inspectors.Count = 0
If Application.Explorers.count = 0 And
Application.Inspectors.count = 0 Then
Exit Sub
End If

'AddInInst represents COMAddIn object
'Create and Initialize a base class
gBaseClass.InitHandler Application, AddInInst.ProgId
'DebugWrite "IDT2 OnConnection"

End Sub

Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode _
As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
'Tear down the class
'IMPORTANT: This event will not fire when
'RemoveMode = ext_dm_HostShutdown
'It will fire when RemoveMode = ext_dm_UserClosed


'gBaseClass.UnInitHandler
If RemoveMode = ext_dm_UserClosed Then
'User shutdown removed COM Add-in
'Cleanup custom toolbars by deleting them
Else
'Host shutdown
End If
Set gBaseClass = Nothing
If Constants.DEBUG_MODE = True Then
DEBUG_FILE.Write "AddinInstance_OnDisconnection: completed" &
" " & Time & vbCrLf
End If
'DebugWrite "AddinInstance_OnDisconnection"
End Sub

Private Sub AddinInstance_OnStartupComplete(custom() As Variant)
'
'DebugWrite "AddinInstance OnStartupComplete"
End Sub

Ken Slovak - [MVP - Outlook] February 27th 07 03:29 PM
access to and subject of a wordmail item
 
It looks like a relatively standard implementation of the ItemsCB VB6
template.

Don't do anything in NewInspector other than instantiating your Inspector
class or event handler. Never call Inspector.Activate in that event. Wait
for the first Inspector.Activate event to fire before adding your UI and
doing anything else with that Inspector. In NewInspector you're given what's
known as a "weak" object reference, where not all properties of the
Inspector or Inspector.CurrentItem are populated. In NewInspector you really
shouldn't be doing much else than checking for Inspector.CurrentItem.Class
or Inspector.CurrentItem.MessageClass and then instantiating your Inspector
handler or wrapper class.

--
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


wrote in message
oups.com...
snip
Hi Ken

Thankyou for the reply. I have gone trhough and stripped my code down.
I do hope it is a simple error!

I have this class calld OutAddIn

Option Explicit
'Object variables for Event procedures
Private WithEvents objOutlook As Outlook.Application
Private WithEvents objWord As Word.Application
Private WithEvents objNS As Outlook.NameSpace
Private WithEvents objExpl As Outlook.Explorer
Private WithEvents colExpl As Outlook.Explorers
Private WithEvents objInsp As Outlook.Inspector
Private WithEvents colInsp As Outlook.Inspectors
Private WithEvents objMailItem As Outlook.MailItem
Private WithEvents objPostItem As Outlook.PostItem
Private WithEvents objContactItem As Outlook.ContactItem
Private WithEvents objDistListItem As Outlook.DistListItem
Private WithEvents objApptItem As Outlook.AppointmentItem
Private WithEvents objTaskItem As Outlook.TaskItem
Private WithEvents objJournalItem As Outlook.JournalItem
Private WithEvents objDocumentItem As Outlook.DocumentItem

'************************************************* *****************************
'These event-aware objects are for Outlook 2002 only
'Uncomment to use in Outlook 2002 COM Add-in
'Private WithEvents colViews As Outlook.Views
'Private WithEvents objResults As Outlook.Results
'Private WithEvents colReminders As Outlook.Reminders
'************************************************* *****************************
'Declare CommandBar, CommandBarButton, and CommandBarComboBox object
variables here
'Don't use WithEvents for CommandBar object
'Remove comments to declare object variables for CommandBar objects
'Dim objCB As Office.CommandBar
'Dim WithEvents objCBButton As Office.CommandBarButton
'Dim WithEvents objCBComboBox As Office.CommandBarComboBox
oSendLogMenuBar
Dim objCBars As Office.CommandBars
Dim objCB As Office.CommandBar
Dim oMyControl As Office.CommandBarPopup
Dim bar As Office.CommandBar

Dim WithEvents oSealandSendMenuBar As Office.CommandBarButton
Dim WithEvents oVerifyMenuBar As Office.CommandBarButton
Dim WithEvents oVerifyExternalMenuBar As Office.CommandBarButton
Dim WithEvents oExtractMenuBar As Office.CommandBarButton
Dim WithEvents oAboutMenuBar As Office.CommandBarButton
Dim WithEvents oHelpMenuBar As Office.CommandBarButton
Dim WithEvents oSendLogMenuBar As Office.CommandBarButton
Dim WithEvents oWordSealandSendMenuBar As Office.CommandBarButton



Dim WithEvents oSealandSendToolBar As Office.CommandBarButton
Dim WithEvents oVerifyToolBar As Office.CommandBarButton
Dim WithEvents oExtractToolBar As Office.CommandBarButton
'Dim WithEvents oTitleToolBar As Office.CommandBarButton
'Dim WithEvents oValidateExternalToolBar As Office.CommandBarButton

'controls for new inspector objects
Dim WithEvents oSealandSendNew As Office.CommandBarButton
Dim WithEvents oSealAttachmentNew As Office.CommandBarButton
Dim WithEvents oSealAllAttachmentsNew As Office.CommandBarButton
Dim WithEvents oVerifyNew As Office.CommandBarButton
Dim WithEvents oExtractNew As Office.CommandBarButton

Dim ShowSealAndSendControl As Boolean
Dim OutlookVersion As String


Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As
String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal
nShowCmd As Long) As Long


'************************************************* *****************************

'************************************************* *****************************
'Custom procedu InitHandler(olApp As Outlook.Application, strProgID
As String)
'Purpose: Initialize event-aware object variables
'************************************************* *****************************
Friend Sub InitHandler(olApp As Outlook.Application, strProgID As
String)

'On Error Resume Next

Set objOutlook = olApp 'Application Object

'Instantiate a public module-level Outlook application variable
Set m_olApp = olApp
'CDO Session if required
'Uncomment for CDO
'Set m_objCDO = CreateObject("MAPI.Session")
'm_objCDO.Logon "", "", False, False
'Declared WithEvents
Set objNS = objOutlook.GetNamespace("MAPI") 'NameSpace Object
'Uncomment to use in Outlook 2002 COM Add-in
'Set colReminders = objOutlook.Reminders 'Reminders Object
Set colExpl = objOutlook.Explorers 'Explorers Object
Set colInsp = objOutlook.Inspectors 'Inspectors Object
Set objExpl = objOutlook.ActiveExplorer 'Explorer Object


End Sub

'detect the type, then bind the new inspector item to ObjMailitem
Private Sub colInsp_NewInspector(ByVal Inspector As Inspector)

Dim objItem As Outlook.MailItem

Set objInsp = Inspector
objInsp.Activate
Set objItem = objInsp.CurrentItem
Select Case objItem.Class
Case olMail
Set objMailItem = objItem
End Select

Set objItem = Nothing
End Sub

Private Sub objMailItem_Open(Cancel As Boolean)
Call addControls
End Sub

Private Sub addControls()

Dim cmdBar As Office.CommandBar
Dim cmdBars As Office.CommandBars
Set cmdBars = objMailItem.GetInspector.CommandBars

On Error Resume Next
Dim deletebar As Office.CommandBar
Set deletebar = cmdBars.Item("bar")
deletebar.Delete
deletebar = Nothing
On Error GoTo 0

Set cmdBar = cmdBars.Add("bar", 1, False, True)

Set oSealAllAttachmentsNew =
cmdBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
oSealAllAttachmentsNew.Caption = "TruSeal &All Attachments"
oSealAllAttachmentsNew.ToolTipText = "Click here to Seal the
attachments on this email"
oSealAllAttachmentsNew.Tag = "oSealAllAttachmentsNew"
oSealAllAttachmentsNew.Style = msoButtonCaption
oSealAllAttachmentsNew.Visible = True

cmdBar.Visible = True


End Sub


'when i detect here the to value, it doesnt show anything.
Private Sub oSealAllAttachmentsNew_click(ByVal Ctrl As
Office.CommandBarButton, CancelDefault As Boolean)
MsgBox objInsp.CurrentItem.To
End Sub


This is my designers connect class

Option Explicit
'Use Implements IDTExtensibility2 in VB5 environment
'Implements IDTExtensibility2
Private gBaseClass As New OutAddIn

Private Sub AddinInstance_OnAddInsUpdate(custom() As Variant)
'DebugWrite "AddinInstance_OnAddInsUpdate"
End Sub

Private Sub AddinInstance_OnBeginShutdown(custom() As Variant)
'DebugWrite "AddinInstance_OnBeginShutdown"
End Sub

Private Sub AddinInstance_OnConnection(ByVal Application As Object, _
ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, _
ByVal AddInInst As Object, custom() As Variant)

'On Error Resume Next
'Evaluate ConnectMode
Select Case ConnectMode
Case ext_cm_Startup
Case ext_cm_AfterStartup
Case ext_cm_CommandLine
Case ext_cm_Startup
End Select
'Don't call InitHandler if Explorers.Count = 0 and
Inspectors.Count = 0
If Application.Explorers.count = 0 And
Application.Inspectors.count = 0 Then
Exit Sub
End If

'AddInInst represents COMAddIn object
'Create and Initialize a base class
gBaseClass.InitHandler Application, AddInInst.ProgId
'DebugWrite "IDT2 OnConnection"

End Sub

Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode _
As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
'Tear down the class
'IMPORTANT: This event will not fire when
'RemoveMode = ext_dm_HostShutdown
'It will fire when RemoveMode = ext_dm_UserClosed


'gBaseClass.UnInitHandler
If RemoveMode = ext_dm_UserClosed Then
'User shutdown removed COM Add-in
'Cleanup custom toolbars by deleting them
Else
'Host shutdown
End If
Set gBaseClass = Nothing
If Constants.DEBUG_MODE = True Then
DEBUG_FILE.Write "AddinInstance_OnDisconnection: completed" &
" " & Time & vbCrLf
End If
'DebugWrite "AddinInstance_OnDisconnection"
End Sub

Private Sub AddinInstance_OnStartupComplete(custom() As Variant)
'
'DebugWrite "AddinInstance OnStartupComplete"
End Sub

[email protected] February 27th 07 04:34 PM
access to and subject of a wordmail item
 
On 27 Feb, 15:29, "Ken Slovak - [MVP - Outlook]"
wrote:
It looks like a relatively standard implementation of the ItemsCB VB6
template.

Don't do anything in NewInspector other than instantiating your Inspector
class or event handler. Never call Inspector.Activate in that event. Wait
for the first Inspector.Activate event to fire before adding your UI and
doing anything else with that Inspector. In NewInspector you're given what's
known as a "weak" object reference, where not all properties of the
Inspector or Inspector.CurrentItem are populated. In NewInspector you really
shouldn't be doing much else than checking for Inspector.CurrentItem.Class
or Inspector.CurrentItem.MessageClass and then instantiating your Inspector
handler or wrapper class.

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

wrote in message

oups.com...
snip



Hi Ken

Thankyou for the reply. I have gone trhough and stripped my code down.
I do hope it is a simple error!

I have this class calld OutAddIn

Option Explicit
'Object variables for Event procedures
Private WithEvents objOutlook As Outlook.Application
Private WithEvents objWord As Word.Application
Private WithEvents objNS As Outlook.NameSpace
Private WithEvents objExpl As Outlook.Explorer
Private WithEvents colExpl As Outlook.Explorers
Private WithEvents objInsp As Outlook.Inspector
Private WithEvents colInsp As Outlook.Inspectors
Private WithEvents objMailItem As Outlook.MailItem
Private WithEvents objPostItem As Outlook.PostItem
Private WithEvents objContactItem As Outlook.ContactItem
Private WithEvents objDistListItem As Outlook.DistListItem
Private WithEvents objApptItem As Outlook.AppointmentItem
Private WithEvents objTaskItem As Outlook.TaskItem
Private WithEvents objJournalItem As Outlook.JournalItem
Private WithEvents objDocumentItem As Outlook.DocumentItem

'************************************************* ******************************
'These event-aware objects are for Outlook 2002 only
'Uncomment to use in Outlook 2002 COM Add-in
'Private WithEvents colViews As Outlook.Views
'Private WithEvents objResults As Outlook.Results
'Private WithEvents colReminders As Outlook.Reminders
'************************************************* ******************************
'Declare CommandBar, CommandBarButton, and CommandBarComboBox object
variables here
'Don't use WithEvents for CommandBar object
'Remove comments to declare object variables for CommandBar objects
'Dim objCB As Office.CommandBar
'Dim WithEvents objCBButton As Office.CommandBarButton
'Dim WithEvents objCBComboBox As Office.CommandBarComboBox
oSendLogMenuBar
Dim objCBars As Office.CommandBars
Dim objCB As Office.CommandBar
Dim oMyControl As Office.CommandBarPopup
Dim bar As Office.CommandBar

Dim WithEvents oSealandSendMenuBar As Office.CommandBarButton
Dim WithEvents oVerifyMenuBar As Office.CommandBarButton
Dim WithEvents oVerifyExternalMenuBar As Office.CommandBarButton
Dim WithEvents oExtractMenuBar As Office.CommandBarButton
Dim WithEvents oAboutMenuBar As Office.CommandBarButton
Dim WithEvents oHelpMenuBar As Office.CommandBarButton
Dim WithEvents oSendLogMenuBar As Office.CommandBarButton
Dim WithEvents oWordSealandSendMenuBar As Office.CommandBarButton

Dim WithEvents oSealandSendToolBar As Office.CommandBarButton
Dim WithEvents oVerifyToolBar As Office.CommandBarButton
Dim WithEvents oExtractToolBar As Office.CommandBarButton
'Dim WithEvents oTitleToolBar As Office.CommandBarButton
'Dim WithEvents oValidateExternalToolBar As Office.CommandBarButton

'controls for new inspector objects
Dim WithEvents oSealandSendNew As Office.CommandBarButton
Dim WithEvents oSealAttachmentNew As Office.CommandBarButton
Dim WithEvents oSealAllAttachmentsNew As Office.CommandBarButton
Dim WithEvents oVerifyNew As Office.CommandBarButton
Dim WithEvents oExtractNew As Office.CommandBarButton

Dim ShowSealAndSendControl As Boolean
Dim OutlookVersion As String

Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As
String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal
nShowCmd As Long) As Long

'************************************************* ******************************

'************************************************* ******************************
'Custom procedu InitHandler(olApp As Outlook.Application, strProgID
As String)
'Purpose: Initialize event-aware object variables
'************************************************* ******************************
Friend Sub InitHandler(olApp As Outlook.Application, strProgID As
String)

'On Error Resume Next

Set objOutlook = olApp 'Application Object

'Instantiate a public module-level Outlook application variable
Set m_olApp = olApp
'CDO Session if required
'Uncomment for CDO
'Set m_objCDO = CreateObject("MAPI.Session")
'm_objCDO.Logon "", "", False, False
'Declared WithEvents
Set objNS = objOutlook.GetNamespace("MAPI") 'NameSpace Object
'Uncomment to use in Outlook 2002 COM Add-in
'Set colReminders = objOutlook.Reminders 'Reminders Object
Set colExpl = objOutlook.Explorers 'Explorers Object
Set colInsp = objOutlook.Inspectors 'Inspectors Object
Set objExpl = objOutlook.ActiveExplorer 'Explorer Object

End Sub

'detect the type, then bind the new inspector item to ObjMailitem
Private Sub colInsp_NewInspector(ByVal Inspector As Inspector)

Dim objItem As Outlook.MailItem

Set objInsp = Inspector
objInsp.Activate
Set objItem = objInsp.CurrentItem
Select Case objItem.Class
Case olMail
Set objMailItem = objItem
End Select

Set objItem = Nothing
End Sub

Private Sub objMailItem_Open(Cancel As Boolean)
Call addControls
End Sub

Private Sub addControls()

Dim cmdBar As Office.CommandBar
Dim cmdBars As Office.CommandBars
Set cmdBars = objMailItem.GetInspector.CommandBars

On Error Resume Next
Dim deletebar As Office.CommandBar
Set deletebar = cmdBars.Item("bar")
deletebar.Delete
deletebar = Nothing
On Error GoTo 0

Set cmdBar = cmdBars.Add("bar", 1, False, True)

Set oSealAllAttachmentsNew =
cmdBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
oSealAllAttachmentsNew.Caption = "TruSeal &All Attachments"
oSealAllAttachmentsNew.ToolTipText = "Click here to Seal the
attachments on this email"
oSealAllAttachmentsNew.Tag = "oSealAllAttachmentsNew"
oSealAllAttachmentsNew.Style = msoButtonCaption
oSealAllAttachmentsNew.Visible = True

cmdBar.Visible = True

End Sub

'when i detect here the to value, it doesnt show anything.
Private Sub oSealAllAttachmentsNew_click(ByVal Ctrl As
Office.CommandBarButton, CancelDefault As Boolean)
MsgBox objInsp.CurrentItem.To
End Sub

This is my designers connect class

Option Explicit
'Use Implements IDTExtensibility2 in VB5 environment
'Implements IDTExtensibility2
Private gBaseClass As New OutAddIn

Private Sub AddinInstance_OnAddInsUpdate(custom() As Variant)
'DebugWrite "AddinInstance_OnAddInsUpdate"
End Sub

Private Sub AddinInstance_OnBeginShutdown(custom() As Variant)
'DebugWrite "AddinInstance_OnBeginShutdown"
End Sub

Private Sub AddinInstance_OnConnection(ByVal Application As Object, _
ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, _
ByVal AddInInst As Object, custom() As Variant)

'On Error Resume Next
'Evaluate ConnectMode
Select Case ConnectMode
Case ext_cm_Startup
Case ext_cm_AfterStartup
Case ext_cm_CommandLine
Case ext_cm_Startup
End Select
'Don't call InitHandler if Explorers.Count = 0 and
Inspectors.Count = 0
If Application.Explorers.count = 0 And
Application.Inspectors.count = 0 Then
Exit Sub
End If

'AddInInst represents COMAddIn object
'Create and Initialize a base class
gBaseClass.InitHandler Application, AddInInst.ProgId
'DebugWrite "IDT2 OnConnection"

End Sub

Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode _
As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
'Tear down the class
'IMPORTANT: This event will not fire when
'RemoveMode = ext_dm_HostShutdown
'It will fire when RemoveMode = ext_dm_UserClosed

'gBaseClass.UnInitHandler
If RemoveMode = ext_dm_UserClosed Then
'User shutdown removed COM Add-in
'Cleanup custom toolbars by deleting them
Else
'Host shutdown
End If
Set gBaseClass = Nothing
If Constants.DEBUG_MODE = True Then
DEBUG_FILE.Write "AddinInstance_OnDisconnection: completed" &
" " & Time & vbCrLf
End If
'DebugWrite "AddinInstance_OnDisconnection"
End Sub

Private Sub AddinInstance_OnStartupComplete(custom() As Variant)
'
'DebugWrite "AddinInstance OnStartupComplete"
End Sub- Hide quoted text -

- Show quoted text -

Hi ken

Many thanks for the reply!

Ok, i have changed my newinspector code to the following


Private Sub colInsp_NewInspector(ByVal Inspector As Inspector)
Set objInsp = Inspector
End Sub


Then i have added ObjInsp_Activate

Public Sub objInsp_Activate()

Dim objItem As Outlook.MailItem
Set objItem = objInsp.CurrentItem
Select Case objItem.Class
Case olMail
Set objMailItem = objInsp.CurrentItem
Case olPost
'Set objPostItem = objItem
Case olAppointment
'Set objApptItem = objItem
Case olContact
'Set objContactItem = objItem
Case olDistributionList
'Set objDistListItem = objItem
Case olTask
'Set objTaskItem = objItem
Case olJournal
'Set objJournalItem = objItem
Case olDocument
'Set objDocumentItem = objItem
End Select
End Sub

So, i bind the ObjMailitem in the activate event, then the controls
are added in the Objmailitem_Open event, which is fired after the
activate event but i still cannot access the to and subject fields

Is this correct?

Many thanks

Jamie

Ken Slovak - [MVP - Outlook] February 27th 07 07:37 PM
access to and subject of a wordmail item
 
As a test, in Inspector.Activate() try to retrieve objItem.Subject and
objItem.To.

As your code is written you will get an error if anything but a mail item is
being opened.

--
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


wrote in message
oups.com...

Hi ken

Many thanks for the reply!

Ok, i have changed my newinspector code to the following


Private Sub colInsp_NewInspector(ByVal Inspector As Inspector)
Set objInsp = Inspector
End Sub


Then i have added ObjInsp_Activate

Public Sub objInsp_Activate()

Dim objItem As Outlook.MailItem
Set objItem = objInsp.CurrentItem
Select Case objItem.Class
Case olMail
Set objMailItem = objInsp.CurrentItem
Case olPost
'Set objPostItem = objItem
Case olAppointment
'Set objApptItem = objItem
Case olContact
'Set objContactItem = objItem
Case olDistributionList
'Set objDistListItem = objItem
Case olTask
'Set objTaskItem = objItem
Case olJournal
'Set objJournalItem = objItem
Case olDocument
'Set objDocumentItem = objItem
End Select
End Sub

So, i bind the ObjMailitem in the activate event, then the controls
are added in the Objmailitem_Open event, which is fired after the
activate event but i still cannot access the to and subject fields

Is this correct?

Many thanks

Jamie

[email protected] March 1st 07 10:03 AM
access to and subject of a wordmail item
 
Hi Ken

I have added the following to the activate event

msgbox objinsp.to

and

after binding

msgbox objmailitem.subject

and they both return empty strings with no errors

However, if i then enter an email address and a subject in wordmail
new mail form, then click my control and check objmailitem.to or
objmailitem.subject, they are an empty string. this is very strange.
It works fine if word is not the mail editor. i am testing using
outlook 2003

What is wierd, is that when i open a new word mail, the
objinsp_activate is fired several times, is this right?

is there some sort of event i can fire which sort of updates the
objinsp with the values entered in the new mail fields
programmatically?

cheers

Jamie




On 27 Feb, 19:37, "Ken Slovak - [MVP - Outlook]"
wrote:
As a test, in Inspector.Activate() try to retrieve objItem.Subject and
objItem.To.

As your code is written you will get an error if anything but a mail item is
being opened.

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

wrote in message

oups.com...

Hi ken

Many thanks for the reply!

Ok, i have changed my newinspector code to the following

Private Sub colInsp_NewInspector(ByVal Inspector As Inspector)
Set objInsp = Inspector
End Sub

Then i have added ObjInsp_Activate

Public Sub objInsp_Activate()

Dim objItem As Outlook.MailItem
Set objItem = objInsp.CurrentItem
Select Case objItem.Class
Case olMail
Set objMailItem = objInsp.CurrentItem
Case olPost
'Set objPostItem = objItem
Case olAppointment
'Set objApptItem = objItem
Case olContact
'Set objContactItem = objItem
Case olDistributionList
'Set objDistListItem = objItem
Case olTask
'Set objTaskItem = objItem
Case olJournal
'Set objJournalItem = objItem
Case olDocument
'Set objDocumentItem = objItem
End Select
End Sub

So, i bind the ObjMailitem in the activate event, then the controls
are added in the Objmailitem_Open event, which is fired after the
activate event but i still cannot access the to and subject fields

Is this correct?

Many thanks

Jamie

Ken Slovak - [MVP - Outlook] March 1st 07 05:07 PM
access to and subject of a wordmail item
 
More than 1 Activate event is normal. With WordMail you even get an extra
Activate event over the Outlook editor, as a sort of bonus g.

About all I can think of is that when you are entering subject and to and
are in the MailEnvelope portion of the WordMail window that the Outlook
Inspector hasn't yet been updated with that data. Unfortunately there's no
real way to read that mailenvelope data from the msoEnvelope wrapper.

You might be able to set the cursor to the body of the email by setting a
selection in the Document object (WordEditor). That might update the
Inspector.CurrentItem properties.

--
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


wrote in message
oups.com...
Hi Ken

I have added the following to the activate event

msgbox objinsp.to

and

after binding

msgbox objmailitem.subject

and they both return empty strings with no errors

However, if i then enter an email address and a subject in wordmail
new mail form, then click my control and check objmailitem.to or
objmailitem.subject, they are an empty string. this is very strange.
It works fine if word is not the mail editor. i am testing using
outlook 2003

What is wierd, is that when i open a new word mail, the
objinsp_activate is fired several times, is this right?

is there some sort of event i can fire which sort of updates the
objinsp with the values entered in the new mail fields
programmatically?

cheers

Jamie

[email protected] March 5th 07 12:16 PM
access to and subject of a wordmail item
 
Hi Ken

I have found the solution!!

All you need to do is to do objmailitenm.save! and the fields are then
recognised!

It is always something really small!

Many thanks for your help on this one

Jamie :-)


On Mar 1, 5:07 pm, "Ken Slovak - [MVP - Outlook]"
wrote:
More than 1 Activate event is normal. With WordMail you even get an extra
Activate event over the Outlook editor, as a sort of bonus g.

About all I can think of is that when you are entering subject and to and
are in the MailEnvelope portion of the WordMail window that the Outlook
Inspector hasn't yet been updated with that data. Unfortunately there's no
real way to read that mailenvelope data from the msoEnvelope wrapper.

You might be able to set the cursor to the body of the email by setting a
selection in the Document object (WordEditor). That might update the
Inspector.CurrentItem properties.

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

wrote in message

oups.com...



Hi Ken

I have added the following to the activate event

msgbox objinsp.to

and

after binding

msgbox objmailitem.subject

and they both return empty strings with no errors

However, if i then enter an email address and a subject in wordmail
new mail form, then click my control and check objmailitem.to or
objmailitem.subject, they are an empty string. this is very strange.
It works fine if word is not the mail editor. i am testing using
outlook 2003

What is wierd, is that when i open a new word mail, the
objinsp_activate is fired several times, is this right?

is there some sort of event i can fire which sort of updates the
objinsp with the values entered in the new mail fields
programmatically?

cheers

Jamie- Hide quoted text -

- Show quoted text -


All times are GMT +1. The time now is 07:22 PM.

Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2006 OutlookBanter.com