AdxOlInspectorCommandBar probem

Add-in Express™ Support Service
That's what is more important than anything else

AdxOlInspectorCommandBar probem
 
Giuseppe Porcelli




Posts: 46
Joined: 2006-05-26
I have an AdxOlInspectorCommandBar in my VS2005 project that after the first time finish to work.
What I have to do ?

I have to delete the AdxOlInspectorCommandBar when shoutdown ? and the to create it again on new Mail Item ?
Posted 26 May, 2006 05:50:38 Top
Sergey Grischenko


Add-in Express team


Posts: 7228
Joined: 2004-07-05
Hi Giuseppe.

Try to unregister the add-in and then register it again.
Also please look at our Outlook examples from the ADX installation package.
Posted 26 May, 2006 13:05:46 Top
Giuseppe Porcelli




Posts: 46
Joined: 2006-05-26
Sergey,
thank you for your prompt reply.
The problem is that Inside my AdxOlInspectorCommandBar I have 4 PopUp control that inside them have other PopUp control.

Now,
When I start the project, I register it, launch outlook, all work well.

But if I close Outlook and restart it again, File > New Email, the bar have one popup without any inside other popUp.

I think the only way is to remove the bar anytime I open a new Mail, and to build it again ?

if yes, how to do it ?
if no, How to solve !!!

Giuseppe
Posted 26 May, 2006 14:01:44 Top
Sergey Grischenko


Add-in Express team


Posts: 7228
Joined: 2004-07-05
Hi Giuseppe.

You just need to set the Temporary property of the AdxOlInspectorCommandBar component to true.
Posted 26 May, 2006 19:30:17 Top
Giuseppe Porcelli




Posts: 46
Joined: 2006-05-26
Hi Sergey,
nooo the property of AdxOlInspectorCommandBar is still set to true.
I don't know if can be userfull, but I am using word 2003 to write new email in outlook 2003.

Please Sergey, help me, I bought your application just yesterday, and this is the first project I try. !!!!

I have attached the code of my AddinModule.vb

Imports System.Runtime.InteropServices
Imports System.ComponentModel
Imports Outlook = Microsoft.Office.Interop.Outlook

'Add-in Express Add-in Module
Imports System.Data.SqlClient
Imports System.Data
<GuidAttribute("56A71C97-F41F-41D5-B2E6-9FE6EABB73CB"), ProgIdAttribute("MyAddin1.AddinModule")> _
Public Class AddinModule
    Inherits AddinExpress.MSO.ADXAddinModule

    Friend WithEvents AdxOlInspectorCommandBar1 As AddinExpress.MSO.ADXOlInspectorCommandBar
    Friend WithEvents AdxCommandBarComboBox1 As AddinExpress.MSO.ADXCommandBarComboBox
    Friend WithEvents AdxCommandBarDropDownList1 As AddinExpress.MSO.ADXCommandBarDropDownList
    Friend WithEvents BTSelezioneArticolo As AddinExpress.MSO.ADXCommandBarButton
    Friend WithEvents AdxCommandBarPopup1 As AddinExpress.MSO.ADXCommandBarPopup
    Friend WithEvents AdxCommandBarButton1 As AddinExpress.MSO.ADXCommandBarButton
    Friend WithEvents AdxCommandBarButton2 As AddinExpress.MSO.ADXCommandBarButton
