Discussion :

[chewby79]

Bonjour à tous,
J'ai déjà un addin qui fonctionne et qui fait de la gestion de pièce jointe (en gros).

Voilà mon problème, je prend un fichier qui se trouve sur le bureau et je fais glisser dans un nouvel email J'aimerais qu'une msgbox s'affiche et me donne le chemin complet de celui-ci. Est-ce possible? si oui, comment?

Autre objectif et mêmes questions: un utilisateur copie un fichier depuis son et
fait click droit coller. La encore j'aimerais son chemin complet.

Voilà j'espère que vous pourrez m'aider. si vous avez besoin des éclaircissements sur quoi que ce soit je suis tout à fait prêt à vous les donner.
Cordialement,
Chewby79

[carden752]

Bonjour,

Je pense que le plus simple est d'ajouter à ton Add-in actuel qui fait cette gestion, cette fonctionnalité.

[chewby79]

Oui c'est ce que je cherche à faire mais comment ?
si tu sais vers quelle(s) méthode(s) je dois regarder ou un simple bout de code. cela m'aiderait grandement.
Pour moi l'important est de voir quand l'utilisateur a déposé un fichier sur un nouveau mail.

Cordialement,
Chewby 79

[carden752]

Bonjour,

Je pense que le mieux est d'utiliser les évènements et notamment

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub myitem_BeforeAttachmentAdd(ByVal Attachment As Attachment, Cancel As Boolean)

[chewby79]

ah merci j'ai testé avec cette méthode mais pas moyen de l'utiliser, je n'arrive même pas à faire afficher une msgbox...

voila mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Class ThisAddIn
 
    Dim monInspecteur As Outlook.Inspectors
    Dim WithEvents monMail As Outlook.MailItem
    Public Shared WithEvents outApp As Outlook.Application
 
    Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
        monInspecteur = Me.Application.Inspectors
        outApp = Me.Application
    End Sub
 
 
    Protected Overrides Function CreateRibbonExtensibilityObject() As  _
Microsoft.Office.Core.IRibbonExtensibility
        Return New Ribbon()
    End Function
 
    Public Sub monMail _BeforeAttachmentAdd(ByVal Attachment As Attachment, ByRef Cancel As Boolean) Handles monMail.BeforeAttachmentAdd
 
    MsgBox ("test "& attachment.DisplayName)
 
    End Sub
 
 
    Private Sub ThisAddIn_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
 
    End Sub
End Class

[carden752]

Bonjour,

Il te faut ensuite initialiser monmail comme étant le mail.
ajouter quelque de ce style à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
        monInspecteur = Me.Application.Inspectors
        outApp = Me.Application
if monInspecteur.currentitem.class=Olmail then
set monmail=monInspecteur.currentItem
end if
    End Sub

Attention pas d'espace avec les objets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Sub monMail_BeforeAttachmentAdd(ByVal Attachment As Attachment, ByRef Cancel As Boolean) Handles monMail.BeforeAttachmentAdd

[chewby79]

yeah merci de ton aide c'est tout a fait ça !
je met en résolu