MS-Oulook macro lors nouveau mail ... XL

tora à dit:

1/ tout comme sous XL créer un bouton avec un smiley jaune en image
de fond (c'est possible ça ?) 😕
Solution la plus simple, créer une barre d'outil personnalisée, choisir l'affichage icône et dessiner un beau petit smyley.
2/Lors de la création d'un nouveau mail : récupérer l'adresse mail et
la rebalancer dans un fichier XL avec quelques commentaires choisis
dans d'autres colonnes, etc ... (lancé par mon smiley car action non
souhaitée sur tous les mails sortants)
Là, à mon avis, moins cool... Si j'ai un peu compris les macros que j'ai écrit pour OutLook, le principe est toujours de créer l'observateur d'évènement, puis de lui affecter des tâches en fonction de l'événement déclenché. La barre d'outil décrite plus haut, je ne suis pas sûr que tu puisses l'affecter à la rédaction du mail, à la place du menu principal (je ne peux pas vérifier, sur 2007, la rédaction est en mode ruban).
Pour explication :
A partir d'une page Web ou l'on trouve une adresse mail (nous contacter : "moi@moi.com") ,
en cliquant sur l'adresse mail, Ms-Outlook s'ouvre avec un nouveau mail prêt à l'envoi qui est
donc porteur de l' adresse mail convoitée, attendant qu'on lui remplisse le contenu et l'envoyer.
Bref mon smiley va glaner ici : "moi@moi.com" et ouvrir mon fichier XL
pour continuer à le remplir .... mais bien sur ce mail ne sera pas envoyé et
détruit en fin de macro après <<glannage>>.
C'est peut-être là qu'est la solution : déclencher l'observateur sur l'événement : ne pas envoyer (plus exactement Voulez-vous enregistrer les modifications, soit l'événement Before_Close de Nouveau Message)

Cliquez pour agrandir...

GetObject, fonction, exemple

Cet exemple utilise la fonction GetObject pour obtenir une référence à une feuille de calcul Microsoft Excel spécifique (MyXL). Il utilise la propriété Application de la feuille de calcul pour rendre Microsoft Excel visible, pour fermer l'application, etc. Le premier appel à la fonction GetObject entraîne une erreur si Microsoft Excel n'est pas déjà en exécution. Dans notre exemple, l'erreur a pour conséquence d'attribuer la valeur True à l'indicateur ExcelWasNotRunning. Le deuxième appel à la fonction GetObject indique le fichier à ouvrir. Si Microsoft Excel n'est pas déjà en exécution, le deuxième appel lance l'application et renvoie une référence à la feuille de calcul représentée par le fichier indiqué, montest.xls. Ce fichier doit se trouver à l'emplacement spécifié ; dans le cas contraire, l'erreur Erreur Automation Visual Basic est générée. L'exemple de code rend ensuite Microsoft Excel et la fenêtre contenant la feuille de calcul indiquée visibles. Enfin, si Microsoft Excel n'était pas en exécution précédemment, le code utilise la méthode Quit de l'objet Application pour fermer Microsoft Excel. Si l'application était déjà en exécution, le code ne tente pas de la fermer. La référence elle-même est libérée en recevant la valeur Nothing.
' Déclare les routines d'API nécessaires
Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName as String, _
ByVal lpWindowName As Long) As Long
Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hWnd as Long, ByVal wMsg as Long, _
ByVal wParam as Long, _
ByVal lParam As Long) As Long
Sub GetExcel()
Dim MyXL As Object
' Variable devant contenir la
' référence à Microsoft Excel.
Dim ExcelWasNotRunning As Boolean
' Indicateur de libération finale.
' Test pour déterminer si une copie de Microsoft Excel' est déjà en exécution.
On Error Resume Next
' Retarde la récupération d'erreur.
' La fonction Getobject appelée sans le premier
' argument renvoie une référence à une instance de
' l'application. Si l'application n'est pas en
' exécution, une erreur se produit.
Set MyXL = Getobject(, "Excel.Application")
If Err.Number <> 0 Then ExcelWasNotRunning = True
Err.Clear
' Efface l'objet Err si une erreur s'est produite.
' Vérifie si Microsoft Excel est en exécution.
' Dans ce cas, l'ajoute à la table
Running Object.DetectExcel
' Définit la variable objet faisant référence au fichier à ouvrir.
Set MyXL = Getobject("c:\vb5\MONTEST.XLS")
' Affiche Microsoft Excel par l'intermédiaire de sa
' propriété Application. Affiche ensuite la fenêtre
' contenant le fichier à l'aide de la collection
' Windows de la référence à l'objet MyXL.
MyXL.Application.Visible = True
MyXL.Parent.Windows(1).Visible = True
' Effectue des opérations sur votre
' fichier ici.
' ...
' Si cette copie de Microsoft Excel n'était pas en cours
' d'exécution lorsque vous avez commencé, fermez-la
' à l'aide de la méthode Quit de la propriété
' Application.
' Notez que si vous tentez de quitter Microsoft Excel,
' la barre de titre clignote et un message s'affiche
' vous demandant si vous souhaitez enregistrer les
' fichiers chargés.
If ExcelWasNotRunning = True Then MyXL.Application.Quit
End IF
Set MyXL = Nothing
' Libère la référence à l'application
' et à la feuille de calcul.
End Sub
Sub DetectExcel()
' La procédure détecte une instance d'Excel en
' exécution et l'inscrit.
Const WM_USER = 1024
Dim hWnd As Long
' Si Excel est en exécution, cet appel d'API renvoie
' son descripteur.
hWnd = FindWindow("XLMAIN", 0)
If hWnd = 0 Then
' 0 signifie qu'Excel n'était
' pas en exécution.
Exit Sub
Else
' Excel est en exécution, donc utilise la fonction
' d'API SendMessage pour l'entrer dans la table
' Running Object.
SendMessage hWnd, WM_USER + 18, 0, 0
End If
End Sub

Cliquez pour agrandir...