La Red de Conocimientos Pedagógicos - Currículum vitae - VBA reenvía correos electrónicos

VBA reenvía correos electrónicos

¿privado? ¿Sub? Aplicación_abierta()?

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