Private???Sub???Application_open()?
????????'On???Error???GoTo???1000?
??????????Dim???myOlApp???As???Application?
??????????Dim???myNameSpace???As???NameSpace?
??????????Dim???myibox???As???MAPIFolder?
??????????Dim???mydelitems???As???MAPIFolder?
??????????Dim???myitem???As???MailItem?
??????????
??????????Set???myOlApp???=???CreateObject(?"Outlook.Application?")?
??????????Set???myNameSpace???=???myOlApp.GetNamespace(?"MAPI?")?
???????????Set?olApp?=?Outlook.Application
?????Set?nmsName?=?olApp.GetNamespace("MAPI")
?????
?????For?Each?fldFolder?In?nmsName.Folders
?????????For?Each?subFolder?In?fldFolder.Folders
?????????If?(subFolder.Name?=?"Inbox")?Then???
?????????For?Each?objitem?In?subFolder.Items
?????????????????If?objitem.Subject=?"YourSubject"?Then
??????????????????objitem.Recipients.Add?("aaa@163")??
????????objitem.Recipients.Add?("bbb@163")??
??????objitem.Recipients.Add?("ccc@163")??
????????objitem.Send??
?????????????????End?If
?????????Next
?????????End?If
????????Next
?????Next
End???Sub
好久没写过这个了，大概就是这么回事吧，没测试过，你本地自己试试吧，然后自己看情况改一改