Discussion :

[laurent_ott]

Bonjour.
Je recherche des volontaires pour tester une application Outlook avant l’éventuelle publication du tutoriel qui en explique le fonctionnement.
Cette application a pour but de permettre le transfert de fichiers volumineux, c’est-à-dire ceux qui dépassent les quotas admis, via Outlook, donc sans avoir à passer par un service de partage de fichiers.
Toutes les explications sont dans le tutoriel : Transfert_Des_Fichiers_Volumineux.docx
Ce que je souhaite comme retour d’information des volontaires qui vont tester l’application :
- leur version Outlook (2010, 2016 ou autre) et s’ils sont en 32 bits ou 64 bits ;
- si l’application Outlook fonctionne ou non ;
- si l’installation via le fichier Excel a réussi ou non ;
- s’ils ont 7-zip ;
- leur quota pour une pièce jointe et pour un envoi ;
- et ce qu’il pense de l’application (ergonomie et utilité) ;
- s’ils m’autorisent a les mentionner dans la documentation en qualité de testeur (si la documentation est publiée) ;
- et toute autre information qu’ils jugent utile.

Les fichiers pour une installation manuelle : TDFV.zip
Le fichier pour une installation par Excel : Installation_TDFV.xlsm

Merci d’avance à ceux qui vont participer.

[Oliv-]

Bonjour Laurent,

Intéressant projet à double titre , d'abord pour le mode d'installation via Excel, qui semble fonctionner, et le sujet que j'avais dans un tiroir.
Je suis sous Windows 10 (20H2) et Office 365 (1811)sur un compte IMAP (FREE.fr)

Je dis semble fonctionner pour l'installation car en ouvrant un nouvel Email j'ai une erreur .



Bon je continu les test...

Comment se passe la réintégration ?

[laurent_ott]

Bonjour Oliv. Merci pour ce retour.
Je ne serai disponible qu'en fin de journée pour te répondre, en attendant peux tu m'envoyer le code XLM généré, et préciser ce que tu entends par réintégration.
À bientôt.

[Oliv-]

Donc plusieurs problèmes d'installation via ta macro OUTLOOK.

Premièrement, il faudrait que tu fasses un backup des fichiers XML du ruban avant ton install.


Si j'ai déjà une perso du ruban, en fait il manque un test si i =0 (pas de mso:TabNewMailMessage dans cette version)

Code :

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

1
2
 ' Recherche la position de la balise <mso:tab idQ="mso:TabNewMailMessage">
            i = InStr(1, StrXML, "<mso:tab idQ=""mso:TabNewMailMessage"">")

du coup la mise à jour se fait pas au bon endroit

