Personnaliser la commande Envoyer vers

Marsh Posté le 17-04-2021 à 10:43:29

Bonjour,

J'envoi souvent dans mes mails un document pdf. Jusqu'à présent je crée mon mail dans mon logiciel de messagerie, j'ajoute la pièce-jointe puis j'envoi.

Une autre solution consiste à faire un clic droit depuis l'explorateur fichier Envoyer vers et destinataire ; dans ce cas il m'ouvre le logiciel de messagerie, inclus la pièce jointe et prérempli l'objet avec le nom de la pièce jointe ainsi qu'un message type "Votre message est prêt à être envoyé avec les fichiers ou liens joints suivants : ........"

Est-il envisageable d'avoir un raccourci de ce type plus élaboré ? J'imagine par là avoir Envoyer vers - Destinataire X qui ouvrirait le logiciel de messagerie avec l'adresse du destinataire préremplie, un objet et un texte différent ?

Information sans doute importante : j'utilise Thunderbird.

D'avance merci.

Reply

Marsh Posté le 17-04-2021 à 10:43:29

Reply

Marsh Posté le 17-04-2021 à 13:29:09

Tu peux le faire avec outlook, mais je doute que ça marche avec tbrird : https://www.slipstick.com/outlook/c [...] -shortcut/

---------------
Survivre à sa migration WP->Android / Les features Windows que vous ne connaissez pas

Reply

Marsh Posté le 17-04-2021 à 16:53:27

Bonjour,

En cherchant je suis tombé sur la page http://forums.mozillazine.org/view [...] &t=2803277 qui propose un script permettant de faire ce que tu demandes. J'ai adapté ce script pour que l'on puisse entre autres y passer plusieurs fichiers en même temps.

Voici les étapes pour mettre tout cela en place :

1) Créer un fichier vbs (fichier texte mais avec l'extension .vbs) quelque part sur ton système et y mettre le code suivant :

'Original script from http://forums.mozillazine.org/viewtopic.php?f=39&t=2803277

Option Explicit
Dim objShell
Set objShell = CreateObject("WScript.Shell" )

Dim argumentsArray
Dim argumentsArrayItem
Dim argumentsString

'Transform Wscript.Arguments into a proper ArrayList so we can use the Join function later on
Set argumentsArray = CreateObject("System.Collections.ArrayList" )
For Each argumentsArrayItem In Wscript.Arguments: argumentsArray.Add argumentsArrayItem: Next

'Multiple attachments have to be separated with a ,
'see http://kb.mozillazine.org/Command_line_arguments_%28Thunderbird%29
argumentsString = Join(argumentsArray.ToArray, "," )

'the options passed to the -compose arguments need to be enclosed with double quotes (hence the & """" & )
objShell.Exec("%ProgramFiles(X86)%\Mozilla Thunderbird\thunderbird.exe -compose " & """" & "to='machin@example.com',cc='machin2@example.com,machin3@example.com',subject='alpha beta',body='gamma delta epsilon',attachment='" & argumentsString & "'" & """" )
Set objShell = Nothing

Il est possible de personnaliser différentes choses dans ligne commençant par "objShell.Exec" comme les destinataires (options to='' et cc=''), le sujet (subject=''), etc. Voir http://kb.mozillazine.org/Command_ [...] hunderbird pour la liste des options.

2) Créer un raccourci de ce script dans le dossier %appdata%\microsoft\windows\sendto. Tu pourras renommer ce raccourci pour avoir quelque chose de plus explicite comme "Envoyer à machin@example.com".

3) Tester en sélectionnant un plusieurs fichiers dans l'explorateur et utiliser la nouvelle entrée dans "Envoyer vers"

Reply

Marsh Posté le 22-04-2021 à 15:44:44

Waouh, c'est vraiment un grand pas en avant.
Sans vouloir abuser, as-tu une idée de comment je peux gérer les accents dans l'objet du mail ainsi que dans le texte et les sauts de ligne ??

Reply

Marsh Posté le 22-04-2021 à 20:55:51

Concernant les accents dans le sujet il faut que le fichier vbs soit encodé en "UTF-16 LE" précisément. Il est possible de faire cela avec par exemple le bloc-notes de Windows (fichier -> enregistrer sous -> régler l'encodage à côté du bouton sauvegarder en bas à droite).

Concernant le texte : pour ton cas d'utilisation il serait préférable de changer la façon de faire en utilisant l'option "message" au lieu de l'option "body". Cette option permet d'inclure un fichier texte simple ou un fichier html. Ce fichier selon la documentation doit être encodé au format "UTF-8". Il est possible de faire ce fichier simplement avec Thunderbird lui-même en rédigeant un nouveau message et en le sauvegardant avec fichier -> enregistrer sous -> fichier

Il faut ensuite remplacer la ligne suivante dans le fichier vbs et modifier l'option message pour y placer le chemin du fichier de message précédemment créé.

objShell.Exec("%ProgramFiles(X86)%\Mozilla Thunderbird\thunderbird.exe -compose " & """" & "to='machin@example.com',cc='machin2@example.com,machin3@example.com',subject='alpha beta',message='c:\blabla\custom_sendto_message.html',attachment='" & argumentsString & "'" & """" )

Reply

Marsh Posté le 24-04-2021 à 14:25:14

Une fois le vbs encodé en UTF-16 LE les accents sont acceptés.
Je n'ai pas réussi à créer un fichier html avec Thunderbird. En l'enregistrant je n'ai que l'option txt. J'ai essayé mais j'ai eu un message d'erreur.
Vu que le message n'est pas très long j'ai contourné le problème en restant sur l'option body='' et j'ai rajouté "& VbCrLf &" pour les quelques sauts de ligne. Cela fonctionne de cette manière.

Un grand merci à toi Ouinhin pervers pour ton aide.

Reply

Personnaliser la commande Envoyer vers - Destinataire

Sujets relatifs:

Leave a Replay