Commentaires

Merci pour ce code très lisible.

Si quelqu un peut me donner quelques informations sur la structure des fichiers html d une signature Outlook ..

Je bloque sue le fait d avoir une signature html avec plusieurs pictogrammes et des URL qui fonctionnent parfaitement bien en inser manuelle et l insertion en vba qui dysfonctionne. Croix rouge sur toutes les images ou encore plus étrange un pictogramme très ancien que j utilisais il y a 2 ans s affiche une signature migrée d une version ancienne avec des balises qui perturbent

Je manque de méthode sur ce coup pour résoudre ce sujet...

En rédigeant je pense recréer une signature de zéro...

Merci de vos éclairages

Chouette idée que ce billet de blog...

Merci Oliv pour cette technique

Bonjour Oliv-,

J'étais en train de parcourir votre blog, qui est incroyable, et je me suis arrêté sur cette macro.

J'aimerai faire presque la même chose :

Lorsque le clique sur le bouton, une boîte de dialogue s'ouvre en m'invitant à sélectionner un dossier sur mon disque dur.

Dans le nom du fichier serait inscrit l'objet du mail actif que je pourrais modifier.

Reste à cliquer sur enregistrer pour sauvegarder mon mail dans un dossier spécifique avec un nom corrigé ou pas.

Est ce possible ?

Merci et meilleures salutations
Philippe

Envoyé par froggystar69

Merci bcp pour cette info.

J'ai un petit soucis lors du lancement du code.

Code :

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

Set objMsg = Application.CreateItem(olMailItem)

avec une erreur "Propriété ou méthode non géré..."

Auriez vous une idée ?

EXCEL 2013

En vous remerciant

CDT

Froggy

CreateItem est une méthode de OUtlook pas de Excel.
--> https://www.developpez.net/forums/bl...ation-outlook/

Merci bcp pour cette info.

J'ai un petit soucis lors du lancement du code.

Code :

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

Set objMsg = Application.CreateItem(olMailItem)

avec une erreur "Propriété ou méthode non géré..."

Auriez vous une idée ?

EXCEL 2013

En vous remerciant

CDT

Froggy

Bonjour Oliv,

J'ai bien aimé la deuxième méthode présentée par ton billet, j'aimerai savoir si il est possible de vérifier si les mails envoyés ont été traités par les destinataires ?

Je sais que c'est faisable en comparant le résultat de l'analyse de la boîte de réception et la boîte d'envoi mais c'est long !!

Peux tu m'aider ??

Merci et bravo pour ton travail.

Bonjour Oliv,

J'ai bien aimé la deuxième méthode présentée par ton billet, j'aimerai savoir si il est possible de vérifier si les mails envoyés ont été traités par les destinataires ?

Je sais que c'est faisable en comparant le résultat de l'analyse de la boîte de réception et la boîte d'envoi mais c'est long !!

Peux tu m'aider ??

Merci et bravo pour ton travail.

Envoyé par Bouletinos

Bonjour,

Quel est l'avantage de cette procédure comparée à celle de Sue Mosher (http://www.outlookcode.com/codedetail.aspx?id=628) ?

Je ne vois pas la subtilité...

Merci

Bonjour,
Le code initial est effectivement celui de Sue Mosher, c'est un exemple plus complet, avec comment le lancer et comment traiter une action sur un Item.

S'il y a subtilité, ce serait dans l'utilisation de

Code :

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

For i = StartFolder.Items.Count To 1 step -1

au lieu de

Code :

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

For Each objItem In StartFolder.Items

ce qui permet de supprimer des éléments en n'en zappant aucun.

Bonjour,

Quel est l'avantage de cette procédure comparée à celle de Sue Mosher (http://www.outlookcode.com/codedetail.aspx?id=628) ?

Je ne vois pas la subtilité...

Merci

Bonjour,

étant l'auteur de la demande qui a donné lieu à ce billet (et merci encore au passage à Oliv-), je me suis permis de retoucher la fonction MEF_Octet afin d'en réduire le nombre de lignes

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
Public Function MEF_Octet_Short(lgValeur As Double) As String
'---------------------------------------------------------------------------------------
' Procédure : MEF_Octet_Short
' Auteur    : Dolphy35 - http://dolphy35.developpez.com/
' Date      : 25/04/2008
' Détail    : Fonction permettant un affichage en octet, kilo, mega ou giga selon valeur passée en paramètre

' Modif par : joe.levrai
' Date      : 25/04/2015
' Détail    : conversion des If imbriqués en une boucle While Wend avec utilisation d'un tableau d'unités
'---------------------------------------------------------------------------------------

Tableau = Array("Oct", "Ko", "Mo", "Go")  ' stockage des unités

While (lgValeur / 1024 > 1) And i < UBound(Tableau)  ' itération des divisions par 1024
    i = i + 1  ' décalage de l'unité
    lgValeur = lgValeur / 1024
Wend

MEF_Octet_Short = CStr(Round(lgValeur, 2)) & " " & Tableau(i)

End Function