voici mon code de départ (pour faire simple j'ai juste ajouté un groupe dans le ruban de création de mail)

Code :

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

 <mso:customUI xmlns:mso="http://schemas.microsoft.com/office/2009/07/customui"><mso:ribbon><mso:qat/><mso:tabs><mso:tab id="mso_c1.5C58B7ED" label="Nouvel onglet" insertBeforeQ="mso:TabBackgroundRemoval"><mso:group id="mso_c2.5C58B7ED" label="Nouveau groupe" autoScale="true"/></mso:tab></mso:tabs></mso:ribbon></mso:customUI>

voici le code après ton install

Code :

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

<mso:customUI xmlns:mso="http://schem<mso:group id="Groupe_TDFV" visible="true" label="Inclure" insertBeforeQ="mso:GroupIncludeMainTab" autoScale="false"><mso:button idQ="x1:TDFV_JoindrePieces" label="Joindre un fichier" imageMso="AttachFile" size="large" onAction="Projet 1.TDFV_JoindrePieces" visible="true"/><mso:control idQ="mso:AttachItemCombo" visible="true" size="large"/> <mso:control idQ="mso:SignatureInsertMenu" visible="true" size="large"/> </mso:group><mso:group idQ="mso:GroupIncludeMainTab" visible="false"/> as.microsoft.com/office/2009/07/customui"><mso:ribbon><mso:qat/><mso:tabs><mso:tab id="mso_c1.5C58B7ED" label="Nouvel onglet" insertBeforeQ="mso:TabBackgroundRemoval"><mso:group id="mso_c2.5C58B7ED" label="Nouveau groupe" autoScale="true"/></mso:tab></mso:tabs></mso:ribbon></mso:customUI>

Je pense que tu devrais utiliser un éditeur XML pour ajouter ton code dans ces fichiers de personnalisation du ruban.

Ensuite ton bouton insérer Ne fonctionne pas non plus car mon PROJET ne se nomme "pas projet 1"

[Oliv-]

Ensuite j'ai une erreur de compilation (version 32 bit)

GetOpenFile
Arguent non facultatif sur InstrRev

Code :

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

   Tps(0) = Left(Tps(0), InStrRev(Tps(0), "\"))

corrigé par(ainsi que les autres occurences)

Code :

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

   Tps(0) = Left(Tps(0), vba.InStrRev(Tps(0), "\"))

[Oliv-]

J'ai eu un bug lors du premier envoi que la moitié d'envoyé.

et quand je fais "Récuperer les fichiers" j'ai rien qui se passe en apparence.

il manquerait un message d'erreur là (j'ai ajouté des numéros de ligne avec MZ-Tools 3.0)

Code :

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

1
2
3
4
5
6
      ' Vérifie si tous les fichiers sont présents dans la boîte active
      ' (cas aussi des créations de messages qui déclenchent cet événement):
200   For i = 1 To Nb
210       If Fichiers(i) = 0 Then MsgBox "il manque des fichiers": Exit Sub
220   Next i

La restauration, sinon fonctionne quand j'ai bien tous les Emails.

---

Par contre, si je prépare 2 Emails, avec chacun un fichier Lourd, le premier envoyé comporte bien les PJ mais pas le second.

Code :

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

1
2
3
' S'il n'y a pas de fichier dans le dossier TDFV alors rien à faire:
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
If DIR(DossierTDFV & "*.*", vbNormal) = "" Then Exit Function

Je pense que tu peux faire la copie vers DossierTDFV lors du itemSend

de même si la pj a un nom identique à la réception cela écrase le précédent.

---

Si je transfert un fichier sans l'isoler, le bouton "joindre un fichier" utilise la fonction native

a+

[laurent_ott]

Bonjour Oliv
Un grand merci pour tout le temps que tu passes à faire ces tests.
Il y a beaucoup de choses à revoir de mon coté donc je répondrai plus tard.

Juste deux questions pour mieux dormir ce soir :
1 : Pourquoi ça pante sans ajouter le préfixe VBA à vba.InStrRev(Tps(0), "\")) ? Est-ce que c'est juste sur InStrRev ou sur toutes les instructions ? Quelqu'un a une idée ? (mais ce n'est pas bloquant, je peux l'ajouter dans le code).
2 : Si le nom de ton PROJET ne se nomme pas "projet 1", il se nomme comment ? C'est toi qui l'a changé ou c'est spécifique à 365 ?

À bientôt.

[Oliv-]

Pour la première question je dois avoir une référence à un modèle qui contient cette fonction mais avec d autres paramètres.

Pour le nom du projet oui c est moi qui l ai renommé

[Oliv-]

Bonjour,

J'ai une petite question, pourquoi une installation dans VBA et pas la création d'un complément ?

[laurent_ott]

J'ai une petite question, pourquoi une installation dans VBA et pas la création d'un complément ?

Simplement par incompétence : je ne sais pas comment faire une installation par complément !
Mais si tu sais faire, je te laisse la main sur cette partie (qui me pose plus de problèmes que le reste).

J'ai bien travaillé aujourd'hui sur les sujets que tu as soulevés, j'ai trouvé des solutions, il me reste des tests à faire.
Je donnerai plus d'information demain ou dans les jours suivants.

Encore merci pour ton investissement.
À bientôt.

[Oliv-]

Vu ce que tu as développé je pense que ce point sera vite assimilé voici un exemple https://www.developpez.net/forums/bl...dll-com-addin/


Après le tout Vba peut se justifier si tu ne peux pas installer de programme sur ton pc

[laurent_ott]

Bonjour Oliv-
Entre deux coupes de champagne j'ai apporté des corrections à ce projet :

Donc plusieurs problèmes d'installation via ta macro OUTLOOK.
Premièrement, il faudrait que tu fasses un backup des fichiers XML du ruban avant ton install.

C'est fait. il y a une sauvegarde des rubans qui contient le jour et l'heure de l'intervention.
Et si l'installation n'est pas réussie (l'utilisateur ne la valide pas) alors les rubans d'origine sont repris.

Si j'ai déjà une perso du ruban, en fait il manque un test si i =0 (pas de mso:TabNewMailMessage dans cette version)

J'ai fait des corrections pour prendre en compte les rubans personnels.

Ensuite ton bouton insérer Ne fonctionne pas non plus car mon PROJET ne se nomme "pas projet 1"

J'ai trouvé comment récupérer le nom du projet lorsqu'il a été modifié par l'utilisateur, et je modifie donc ce nom dans le fichier XLM.

J'ai eu un bug lors du premier envoi : que la moitié d'envoyée.
et quand je fais "Récuperer les fichiers" j'ai rien qui se passe en apparence.
il manquerait un message d'erreur là (j'ai ajouté des numéros de ligne avec MZ-Tools 3.0)

Code :

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

1
2
3
4
200   For i = 1 To Nb
210       If Fichiers(i) = 0 Then MsgBox "il manque des fichiers": Exit Sub
220   Next i

J'ai mis ce message.

Si je prépare 2 Emails, avec chacun un fichier Lourd, le premier envoyé comporte bien les PJ mais pas le second.

J'ai tenu compte de cette remarque, pour un cas que je n'avais pas pensé. Désormais le fichier temporaire qui contient les Pièces Jointes est propre à chaque nouveau message. Donc il peut y avoir plusieurs messages en cours de rédaction avec chacun ses PJ?

de même si la pj a un nom identique à la réception cela écrase le précédent.

J'ai modifié le code pour numéroter la pièce jointe si une autre existe : toto (1).txt


Il me reste encore à faire des tests pour voir si tout est bien conforme.
À bientôt.

[laurent_ott]

J'ai oublié de joindre le fichier : Installation_TDFV.xlsm
et : TDFV.zip

Cordialement.

[laurent_ott]

Bonjour.
Retrouvez la suite de cette discussion ici : https://www.developpez.net/forums/d2...ineux-outlook/

Avec une version actualisée.
Cordialement.