#Region " Component Designer generated code. "
    'Required by designer
    Private components As System.ComponentModel.IContainer

    'Required by designer - do not modify
    'the following method
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Me.AdxOlInspectorCommandBar1 = New AddinExpress.MSO.ADXOlInspectorCommandBar(Me.components)
        Me.AdxCommandBarComboBox1 = New AddinExpress.MSO.ADXCommandBarComboBox(Me.components)
        Me.AdxCommandBarDropDownList1 = New AddinExpress.MSO.ADXCommandBarDropDownList(Me.components)
        Me.BTSelezioneArticolo = New AddinExpress.MSO.ADXCommandBarButton(Me.components)
        Me.AdxCommandBarPopup1 = New AddinExpress.MSO.ADXCommandBarPopup(Me.components)
        Me.AdxCommandBarButton1 = New AddinExpress.MSO.ADXCommandBarButton(Me.components)
        Me.AdxCommandBarButton2 = New AddinExpress.MSO.ADXCommandBarButton(Me.components)
        '
        'AdxOlInspectorCommandBar1
        '
        Me.AdxOlInspectorCommandBar1.CommandBarName = "AdxOlInspectorCommandBar1"
        Me.AdxOlInspectorCommandBar1.CommandBarTag = "be734a94-cc05-47db-9d1c-6391a216a9be"
        Me.AdxOlInspectorCommandBar1.Controls.Add(Me.AdxCommandBarComboBox1)
        Me.AdxOlInspectorCommandBar1.Controls.Add(Me.AdxCommandBarDropDownList1)
        Me.AdxOlInspectorCommandBar1.Controls.Add(Me.BTSelezioneArticolo)
        Me.AdxOlInspectorCommandBar1.Controls.Add(Me.AdxCommandBarPopup1)
        Me.AdxOlInspectorCommandBar1.Description = "Seleziona l'articolo"
        Me.AdxOlInspectorCommandBar1.Position = AddinExpress.MSO.ADXMsoBarPosition.adxMsoBarTop
        Me.AdxOlInspectorCommandBar1.Temporary = True
        Me.AdxOlInspectorCommandBar1.UpdateCounter = 9
        '
        'AdxCommandBarComboBox1
        '
        Me.AdxCommandBarComboBox1.Caption = "Articoli"
        Me.AdxCommandBarComboBox1.ControlTag = "3f086b52-3232-482d-9fff-2afc6873981a"
        Me.AdxCommandBarComboBox1.DropDownWidth = 300
        Me.AdxCommandBarComboBox1.UpdateCounter = 4
        Me.AdxCommandBarComboBox1.Width = 200
        '
        'AdxCommandBarDropDownList1
        '
        Me.AdxCommandBarDropDownList1.ControlTag = "a32c4ccb-8a17-4102-a24b-19f5a6941f22"
        Me.AdxCommandBarDropDownList1.Items.AddRange(New String() {"Item1", "Item2", "Item3"})
        Me.AdxCommandBarDropDownList1.UpdateCounter = 2
        '
        'BTSelezioneArticolo
        '
        Me.BTSelezioneArticolo.Caption = "Seleziona"
        Me.BTSelezioneArticolo.ControlTag = "0eed8b27-c169-401d-96df-35b955f51a76"
        Me.BTSelezioneArticolo.Enabled = False
        Me.BTSelezioneArticolo.ImageTransparentColor = System.Drawing.Color.Transparent
        Me.BTSelezioneArticolo.TooltipText = "Selezione l'articolo interessato."
        Me.BTSelezioneArticolo.UpdateCounter = 6
        '
        'AdxCommandBarPopup1
        '
        Me.AdxCommandBarPopup1.Caption = "Documenti"
        Me.AdxCommandBarPopup1.Controls.Add(Me.AdxCommandBarButton1)
        Me.AdxCommandBarPopup1.Controls.Add(Me.AdxCommandBarButton2)
        Me.AdxCommandBarPopup1.ControlTag = "0e5c8ebf-d47e-4d9b-bfad-b71eb5f7dfc3"
        Me.AdxCommandBarPopup1.UpdateCounter = 2
        '
        'AdxCommandBarButton1
        '
        Me.AdxCommandBarButton1.Caption = "ooiboub"
        Me.AdxCommandBarButton1.ControlTag = "00ccc5db-6976-4c99-8f12-13888a3021da"
        Me.AdxCommandBarButton1.ImageTransparentColor = System.Drawing.Color.Transparent
        Me.AdxCommandBarButton1.UpdateCounter = 1
        '
        'AdxCommandBarButton2
        '
        Me.AdxCommandBarButton2.Caption = "oiboiboub"
        Me.AdxCommandBarButton2.ControlTag = "249d1381-1f89-4b68-a37e-7fe7c10293f7"
        Me.AdxCommandBarButton2.ImageTransparentColor = System.Drawing.Color.Transparent
        Me.AdxCommandBarButton2.UpdateCounter = 1
        '
        'AddinModule
        '
        Me.AddinName = "MyAddin1"
        Me.ShimProgID = "MyAddin1Shim.Proxy"
        Me.SupportedApps = AddinExpress.MSO.ADXOfficeHostApp.ohaOutlook

    End Sub

