Il y a actuellement 79 visiteurs
Vendredi 06 Août 2021
accueilactualitésdossierscomparer les prixtélécharger gratuitement vos logicielsoffres d'emploiforum informatique
Connexion
Créer un compte

Filtrage des Spam sous Outlook, SpamAssassin

Besoin d'aide pour configurer un serveur ? Vous souhaitez obtenir des conseils pour référencer votre site ? Un petit souci pour accéder à votre FTP ? Des soucis de programmation en PHP / ASP / HTML / XHTML / XML / XSLT / CSS / ReactJS / AngularJS / VueJS / CGI / PERL / C / MySQL / PostgreSQL ??? Nous avons peut-être la solution dans ce forum ...

Filtrage des Spam sous Outlook, SpamAssassin

Message le 22 Mar 2009 01:32

Bonjour,
Dans le but de filtrer les spam sous Outlook, j'ai écris en VBScript un code qui fait intégrer SpamAssassin. Bref, ce que fais le code est le suivant :
Lit le message de la boite de réception, l'écrit dans un fichier testme.txt input de SpamAssassin. Lit l'output de SpamAssassin (un fichier assassinated.txt), s'il trouve le flag « X-Spam-Status: Yes » il ajoute *****SPAM***** au sujet de l'e-mail.
Ce code crée aussi un dossier Spam, mais je n'arrive pas encore à y déplacer les e-mails marqués comme des spams.
Mon but maintenant est de créer un bouton dans outlook qui permet d'exécuter mon code.
Voilà le code :
Set mapisession=CreateObject("MAPI.Session")
mapisession.Logon
Set Folder=mapisession.GetDefaultFolder("1")
Set spamfolder=Folder.Folders.Add("Spam")
Set WshShell = CreateObject("WScript.Shell")
'MsgBox Folder.Name
Set AllMsgs=Folder.Messages
Set fs=CreateObject("Scripting.FileSystemObject")

For Each Item In AllMsgs
'Msg=item.Fields(&H7D001E) & Item.Text
'MsgBox Msg
fs.CreateTextFile "c:Program FilesSpamAssassin estme.txt"
Set file=fs.GetFile("c:Program FilesSpamAssassin estme.txt")
Set ts=file.OpenAsTextStream(2,-2)
ts.Write Msg
ts.Close
WshShell.Run """c:Program FilesSpamAssassinspam.bat""", 7, True
Set file=fs.OpenTextFile("C:Program FilesSpamAssassinassassinated.txt" , 1 , True)
Do While Not file.AtEndOfStream
Msg1=file.ReadLine
val=InStr(Msg1,"X-Spam-Status: Yes")
Loop
ts.Close
If Int(val)<> 0 Then
'MsgBox Item.Subject
'MsgBox "Spam Found"
Item.Subject = "*****SPAM*****" & Item.Subject
Item.Update
End If

Next

mapisession.Logoff
Set mapisession = Nothing
Set AllMsgs = Nothing
Set Folder = Nothing
Est-ce que quelqu'un peut-il m'aider à déplacer les e-mail dans le dossier créé et d'ajouter le bouton de l'exécution. D'après ce que j'ai vu apparemment il me fallait traduire mon code en VB et le mettre dans une macro. J'ai déjà résolu le problème de signature numérique.
Merci d'avance.
Note: La version d'Outlook que j'utilise est 2007
Enirbas
Visiteur
Visiteur
 
Messages: 1
Inscription: 22 Mar 2009 01:27
 


Message le 22 Mar 2009 09:12

déplacé en "programmation"... plus approprié pour ta demande.
Libérez-vous : http://www.debian.org
Nobody knows what sysadmin does... until he stops doing it
Avatar de l'utilisateur
CaSa
PC-Infopraticien
PC-Infopraticien
 
Messages: 8978
Inscription: 13 Mai 2003 16:32
Localisation: Sisteron... et jamais loin d'une Debian
 



Sujets similaires

Message spam dans la boite d'orange
mais si, mais si c'est un spam ! ++ Ricky
Réponses: 80

Message SPAM d'emails de confirmation d'inscription
Bonjour à tous,Ce n'est pas un virus mais je savais pas trop où est la bonne catégorie. Depuis hier, tout d'un coup j'ai reçu +300 emails et ca ne s'arrête pas, j'en ai par 50 toutes les heures, et encore, ce sont tous des emails en anglais de "newletters" et de "confirmation d'emails ...
Réponses: 8

Message volet des dossier de outlook disparu
bonjour ..sous w10  sur le pc d une amie quand elle ouvre outllook en passant par  chrome le volet de gauche a disparu .. il faut l' activer en cliquant sur l es 3 lignes a gauche .. cela la perturbe elle a un certain age (changer ses habitudes la boulverse lol )... jen arrive pas a l activer defini ...
Réponses: 0

Message HELP !- Outlook 2016 . Liste de destinataires
Bonjour, je suis un peu désespérée car je ne trouve nulle part réponse à ma question.... quelqu'un aurait-il la clé du mystèèèreuuuu.... Serait-ce une colle ? à savoir:Je travaille sur outlook 2016. J'ai reçu un mail dirigé à un ensemble de destinataires. J'aimerais copier cette liste "extern ...
Réponses: 5

Message [outlook 2013] Fusionner des dossiers [RESOLU]
Bonjour à tous et à toutes.Sur Outlook 2013 j'ai du réimporter des fichiers de données.Malheureusement après cette importation je me retrouve avec des dossiers en double.J'ai donc l'arborescence suivante :- Boite de réception - CLIENTS - CLIENTS (2) - etc ..Je voulais savoir comment f ...
Réponses: 8

Message sauvegardesde données outlook 2007
Bonjour je viens de passer un pc portable de Windows 7 à 10. Pour transférer les données complètes de Outlook 2007 j'ai utilisé cette procédure : https://www.tutos-informatique.com/prof ... tauration/ mais ça n'a pas fonctionné j'ai des messages d'erreur et je n'ai pas tous les comptes... Quelqu'un ...
Réponses: 2

Message Générer les fiches contact Outlook à partir des emails
Hello,J'ai du supprimer des comptes IMAP sur Outlook Office 365 sous Windows 10 et Outlook n'a pas garder les adresses emails avec le nom du contact lorsque j'ai de nouveau installé les comptes IMAP.J'essaye de trouver un moyen de régénérer les contacts à partir des emails ou dossier car la personne ...
Réponses: 0


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 2 invités


.: Nous contacter :: Flux RSS :: Données personnelles :.