ajouter l'adresse de tous les expéditeurs de spam dans la liste expéditeurs blqués, sur un seul clic
4 réponses
Spectre
Bonjour,
Bien que les spammeurs utilisent souvent une adresse d'expéditeur différente
à chaque spam, ce n'est pas toujours le cas.
Je souhaite donc pouvoir ajouter automatiquement toutes les adresses des
mails du dossier courrier indésirable dans la liste des expéditeurs bloqués,
d'un seul coup (subclick...)
Je n'arrive pas à trouver le nom de cette liste des utilisateurs bloqués
(vba).
Si quelqu'un connait le nom de cette liste et, mieux encore, à une procédure
pour réaliser l'opération.....
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
Spectre
Etant souvent mieux servi par soi même, si joint la solution trouvée.
N trouvant pas la référence de la liste des expediteurs bloqués, je suis passé par un "sendkeys"
Sub addSpamAdress() ' ajoute toutes les adresses des span à la liste d'expéditeur indésirables On Error Resume Next
Dim olItem As Mailitem Dim objInbox As MAPIFolder Dim oSelection Dim arc As Outlook.MAPIFolder Dim junkMailAddress As String
Set objNS = Application.GetNamespace("MAPI") Set objInbox = objNS.GetDefaultFolder(olFolderJunk) Set oSelection = objInbox.Items
For I = 1 To oSelection.Count Set olItem = oSelection.Item(I) If oSelection.Count <> 0 Then ' si il ya des mails junkMailAddress = olItem.SenderEmailAddress If junkMailAddress <> "" Then SendKeys "%ssb" End If End If Next End Sub
Spectre avait écrit le 08/03/2006 :
Bonjour,
Bien que les spammeurs utilisent souvent une adresse d'expéditeur différente à chaque spam, ce n'est pas toujours le cas.
Je souhaite donc pouvoir ajouter automatiquement toutes les adresses des mails du dossier courrier indésirable dans la liste des expéditeurs bloqués, d'un seul coup (subclick...)
Je n'arrive pas à trouver le nom de cette liste des utilisateurs bloqués (vba). Si quelqu'un connait le nom de cette liste et, mieux encore, à une procédure pour réaliser l'opération.....
Merci d'avance
Etant souvent mieux servi par soi même, si joint la solution trouvée.
N trouvant pas la référence de la liste des expediteurs bloqués, je
suis passé par un "sendkeys"
Sub addSpamAdress() ' ajoute toutes les adresses des span à la liste
d'expéditeur indésirables
On Error Resume Next
Dim olItem As Mailitem
Dim objInbox As MAPIFolder
Dim oSelection
Dim arc As Outlook.MAPIFolder
Dim junkMailAddress As String
Set objNS = Application.GetNamespace("MAPI")
Set objInbox = objNS.GetDefaultFolder(olFolderJunk)
Set oSelection = objInbox.Items
For I = 1 To oSelection.Count
Set olItem = oSelection.Item(I)
If oSelection.Count <> 0 Then ' si il ya des mails
junkMailAddress = olItem.SenderEmailAddress
If junkMailAddress <> "" Then
SendKeys "%ssb"
End If
End If
Next
End Sub
Spectre avait écrit le 08/03/2006 :
Bonjour,
Bien que les spammeurs utilisent souvent une adresse d'expéditeur différente
à chaque spam, ce n'est pas toujours le cas.
Je souhaite donc pouvoir ajouter automatiquement toutes les adresses des
mails du dossier courrier indésirable dans la liste des expéditeurs bloqués,
d'un seul coup (subclick...)
Je n'arrive pas à trouver le nom de cette liste des utilisateurs bloqués
(vba).
Si quelqu'un connait le nom de cette liste et, mieux encore, à une procédure
pour réaliser l'opération.....
Etant souvent mieux servi par soi même, si joint la solution trouvée.
N trouvant pas la référence de la liste des expediteurs bloqués, je suis passé par un "sendkeys"
Sub addSpamAdress() ' ajoute toutes les adresses des span à la liste d'expéditeur indésirables On Error Resume Next
Dim olItem As Mailitem Dim objInbox As MAPIFolder Dim oSelection Dim arc As Outlook.MAPIFolder Dim junkMailAddress As String
Set objNS = Application.GetNamespace("MAPI") Set objInbox = objNS.GetDefaultFolder(olFolderJunk) Set oSelection = objInbox.Items
For I = 1 To oSelection.Count Set olItem = oSelection.Item(I) If oSelection.Count <> 0 Then ' si il ya des mails junkMailAddress = olItem.SenderEmailAddress If junkMailAddress <> "" Then SendKeys "%ssb" End If End If Next End Sub
Spectre avait écrit le 08/03/2006 :
Bonjour,
Bien que les spammeurs utilisent souvent une adresse d'expéditeur différente à chaque spam, ce n'est pas toujours le cas.
Je souhaite donc pouvoir ajouter automatiquement toutes les adresses des mails du dossier courrier indésirable dans la liste des expéditeurs bloqués, d'un seul coup (subclick...)
Je n'arrive pas à trouver le nom de cette liste des utilisateurs bloqués (vba). Si quelqu'un connait le nom de cette liste et, mieux encore, à une procédure pour réaliser l'opération.....
Merci d'avance
Spectre
8-o Une meuilleur solution : remplacer la ligne de Senkeys par :
Set Btn = Application.ActiveExplorer.CommandBars.FindControl(1, 9786)
Spectre a exposé le 11/03/2006 :
Etant souvent mieux servi par soi même, si joint la solution trouvée.
N trouvant pas la référence de la liste des expediteurs bloqués, je suis passé par un "sendkeys"
Sub addSpamAdress() ' ajoute toutes les adresses des span à la liste d'expéditeur indésirables On Error Resume Next
Dim olItem As Mailitem Dim objInbox As MAPIFolder Dim oSelection Dim arc As Outlook.MAPIFolder Dim junkMailAddress As String
Set objNS = Application.GetNamespace("MAPI") Set objInbox = objNS.GetDefaultFolder(olFolderJunk) Set oSelection = objInbox.Items
For I = 1 To oSelection.Count Set olItem = oSelection.Item(I) If oSelection.Count <> 0 Then ' si il ya des mails junkMailAddress = olItem.SenderEmailAddress If junkMailAddress <> "" Then SendKeys "%ssb" End If End If Next End Sub
Spectre avait écrit le 08/03/2006 :
Bonjour,
Bien que les spammeurs utilisent souvent une adresse d'expéditeur différente à chaque spam, ce n'est pas toujours le cas.
Je souhaite donc pouvoir ajouter automatiquement toutes les adresses des mails du dossier courrier indésirable dans la liste des expéditeurs bloqués, d'un seul coup (subclick...)
Je n'arrive pas à trouver le nom de cette liste des utilisateurs bloqués (vba). Si quelqu'un connait le nom de cette liste et, mieux encore, à une procédure pour réaliser l'opération.....
Merci d'avance
8-o Une meuilleur solution : remplacer la ligne de Senkeys par :
Set Btn = Application.ActiveExplorer.CommandBars.FindControl(1, 9786)
Spectre a exposé le 11/03/2006 :
Etant souvent mieux servi par soi même, si joint la solution trouvée.
N trouvant pas la référence de la liste des expediteurs bloqués, je suis
passé par un "sendkeys"
Sub addSpamAdress() ' ajoute toutes les adresses des span à la liste
d'expéditeur indésirables
On Error Resume Next
Dim olItem As Mailitem
Dim objInbox As MAPIFolder
Dim oSelection
Dim arc As Outlook.MAPIFolder
Dim junkMailAddress As String
Set objNS = Application.GetNamespace("MAPI")
Set objInbox = objNS.GetDefaultFolder(olFolderJunk)
Set oSelection = objInbox.Items
For I = 1 To oSelection.Count
Set olItem = oSelection.Item(I)
If oSelection.Count <> 0 Then ' si il ya des mails
junkMailAddress = olItem.SenderEmailAddress
If junkMailAddress <> "" Then
SendKeys "%ssb"
End If
End If
Next
End Sub
Spectre avait écrit le 08/03/2006 :
Bonjour,
Bien que les spammeurs utilisent souvent une adresse d'expéditeur
différente à chaque spam, ce n'est pas toujours le cas.
Je souhaite donc pouvoir ajouter automatiquement toutes les adresses des
mails du dossier courrier indésirable dans la liste des expéditeurs
bloqués, d'un seul coup (subclick...)
Je n'arrive pas à trouver le nom de cette liste des utilisateurs bloqués
(vba).
Si quelqu'un connait le nom de cette liste et, mieux encore, à une
procédure pour réaliser l'opération.....
8-o Une meuilleur solution : remplacer la ligne de Senkeys par :
Set Btn = Application.ActiveExplorer.CommandBars.FindControl(1, 9786)
Spectre a exposé le 11/03/2006 :
Etant souvent mieux servi par soi même, si joint la solution trouvée.
N trouvant pas la référence de la liste des expediteurs bloqués, je suis passé par un "sendkeys"
Sub addSpamAdress() ' ajoute toutes les adresses des span à la liste d'expéditeur indésirables On Error Resume Next
Dim olItem As Mailitem Dim objInbox As MAPIFolder Dim oSelection Dim arc As Outlook.MAPIFolder Dim junkMailAddress As String
Set objNS = Application.GetNamespace("MAPI") Set objInbox = objNS.GetDefaultFolder(olFolderJunk) Set oSelection = objInbox.Items
For I = 1 To oSelection.Count Set olItem = oSelection.Item(I) If oSelection.Count <> 0 Then ' si il ya des mails junkMailAddress = olItem.SenderEmailAddress If junkMailAddress <> "" Then SendKeys "%ssb" End If End If Next End Sub
Spectre avait écrit le 08/03/2006 :
Bonjour,
Bien que les spammeurs utilisent souvent une adresse d'expéditeur différente à chaque spam, ce n'est pas toujours le cas.
Je souhaite donc pouvoir ajouter automatiquement toutes les adresses des mails du dossier courrier indésirable dans la liste des expéditeurs bloqués, d'un seul coup (subclick...)
Je n'arrive pas à trouver le nom de cette liste des utilisateurs bloqués (vba). Si quelqu'un connait le nom de cette liste et, mieux encore, à une procédure pour réaliser l'opération.....
Merci d'avance
Spectre
Dernière version qui aajoute les adresses des spams puis les supprime.
Sub addSpamAdress() ' ajoute toutes les adresses des span à la liste d'expéditeur indésirables 'On Error Resume Next
Dim olItem As Mailitem Dim objInbox As MAPIFolder Dim oSelection Dim arc As Outlook.MAPIFolder Dim junkMailAddress As String Dim response As String
Set objNS = Application.GetNamespace("MAPI") Set objInbox = objNS.GetDefaultFolder(olFolderJunk) Set oSelection = objInbox.Items
response = MsgBox("Your are going to add all the email addresses to the Bocked Email list" & vbCrLf & _ "All emails will be deleted", vbYesNoCancel, "Junk Mail")
If response = vbNo Or response = vbCancel Then Exit Sub Else For I = 1 To oSelection.Count Set olItem = oSelection.Item(I) If oSelection.Count <> 0 Then ' si il ya de s mails junkMailAddress = olItem.SenderEmailAddress If junkMailAddress <> "" Then ' SendKeys "%ssb" ' ID: 9786 Set Btn = Application.ActiveExplorer.CommandBars.FindControl(1, 9786) Btn.Execute olItem.Delete
End If End If Next End If End Sub
8-o Une meuilleur solution : remplacer la ligne de Senkeys par :
Set Btn = Application.ActiveExplorer.CommandBars.FindControl(1, 9786)
Spectre a exposé le 11/03/2006 :
Etant souvent mieux servi par soi même, si joint la solution trouvée.
N trouvant pas la référence de la liste des expediteurs bloqués, je suis passé par un "sendkeys"
Sub addSpamAdress() ' ajoute toutes les adresses des span à la liste d'expéditeur indésirables On Error Resume Next
Dim olItem As Mailitem Dim objInbox As MAPIFolder Dim oSelection Dim arc As Outlook.MAPIFolder Dim junkMailAddress As String
Set objNS = Application.GetNamespace("MAPI") Set objInbox = objNS.GetDefaultFolder(olFolderJunk) Set oSelection = objInbox.Items
For I = 1 To oSelection.Count Set olItem = oSelection.Item(I) If oSelection.Count <> 0 Then ' si il ya des mails junkMailAddress = olItem.SenderEmailAddress If junkMailAddress <> "" Then SendKeys "%ssb" End If End If Next End Sub
Spectre avait écrit le 08/03/2006 :
Bonjour,
Bien que les spammeurs utilisent souvent une adresse d'expéditeur différente à chaque spam, ce n'est pas toujours le cas.
Je souhaite donc pouvoir ajouter automatiquement toutes les adresses des mails du dossier courrier indésirable dans la liste des expéditeurs bloqués, d'un seul coup (subclick...)
Je n'arrive pas à trouver le nom de cette liste des utilisateurs bloqués (vba). Si quelqu'un connait le nom de cette liste et, mieux encore, à une procédure pour réaliser l'opération.....
Merci d'avance
Dernière version qui aajoute les adresses des spams puis les supprime.
Sub addSpamAdress() ' ajoute toutes les adresses des span à la liste
d'expéditeur indésirables
'On Error Resume Next
Dim olItem As Mailitem
Dim objInbox As MAPIFolder
Dim oSelection
Dim arc As Outlook.MAPIFolder
Dim junkMailAddress As String
Dim response As String
Set objNS = Application.GetNamespace("MAPI")
Set objInbox = objNS.GetDefaultFolder(olFolderJunk)
Set oSelection = objInbox.Items
response = MsgBox("Your are going to add all the email addresses
to the Bocked Email list" & vbCrLf & _
"All emails will be deleted",
vbYesNoCancel, "Junk Mail")
If response = vbNo Or response = vbCancel Then
Exit Sub
Else
For I = 1 To oSelection.Count
Set olItem = oSelection.Item(I)
If oSelection.Count <> 0 Then ' si il ya de s
mails
junkMailAddress = olItem.SenderEmailAddress
If junkMailAddress <> "" Then
' SendKeys "%ssb" ' ID: 9786
Set Btn =
Application.ActiveExplorer.CommandBars.FindControl(1, 9786)
Btn.Execute
olItem.Delete
End If
End If
Next
End If
End Sub
8-o Une meuilleur solution : remplacer la ligne de Senkeys par :
Set Btn = Application.ActiveExplorer.CommandBars.FindControl(1, 9786)
Spectre a exposé le 11/03/2006 :
Etant souvent mieux servi par soi même, si joint la solution trouvée.
N trouvant pas la référence de la liste des expediteurs bloqués, je suis
passé par un "sendkeys"
Sub addSpamAdress() ' ajoute toutes les adresses des span à la liste
d'expéditeur indésirables
On Error Resume Next
Dim olItem As Mailitem
Dim objInbox As MAPIFolder
Dim oSelection
Dim arc As Outlook.MAPIFolder
Dim junkMailAddress As String
Set objNS = Application.GetNamespace("MAPI")
Set objInbox = objNS.GetDefaultFolder(olFolderJunk)
Set oSelection = objInbox.Items
For I = 1 To oSelection.Count
Set olItem = oSelection.Item(I)
If oSelection.Count <> 0 Then ' si il ya des mails
junkMailAddress = olItem.SenderEmailAddress
If junkMailAddress <> "" Then
SendKeys "%ssb"
End If
End If
Next
End Sub
Spectre avait écrit le 08/03/2006 :
Bonjour,
Bien que les spammeurs utilisent souvent une adresse d'expéditeur
différente à chaque spam, ce n'est pas toujours le cas.
Je souhaite donc pouvoir ajouter automatiquement toutes les adresses des
mails du dossier courrier indésirable dans la liste des expéditeurs
bloqués, d'un seul coup (subclick...)
Je n'arrive pas à trouver le nom de cette liste des utilisateurs bloqués
(vba).
Si quelqu'un connait le nom de cette liste et, mieux encore, à une
procédure pour réaliser l'opération.....
Dernière version qui aajoute les adresses des spams puis les supprime.
Sub addSpamAdress() ' ajoute toutes les adresses des span à la liste d'expéditeur indésirables 'On Error Resume Next
Dim olItem As Mailitem Dim objInbox As MAPIFolder Dim oSelection Dim arc As Outlook.MAPIFolder Dim junkMailAddress As String Dim response As String
Set objNS = Application.GetNamespace("MAPI") Set objInbox = objNS.GetDefaultFolder(olFolderJunk) Set oSelection = objInbox.Items
response = MsgBox("Your are going to add all the email addresses to the Bocked Email list" & vbCrLf & _ "All emails will be deleted", vbYesNoCancel, "Junk Mail")
If response = vbNo Or response = vbCancel Then Exit Sub Else For I = 1 To oSelection.Count Set olItem = oSelection.Item(I) If oSelection.Count <> 0 Then ' si il ya de s mails junkMailAddress = olItem.SenderEmailAddress If junkMailAddress <> "" Then ' SendKeys "%ssb" ' ID: 9786 Set Btn = Application.ActiveExplorer.CommandBars.FindControl(1, 9786) Btn.Execute olItem.Delete
End If End If Next End If End Sub
8-o Une meuilleur solution : remplacer la ligne de Senkeys par :
Set Btn = Application.ActiveExplorer.CommandBars.FindControl(1, 9786)
Spectre a exposé le 11/03/2006 :
Etant souvent mieux servi par soi même, si joint la solution trouvée.
N trouvant pas la référence de la liste des expediteurs bloqués, je suis passé par un "sendkeys"
Sub addSpamAdress() ' ajoute toutes les adresses des span à la liste d'expéditeur indésirables On Error Resume Next
Dim olItem As Mailitem Dim objInbox As MAPIFolder Dim oSelection Dim arc As Outlook.MAPIFolder Dim junkMailAddress As String
Set objNS = Application.GetNamespace("MAPI") Set objInbox = objNS.GetDefaultFolder(olFolderJunk) Set oSelection = objInbox.Items
For I = 1 To oSelection.Count Set olItem = oSelection.Item(I) If oSelection.Count <> 0 Then ' si il ya des mails junkMailAddress = olItem.SenderEmailAddress If junkMailAddress <> "" Then SendKeys "%ssb" End If End If Next End Sub
Spectre avait écrit le 08/03/2006 :
Bonjour,
Bien que les spammeurs utilisent souvent une adresse d'expéditeur différente à chaque spam, ce n'est pas toujours le cas.
Je souhaite donc pouvoir ajouter automatiquement toutes les adresses des mails du dossier courrier indésirable dans la liste des expéditeurs bloqués, d'un seul coup (subclick...)
Je n'arrive pas à trouver le nom de cette liste des utilisateurs bloqués (vba). Si quelqu'un connait le nom de cette liste et, mieux encore, à une procédure pour réaliser l'opération.....
Merci d'avance
Oliv'
Merci pour le code je le met de coté.
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook :http://faq.outlook.free.fr/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dernière version qui aajoute les adresses des spams puis les supprime.
Sub addSpamAdress() ' ajoute toutes les adresses des span à la liste d'expéditeur indésirables 'On Error Resume Next
Dim olItem As Mailitem Dim objInbox As MAPIFolder Dim oSelection Dim arc As Outlook.MAPIFolder Dim junkMailAddress As String Dim response As String
Set objNS = Application.GetNamespace("MAPI") Set objInbox = objNS.GetDefaultFolder(olFolderJunk) Set oSelection = objInbox.Items
response = MsgBox("Your are going to add all the email addresses to the Bocked Email list" & vbCrLf & _ "All emails will be deleted", vbYesNoCancel, "Junk Mail")
If response = vbNo Or response = vbCancel Then Exit Sub Else For I = 1 To oSelection.Count Set olItem = oSelection.Item(I) If oSelection.Count <> 0 Then ' si il ya de s mails junkMailAddress = olItem.SenderEmailAddress If junkMailAddress <> "" Then ' SendKeys "%ssb" ' ID: 9786 Set Btn > Application.ActiveExplorer.CommandBars.FindControl(1, 9786) Btn.Execute olItem.Delete
End If End If Next End If End Sub
8-o Une meuilleur solution : remplacer la ligne de Senkeys par :
Set Btn = Application.ActiveExplorer.CommandBars.FindControl(1, 9786)
Spectre a exposé le 11/03/2006 :
Etant souvent mieux servi par soi même, si joint la solution trouvée. N trouvant pas la référence de la liste des expediteurs bloqués, je suis passé par un "sendkeys"
Sub addSpamAdress() ' ajoute toutes les adresses des span à la liste d'expéditeur indésirables On Error Resume Next
Dim olItem As Mailitem Dim objInbox As MAPIFolder Dim oSelection Dim arc As Outlook.MAPIFolder Dim junkMailAddress As String
Set objNS = Application.GetNamespace("MAPI") Set objInbox = objNS.GetDefaultFolder(olFolderJunk) Set oSelection = objInbox.Items
For I = 1 To oSelection.Count Set olItem = oSelection.Item(I) If oSelection.Count <> 0 Then ' si il ya des mails junkMailAddress = olItem.SenderEmailAddress If junkMailAddress <> "" Then SendKeys "%ssb" End If End If Next End Sub
Spectre avait écrit le 08/03/2006 :
Bonjour,
Bien que les spammeurs utilisent souvent une adresse d'expéditeur différente à chaque spam, ce n'est pas toujours le cas.
Je souhaite donc pouvoir ajouter automatiquement toutes les adresses des mails du dossier courrier indésirable dans la liste des expéditeurs bloqués, d'un seul coup (subclick...)
Je n'arrive pas à trouver le nom de cette liste des utilisateurs bloqués (vba). Si quelqu'un connait le nom de cette liste et, mieux encore, à une procédure pour réaliser l'opération.....
Merci d'avance
Merci pour le code je le met de coté.
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dernière version qui aajoute les adresses des spams puis les supprime.
Sub addSpamAdress() ' ajoute toutes les adresses des span à la liste
d'expéditeur indésirables
'On Error Resume Next
Dim olItem As Mailitem
Dim objInbox As MAPIFolder
Dim oSelection
Dim arc As Outlook.MAPIFolder
Dim junkMailAddress As String
Dim response As String
Set objNS = Application.GetNamespace("MAPI")
Set objInbox = objNS.GetDefaultFolder(olFolderJunk)
Set oSelection = objInbox.Items
response = MsgBox("Your are going to add all the email addresses
to the Bocked Email list" & vbCrLf & _
"All emails will be deleted",
vbYesNoCancel, "Junk Mail")
If response = vbNo Or response = vbCancel Then
Exit Sub
Else
For I = 1 To oSelection.Count
Set olItem = oSelection.Item(I)
If oSelection.Count <> 0 Then ' si il ya de s
mails
junkMailAddress = olItem.SenderEmailAddress
If junkMailAddress <> "" Then
' SendKeys "%ssb" ' ID: 9786
Set Btn > Application.ActiveExplorer.CommandBars.FindControl(1, 9786)
Btn.Execute
olItem.Delete
End If
End If
Next
End If
End Sub
8-o Une meuilleur solution : remplacer la ligne de Senkeys par :
Set Btn = Application.ActiveExplorer.CommandBars.FindControl(1, 9786)
Spectre a exposé le 11/03/2006 :
Etant souvent mieux servi par soi même, si joint la solution
trouvée. N trouvant pas la référence de la liste des expediteurs
bloqués, je
suis passé par un "sendkeys"
Sub addSpamAdress() ' ajoute toutes les adresses des span à la liste
d'expéditeur indésirables
On Error Resume Next
Dim olItem As Mailitem
Dim objInbox As MAPIFolder
Dim oSelection
Dim arc As Outlook.MAPIFolder
Dim junkMailAddress As String
Set objNS = Application.GetNamespace("MAPI")
Set objInbox = objNS.GetDefaultFolder(olFolderJunk)
Set oSelection = objInbox.Items
For I = 1 To oSelection.Count
Set olItem = oSelection.Item(I)
If oSelection.Count <> 0 Then ' si il ya des mails
junkMailAddress = olItem.SenderEmailAddress
If junkMailAddress <> "" Then
SendKeys "%ssb"
End If
End If
Next
End Sub
Spectre avait écrit le 08/03/2006 :
Bonjour,
Bien que les spammeurs utilisent souvent une adresse d'expéditeur
différente à chaque spam, ce n'est pas toujours le cas.
Je souhaite donc pouvoir ajouter automatiquement toutes les
adresses des mails du dossier courrier indésirable dans la liste
des expéditeurs bloqués, d'un seul coup (subclick...)
Je n'arrive pas à trouver le nom de cette liste des utilisateurs
bloqués (vba).
Si quelqu'un connait le nom de cette liste et, mieux encore, à une
procédure pour réaliser l'opération.....
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook :http://faq.outlook.free.fr/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dernière version qui aajoute les adresses des spams puis les supprime.
Sub addSpamAdress() ' ajoute toutes les adresses des span à la liste d'expéditeur indésirables 'On Error Resume Next
Dim olItem As Mailitem Dim objInbox As MAPIFolder Dim oSelection Dim arc As Outlook.MAPIFolder Dim junkMailAddress As String Dim response As String
Set objNS = Application.GetNamespace("MAPI") Set objInbox = objNS.GetDefaultFolder(olFolderJunk) Set oSelection = objInbox.Items
response = MsgBox("Your are going to add all the email addresses to the Bocked Email list" & vbCrLf & _ "All emails will be deleted", vbYesNoCancel, "Junk Mail")
If response = vbNo Or response = vbCancel Then Exit Sub Else For I = 1 To oSelection.Count Set olItem = oSelection.Item(I) If oSelection.Count <> 0 Then ' si il ya de s mails junkMailAddress = olItem.SenderEmailAddress If junkMailAddress <> "" Then ' SendKeys "%ssb" ' ID: 9786 Set Btn > Application.ActiveExplorer.CommandBars.FindControl(1, 9786) Btn.Execute olItem.Delete
End If End If Next End If End Sub
8-o Une meuilleur solution : remplacer la ligne de Senkeys par :
Set Btn = Application.ActiveExplorer.CommandBars.FindControl(1, 9786)
Spectre a exposé le 11/03/2006 :
Etant souvent mieux servi par soi même, si joint la solution trouvée. N trouvant pas la référence de la liste des expediteurs bloqués, je suis passé par un "sendkeys"
Sub addSpamAdress() ' ajoute toutes les adresses des span à la liste d'expéditeur indésirables On Error Resume Next
Dim olItem As Mailitem Dim objInbox As MAPIFolder Dim oSelection Dim arc As Outlook.MAPIFolder Dim junkMailAddress As String
Set objNS = Application.GetNamespace("MAPI") Set objInbox = objNS.GetDefaultFolder(olFolderJunk) Set oSelection = objInbox.Items
For I = 1 To oSelection.Count Set olItem = oSelection.Item(I) If oSelection.Count <> 0 Then ' si il ya des mails junkMailAddress = olItem.SenderEmailAddress If junkMailAddress <> "" Then SendKeys "%ssb" End If End If Next End Sub
Spectre avait écrit le 08/03/2006 :
Bonjour,
Bien que les spammeurs utilisent souvent une adresse d'expéditeur différente à chaque spam, ce n'est pas toujours le cas.
Je souhaite donc pouvoir ajouter automatiquement toutes les adresses des mails du dossier courrier indésirable dans la liste des expéditeurs bloqués, d'un seul coup (subclick...)
Je n'arrive pas à trouver le nom de cette liste des utilisateurs bloqués (vba). Si quelqu'un connait le nom de cette liste et, mieux encore, à une procédure pour réaliser l'opération.....