#End Region

#Region " ADX automatic code "

    'Required by Add-in Express - do not modify
    'the methods within this region

    Public Overrides Function GetContainer() As System.ComponentModel.IContainer
        If components Is Nothing Then
            components = New System.ComponentModel.Container
        End If
        GetContainer = components
    End Function

    <ComRegisterFunctionAttribute()> _
    Public Shared Sub AddinRegister(ByVal t As Type)
        AddinExpress.MSO.ADXAddinModule.ADXRegister(t)
    End Sub

    <ComUnregisterFunctionAttribute()> _
    Public Shared Sub AddinUnregister(ByVal t As Type)
        AddinExpress.MSO.ADXAddinModule.ADXUnregister(t)
    End Sub

    Public Overrides Sub UninstallControls()
        MyBase.UninstallControls()
    End Sub

#End Region

    Public Sub New()
        MyBase.New()

        'This call is required by the Component Designer
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    Public ReadOnly Property OutlookApp() As Outlook._Application
        Get
            Return HostApplication
        End Get
    End Property

    Private Sub AddinModule_AddinStartupComplete(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.AddinStartupComplete
        Dim th As New System.Threading.Thread(AddressOf CaricaArticoli)
        th.Start()
    End Sub

    Private Sub CaricaArticoli()
        Dim conn As New SqlConnection()
        conn.ConnectionString = "Data Source=SERVER;Initial Catalog=Diamante;Persist Security Info=True;User ID=sa"
        Dim cmd As New SqlCommand
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "SELECT articolo FROM RVRepArticolo Order by Articolo"
        cmd.Connection = conn
        ' Create a SqlParameter for each parameter in the stored procedure.


        Dim reader As SqlDataReader
        Dim previousConnectionState As ConnectionState = conn.State
        Try
            If conn.State = ConnectionState.Closed Then
                conn.Open()
            End If
            reader = cmd.ExecuteReader()
            Using reader
                While reader.Read
                    AdxCommandBarComboBox1.Items.Add(reader.GetString(0))
                End While
            End Using
        Finally
            If previousConnectionState = ConnectionState.Closed Then
                conn.Close()
            End If
        End Try

        AdxCommandBarComboBox1.ListIndex = 1
        Me.AdxCommandBarDropDownList1.ListIndex = 1

    End Sub

    Private Sub BTSelezioneArticolo_Click(ByVal sender As Object) Handles BTSelezioneArticolo.Click
        MsgBox(Me.AdxCommandBarComboBox1.Text & vbCrLf & Me.AdxCommandBarDropDownList1.Text)
    End Sub

    Private Sub AdxCommandBarComboBox1_Change(ByVal sender As Object) Handles AdxCommandBarComboBox1.Change
        Me.BTSelezioneArticolo.Enabled = True
    End Sub

End Class


Posted 27 May, 2006 01:44:07 Top
Sergey Grischenko


Add-in Express team


Posts: 7228
Joined: 2004-07-05
Giuseppe, I have looked at your code and I haven't found 4 popup controls.
I can see one popup only. Do you still have issue with popups?
Posted 29 May, 2006 10:52:33 Top
Giuseppe Porcelli




Posts: 46
Joined: 2006-05-26
Yes what you say is true, I try with popUp and with simple button also.
The code I sent is with simple button that simple disappear after the first time.
I have a lot of problem also when I close the Outlook, It stay always in memory process, this happend when I use Word like edit, while if I use the Outlook Email editor I don't have this problem.
Please help me.

Giuseppe

Posted 30 May, 2006 05:08:08 Top
Sergey Grischenko


Add-in Express team


Posts: 7228
Joined: 2004-07-05
Hi Giuseppe.

Do you have the Adobe Acrobat add-in installed in Word?

As to Outlook hanging, please check the add-in code and use the Marshal.ReleaseComObject method to release Outlook interfaces that are not used any more.
Posted 30 May, 2006 15:04:35 Top
Giuseppe Porcelli




Posts: 46
Joined: 2006-05-26
Hi Sergey,
no I don't have Acrobat add-in installed in Word.

Attached is my code, please have a look :

Imports System.Runtime.InteropServices
Imports System.ComponentModel
Imports Outlook = Microsoft.Office.Interop.Outlook

'Add-in Express Add-in Module
<GuidAttribute("9874A2BF-B9EC-466D-B690-33C5B1E1CD7E"), ProgIdAttribute("MyAddin2.AddinModule")> _
Public Class AddinModule
    Inherits AddinExpress.MSO.ADXAddinModule
 
    Friend WithEvents AdxCommandBarButtonAbout As AddinExpress.MSO.ADXCommandBarButton
    Friend WithEvents AdxCommandBarPopup5 As AddinExpress.MSO.ADXCommandBarPopup
    Friend WithEvents AdxCommandBarPopup4 As AddinExpress.MSO.ADXCommandBarPopup
    Friend WithEvents AdxCommandBarPopupDocumenti As AddinExpress.MSO.ADXCommandBarPopup
    Friend WithEvents AdxCommandBarPopup2 As AddinExpress.MSO.ADXCommandBarPopup
    Friend WithEvents AdxOlInspectorCommandBar1 As AddinExpress.MSO.ADXOlInspectorCommandBar
    Friend WithEvents adxOutlookEvents As AddinExpress.MSO.ADXOutlookAppEvents
    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
#Region " Component Designer generated code. "
    'Required by designer
    Private components As System.ComponentModel.IContainer

    'Required by designer - do not modify
    'the following method
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(AddinModule))
        Me.adxOutlookEvents = New AddinExpress.MSO.ADXOutlookAppEvents(Me.components)
        Me.AdxOlInspectorCommandBar1 = New AddinExpress.MSO.ADXOlInspectorCommandBar(Me.components)
        Me.AdxCommandBarPopup2 = New AddinExpress.MSO.ADXCommandBarPopup(Me.components)
        Me.AdxCommandBarPopupDocumenti = New AddinExpress.MSO.ADXCommandBarPopup(Me.components)
        Me.AdxCommandBarPopup4 = New AddinExpress.MSO.ADXCommandBarPopup(Me.components)
        Me.AdxCommandBarPopup5 = New AddinExpress.MSO.ADXCommandBarPopup(Me.components)
        Me.AdxCommandBarButtonAbout = New AddinExpress.MSO.ADXCommandBarButton(Me.components)
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
        '
        'adxOutlookEvents
        '
        '
        'AdxOlInspectorCommandBar1
        '
        Me.AdxOlInspectorCommandBar1.CommandBarName = "Standard"
        Me.AdxOlInspectorCommandBar1.CommandBarTag = "3b3ee660-7d0f-4110-ac59-0a36a472b242"
        Me.AdxOlInspectorCommandBar1.Controls.Add(Me.AdxCommandBarPopup2)
        Me.AdxOlInspectorCommandBar1.Temporary = True
        Me.AdxOlInspectorCommandBar1.UpdateCounter = 18
        '
        'AdxCommandBarPopup2
        '
        Me.AdxCommandBarPopup2.BeginGroup = True
        Me.AdxCommandBarPopup2.Caption = "Uniprof"
        Me.AdxCommandBarPopup2.Controls.Add(Me.AdxCommandBarPopupDocumenti)
        Me.AdxCommandBarPopup2.Controls.Add(Me.AdxCommandBarPopup4)
        Me.AdxCommandBarPopup2.Controls.Add(Me.AdxCommandBarPopup5)
        Me.AdxCommandBarPopup2.Controls.Add(Me.AdxCommandBarButtonAbout)
        Me.AdxCommandBarPopup2.ControlTag = "ad59aca8-0b82-4bb4-9bd9-6d089fb5670c"
        Me.AdxCommandBarPopup2.Temporary = True
        Me.AdxCommandBarPopup2.UpdateCounter = 4
        '
        'AdxCommandBarPopupDocumenti
        '
        Me.AdxCommandBarPopupDocumenti.Caption = "Documenti"
        Me.AdxCommandBarPopupDocumenti.ControlTag = "aaf360ec-9d3c-4dbf-9d8c-df1ccc335cc7"
        Me.AdxCommandBarPopupDocumenti.Temporary = True
        Me.AdxCommandBarPopupDocumenti.UpdateCounter = 4
        '
        'AdxCommandBarPopup4
        '
        Me.AdxCommandBarPopup4.Caption = "Foto"
        Me.AdxCommandBarPopup4.ControlTag = "797ade73-8871-4e39-b294-07ccffd30d63"
        Me.AdxCommandBarPopup4.Temporary = True
        Me.AdxCommandBarPopup4.UpdateCounter = 3
        '
        'AdxCommandBarPopup5
        '
        Me.AdxCommandBarPopup5.Caption = "Informazioni"
        Me.AdxCommandBarPopup5.ControlTag = "46abcfb5-1477-4ab6-b24c-f53ab717a5d1"
        Me.AdxCommandBarPopup5.Temporary = True
        Me.AdxCommandBarPopup5.UpdateCounter = 3
        '
        'AdxCommandBarButtonAbout
        '
        Me.AdxCommandBarButtonAbout.BeginGroup = True
        Me.AdxCommandBarButtonAbout.Caption = "About...."
        Me.AdxCommandBarButtonAbout.ControlTag = "bcaac1f3-459d-47df-8e8b-f4be33795abf"
        Me.AdxCommandBarButtonAbout.ImageTransparentColor = System.Drawing.Color.Transparent
        Me.AdxCommandBarButtonAbout.Temporary = True
        Me.AdxCommandBarButtonAbout.UpdateCounter = 9
        '
        'ImageList1
        '
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        Me.ImageList1.Images.SetKeyName(0, "access.gif")
        Me.ImageList1.Images.SetKeyName(1, "acrobat.gif")
        Me.ImageList1.Images.SetKeyName(2, "bitmap.gif")
        Me.ImageList1.Images.SetKeyName(3, "excel.gif")
        Me.ImageList1.Images.SetKeyName(4, "explorer.gif")
        Me.ImageList1.Images.SetKeyName(5, "img_gif.gif")
        Me.ImageList1.Images.SetKeyName(6, "img_jpg.gif")
        Me.ImageList1.Images.SetKeyName(7, "img_png.gif")
        Me.ImageList1.Images.SetKeyName(8, "img_tiff.gif")
        Me.ImageList1.Images.SetKeyName(9, "img_zip.gif")
        Me.ImageList1.Images.SetKeyName(10, "no_file.gif")
        Me.ImageList1.Images.SetKeyName(11, "testo.gif")
        Me.ImageList1.Images.SetKeyName(12, "word.gif")
        '
        'AddinModule
        '
        Me.AddinName = "MyAddin2"
        Me.SupportedApps = AddinExpress.MSO.ADXOfficeHostApp.ohaOutlook

    End Sub

