VBA reenvía correos electrónicos
¿Abierto? ¿error? ¿Ir a? ¿1000?
¿Oscuro? miOlApp? ¿Como? ¿Aplicar?
¿Oscuro? ¿mi espacio de nombres? ¿Como? ¿Espacio de nombres?
¿Oscuro? miibox? ¿Como? ¿Carpeta MAPI?
¿Oscuro? ¿Mi correo electrónico? ¿Como? ¿Carpeta MAPI?
¿Oscuro? ¿Mi proyecto? ¿Como? ¿Artículo de correo?
¿Configuración? miOlApp? =?CreateObject(?"Look.Apply?")?
¿Configuración? ¿mi espacio de nombres? =?miOlApp. GetNamespace(?"Mapi?")?
¿Configuración? ¿Orap? =? Perspectiva. ¿Aplicar
configuración? nmsNombre? =?Olap. GetNamespace("MAPI ")
¿Para qué? ¿Cada? fldCarpeta? ¿existir? nmsNombre. Carpetas
¿Para qué? ¿Cada? ¿Subcarpeta? ¿existir? Carpeta fldFolder
¿Y si? (subcarpeta.nombre?=?"bandeja de entrada")? ¿Entonces qué?
¿Para qué? ¿Cada? ¿objeto? ¿existir? subcarpeta. Proyecto
¿Y si? objetos. Asunto=? "tu tema"? Entonces
objitem. beneficiario. ¿Agregar? ("aaa@163.com")
objitem. beneficiario. ¿Agregar? ("bbb@163.com")
objitem. beneficiario. ¿Agregar? ("ccc@163.com")
objitem. Enviar
¿Finalizar? Si
Entonces
¿Finalizar? Si
entonces
entonces
¿terminar? Sub Ha pasado mucho tiempo desde que escribí esto. Probablemente eso fue lo que pasó. Aún no lo he probado. Pruébelo localmente y cámbielo usted mismo.