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
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
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.....
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.....
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.....
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.....
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.....
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.....
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 Sub8-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.....
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 Sub8-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