#End Region

#Region " ADX automatic code "

    'Required by Add-in Express - do not modify
    'the methods within this region

    Public Overrides Function GetContainer() As System.ComponentModel.IContainer
        If components Is Nothing Then
            components = New System.ComponentModel.Container
        End If
        GetContainer = components
    End Function

    <ComRegisterFunctionAttribute()> _
    Public Shared Sub AddinRegister(ByVal t As Type)
        AddinExpress.MSO.ADXAddinModule.ADXRegister(t)
    End Sub

    <ComUnregisterFunctionAttribute()> _
    Public Shared Sub AddinUnregister(ByVal t As Type)
        AddinExpress.MSO.ADXAddinModule.ADXUnregister(t)
    End Sub

    Public Overrides Sub UninstallControls()
        MyBase.UninstallControls()
    End Sub

#End Region

    Public Sub New()
        MyBase.New()

        'This call is required by the Component Designer
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    Public ReadOnly Property OutlookApp() As Outlook._Application
        Get
            Return HostApplication
        End Get
    End Property

    Public Sub RiempiListaDocumentiCondivisi()
        Me.RiempiFile()
    End Sub

    Private Sub MsgBoxErrore(ByVal ex As Exception)
        MsgBox("Errore: " & ex.Message & vbCrLf & "Stack: " & ex.StackTrace)
    End Sub

    Private Sub FormAggiungiFile(ByVal sender As Object)
        Me.ShowFormXpStype(New FormAggiungiDocumento(Me))
        Me.RiempiFile()
    End Sub

    Private Sub RiempiFile()
        Try

        Catch ex As Exception

        End Try

        Try
            Dim dir As New System.IO.DirectoryInfo("w:DocumentiCondivisi")
            For Each file As System.IO.FileInfo In dir.GetFiles
                If Not file.Name = "" Then
                    If IsNothing(Me.AdxCommandBarPopupDocumenti.Controls.GetControlByControlTag(file.CreationTime, False)) Then
                        Dim butt As New AddinExpress.MSO.ADXCommandBarButton
                        butt.Style = AddinExpress.MSO.ADXMsoButtonStyle.adxMsoButtonIconAndCaption
                        butt.ImageList = Me.ImageList1
                        butt.Image = Me.IDImage(file.Extension)
                        butt.ImageTransparentColor = System.Drawing.Color.Transparent
                        butt.Temporary = True
                        butt.Caption = file.Name
                        butt.Before = 1
                        butt.Tag = file.CreationTime
                        Me.AdxCommandBarPopupDocumenti.Controls.Add(butt)
                        AddHandler butt.Click, AddressOf clickSuDocumento
                    End If
                End If
            Next

            If IsNothing(Me.AdxCommandBarPopupDocumenti.Controls.GetControlByTag("buttaggiungiFile", True)) Then
                Dim buttaggiungiFile As New AddinExpress.MSO.ADXCommandBarButton
                buttaggiungiFile.ImageTransparentColor = System.Drawing.Color.Transparent
                buttaggiungiFile.Temporary = True
                ' buttaggiungiFile.Tag = "buttaggiungiFile"
                buttaggiungiFile.BeginGroup = True
                buttaggiungiFile.Caption = "Aggiungi nuovo file....."
                Me.AdxCommandBarPopupDocumenti.Controls.Add(buttaggiungiFile)
                AddHandler buttaggiungiFile.Click, AddressOf FormAggiungiFile
            End If

            If IsNothing(Me.AdxCommandBarPopupDocumenti.Controls.GetControlByTag("AggiornaMenuDocumenti", True)) Then
                Dim buttaggiungiFile As New AddinExpress.MSO.ADXCommandBarButton
                buttaggiungiFile.ImageTransparentColor = System.Drawing.Color.Transparent
                buttaggiungiFile.Temporary = True

                ' buttaggiungiFile.Tag = "AggiornaMenuDocumenti"
                buttaggiungiFile.Caption = "Aggiorna lista"
                Me.AdxCommandBarPopupDocumenti.Controls.Add(buttaggiungiFile)
                AddHandler buttaggiungiFile.Click, AddressOf aggionaListaDocumenti
            End If
        Catch ex As Exception
            Me.MsgBoxErrore(ex)
        End Try
    End Sub
    Private Sub aggionaListaDocumenti(ByVal sender As Object)
        Dim th As New Threading.Thread(AddressOf svuotaListaDocumenti)
        th.Start()
    End Sub
    Private Sub svuotaListaDocumenti()
        Me.AdxCommandBarPopupDocumenti.Controls.Clear()
        Me.RiempiFile()
        MsgBox("Aggiornamento effettuato.")
    End Sub

    Private Sub clickSuDocumento(ByVal sender As Object)
        Dim Butt As AddinExpress.MSO.ADXCommandBarButton = CType(sender, AddinExpress.MSO.ADXCommandBarButton)
        Dim fileDaAggiungere As New System.IO.FileInfo("w:DocumentiCondivisi" & Butt.Caption.Trim)
        Dim mailItem As Outlook.MailItem = Me.OutlookApp.ActiveInspector.CurrentItem
        If mailItem.Attachments.Count > 0 Then
            For Each att As Outlook.Attachment In mailItem.Attachments
                If att.FileName = Butt.Caption.Trim Then
                    MsgBox("Il documenti è già allegato alla mail.", MsgBoxStyle.Exclamation)
                    Exit Sub
                End If
            Next
        End If
        Try
            mailItem.Attachments.Add("w:DocumentiCondivisi" & Butt.Caption.Trim)
        Catch ex As Exception
            MsgBox("Impossibile allegare il file selezionato, informare l'amministratore di sistema di questo errore.")
        Finally
            Marshal.ReleaseComObject(Butt)
            Marshal.ReleaseComObject(mailItem)
        End Try
      
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Arrow
        System.Windows.Forms.Application.DoEvents()
    End Sub

    Private Sub AdxCommandBarButtonAbout_Click(ByVal sender As Object) Handles AdxCommandBarButtonAbout.Click
        Me.ShowFormXpStype(New AboutBox1)
    End Sub

