signature

Le
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 ("HKCUIdentitiesLast User ID")
defaut = .regread ("HKCUIdentities" & identite &
"SoftwareMicrosoftOutlook Express5.0signaturesDefault Signature")
signure=.regread ("HKCUIdentities" & identite &
"SoftwareMicrosoftOutlook Express5.0signatures" & defaut & "Text")
if instr(signure,"Date : Le ") then signure=left(signure,len(signure)-20)
signure=signure & vbcrlf & "Date : Le " & left(now(),8)
.regwrite "HKCUIdentities" & identite & "SoftwareMicrosoftOutlook
Express5.0signatures" & 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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jean Pierre Daviau
Le #18753871
> 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

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


Publicité
Poster une réponse
Anonyme