Posts 1 - 10 of 12
First | Prev. | 1 2 | Next | Last
|
|
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: 7235
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: 7235
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: 7235
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: 7235
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: 7235
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
|
|
Posts 1 - 10 of 12
First | Prev. | 1 2 | Next | Last
|