#Region "Funzioni usuali"

    Private Sub ShowFormXpStype(ByRef form As System.Windows.Forms.Form)
        Using AddinExpress.MSO.XPThemes.Enable
            form.ShowDialog()
        End Using
    End Sub

    Private Function IDImage(ByVal ext As String) As Integer

        Select Case ext.Replace(".", "").ToLower

            Case "mdb"
                Return 0
            Case "pdf"
                Return 1
            Case "bmp"
                Return 2
            Case "xls"
                Return 3
            Case "gif"
                Return 5
            Case "jpg"
                Return 6
            Case "png"
                Return 7
            Case "tif"
                Return 8
            Case "zip"
                Return 9
            Case "txt"
                Return 11
            Case "doc"
                Return 12
            Case "rtf"
                Return 12
            Case Else
                Return 10

        End Select
    End Function

#End Region

    'Private Sub adxOutlookEvents_InspectorClose(ByVal sender As Object, ByVal inspector As Object, ByVal folderName As String) Handles adxOutlookEvents.InspectorClose
    '    If Not IsNothing(inspector) Then
    '        Dim ins As Outlook._Inspector = inspector
    '        For Each cont As Microsoft.Office.Core.CommandBarControl In ins.CommandBars(Me.AdxOlInspectorCommandBar1.Index).FindControl(type.Missing,,Tag:
    '            cont.Delete()
    '        Next
    '        Marshal.ReleaseComObject(ins)
    '    End If
    'End Sub


    Private Sub adxOutlookEvents_NewInspector(ByVal sender As Object, ByVal inspector As Object, ByVal folderName As String) Handles adxOutlookEvents.NewInspector
        If (TypeOf (inspector.CurrentItem) Is Outlook.MailItem) Then
            Me.RiempiListaDocumentiCondivisi()
        End If
    End Sub

End Class






Posted 31 May, 2006 01:26:03 Top
Sergey Grischenko


Add-in Express team


Posts: 7228
Joined: 2004-07-05
Hi Giuseppe.

Could you please send me the add-in project by email? I will test it on my PC.
Posted 31 May, 2006 10:01:08 Top