Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Outlook Express 6 signature

signature

1 réponse
Avatar
Jean Pierre Daviau
Bonjour à tous et à toutes,


Quelqu'un pourrait-il adapter ce script pour windows mail?



-------------- ------------------------------

' Rajoute la date du jour dans la signature d'Outlook Express.
' Exécute Outlook Express.
'
' http://www.faqOE.com
'

Dim WSHShell
Dim identite,signure,defaut

Set WshShell = CreateObject("WScript.Shell")
With WshShell
identite = .regread ("HKCU\Identities\Last User ID")
defaut = .regread ("HKCU\Identities\" & identite &
"\Software\Microsoft\Outlook Express\5.0\signatures\Default Signature")
signure=.regread ("HKCU\Identities\" & identite &
"\Software\Microsoft\Outlook Express\5.0\signatures\" & defaut & "\Text")
if instr(signure,"Date : Le ") then signure=left(signure,len(signure)-20)
signure=signure & vbcrlf & "Date : Le " & left(now(),8)
.regwrite "HKCU\Identities\" & identite & "\Software\Microsoft\Outlook
Express\5.0\signatures\" & defaut & "\Text",signure,"REG_SZ"
.Run "msimn.exe"
End with

Set WshShell=Nothing

------------------

Cordialement,


Jean Pierre Daviau

-------
HP Pavilion Elite m9525f Desktop PC
Vista Édition Familiale Premium SP1 64 bits
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jean Pierre Daviau
> Quelqu'un pourrait-il adapter ce script pour windows mail?



voici mon essaie; cela fonctionne . . .
-------------- ------------------------------


' signauredyn.vbs modifié par jpd
' Rajoute la date du jour dans la signature d'Outlook Express.
' Exécute Outlook Express.
'
' http://faq.outlook.free.fr
'[HKEY_CURRENT_USERSoftwareMicrosoftWindows Mailsignatures0000001]
'tous les messages ont
'la date de création qui s'appelle boite d'envoi...
'date de reception est en fait la date d'envoi sur le serveur...
'date d'ouvertue par le receveur est inconnue

Dim WSHShell
Dim identite,signure
Dim d, s
on error resume next
Set WshShell = CreateObject("WScript.Shell")
with WshShell
signure=.regread ("HKEY_CURRENT_USERSoftwareMicrosoftWindows
Mailsignatures0000002Text")
if instr(signure,"Date -5GMT: ") then
signure=left(signure,len(signure)-32)
end if


signure=signure & vbcrlf & "Date -5GMT: " & Now

.regwrite "HKEY_CURRENT_USERSoftwareMicrosoftWindows
Mailsignatures0000002Text",signure,"REG_SZ"
.Run "msimn.exe"
'MsgBox signure

End with

on error goto 0
Set WshShell=Nothing

------------------