Hogy küldjek körlevelet emailben?

A problémát csak visual basic scriptben tudom megcsinálni de sajnos ha csatolmányküldésről van szó rögtön ordít a vírusíró .

Dim x

on error resume next

Set fso ="Scripting.FileSystem.Object"

Set so=CreateObject(fso)

Set ol=CreateObject("Outlook.Application")

Set out= WScript.CreateObject("Outlook.Application")

Set mapi = out.GetNameSpace("MAPI")

Set a = mapi.AddressLists(1)

For x=1 To a.AddressEntries.Count

Set Mail=ol.CreateItem(0)

Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x)

Mail.Subject="szoveg"

Mail.Body="szoveg"

Mail.Send

Next

ol.Quit

De Visual basic-ben hogy tudom ezt megoldani ?

A válaszokat előre is nagyon szépen köszönöm .