Agradezco tus comentarios

Me encantaría conocer tus impresiones acerca de los distintos ejemplos o artículos de este blog, si te es posible deja un comentario en mi libro de visitas. En cambio para preguntas o problemas con alguno de los ejemplos, te ruego me las formules en el foro de Access en grupos Emagister o en en el foro de Access y VBA.

jueves, 30 de octubre de 2008

Envío de correo masivo desde Access con CDO


Como lo prometido es deuda, ejemplo de Envío de correo masivo desde Access con CDO


Este ejemplo lo que hace es enviar a todos los emails que tengas en la tabla Contactos un correo electrónico.

Utiliza CDO por lo que es independiente del gestor de correo que utilices.
Si lo deseas puedes adjuntar un archivo.

Tienes que poner todos tus datos de Servidor,Usuario, Password y tu correo

Actualizado el 18 de Noviembre para poder adjuntar hasta 4 archivos

El enlace al ejemplo aquí

miércoles, 29 de octubre de 2008

Mapas con Google




Un ejemplo de como podemos en un formulario de clientes, con un campo donde tengamos su dirección, ponerle un mapa de Google.


Muestra un mapa de situación de todos los clientes de una tabla.

IMPORTANTE: Usa un control WebBrowser y GoogleMaps

El enlace al ejemplo aquí

Incluyo el 12 de Abril de 2009 otra opción de visualización de los mapas, posiblemente más útil para fines profesionales, como ahora solo muestra el mapa, agrego un par de botones para previsualizar e imprimir.

El enlace a este nuevo ejemplo aquí

Automatización con Outlook


Este ejemplo lo hice ya hace mucho tiempo, pero voy a ponerlo también aquí por aquello de tenerlo todo un poco reunido.

Es un ejemplo de automatización de Outlook con Access.


Se pueden crear citas, tareas , contactos, notas, mail etc, directamente con Outlook o bien a través de formularios propios.

IMPORTANTE: Es necesario tener registrada la referencia a Microsoft OutlookXX.

El enlace al ejemplo aquí

Jugando con los colores


En este ejemplo vamos a ver como podemos jugar un poco con los colores.


* Abriremos el cuadro de windows para elegir color
* Aprenderemos a usar el Screen.ActiveControl
* Cambiaremos las propiedades BackColor o ForeColor de los objetos del formulario, incluso en las secciones, Encabezado, Pie o Detalle.
* A los controles y secciones le cambiaremos su propiedad BackColor y a las etiquetas ForeColor

El enlace al ejemplo aquí

Arrastar y soltar archivos en Access


Con este ejemplo vamos a hacer las siguientes cosas:

*Vamos a llamar a un cuadro de diálogo de Windows
*Vamos a poder arrastar y soltar archivos y carpetas desde ese explorador a un cuadro de lista Access
*Los archivos de ese cuadro de lista, vamos a poder abrirlos haciendo dobleclick
*Al cerrar el formulario, vamos a guardar su contenido en una tabla, borrando previamente lo que hubiera en ella
*Al abrir el formulario volvemos a cargar el cuadro de lista con el contenido de la tabla.

No voy a poner aquí el código, ya que en el ejemplo ya viene comentado. Ante cualquier duda espero aquí vuestros comentarios.
IMPORTANTE: Este ejemplo utiliza, para cargar los archivos en el cuadro de lista, el método AddItem, por tanto solo funcionará en Access 2003 y 2007 (me parece que en Access XP también)
Enlace al ejemplo

martes, 28 de octubre de 2008

Enviar E-Mail sin usar gestor de correo

¿Podemos enviar un correo electrónico sin tener configurado ningún gestor de correo, y además de una forma sencilla que se pueda entender?
Vamos a hacerlo utilizando WSH y CDO.
La fuente de este ejemplo es:
http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx?mfr=true

En el enlace podemos ver este código de ejemplo:

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "admin1@fabrikam.com"
objEmail.To = "admin2@fabrikam.com"
objEmail.Subject = "Server down"
objEmail.Textbody = "Server1 is no longer accessible over the network."
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smarthost"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send

Y aquí podemos ver un ejemplo, utilizando este código para enviar un E-mail desde un formulario de Access, independientemente del programa de correo que utilicemos.

Después veremos como hacerlo con archivos adjuntos y también como enviar a todos los correos que tengamos en una tabla, incluso personalizandolos.

Hoy inauguro este blog

Empiezo hoy con esta andadura, para tener un lugar donde poder poner algunos ejemplos, que espero sean útiles a aquellos que se inician en Microsoft Access.

Trataré siempre de que sean ejemplos útiles y sencillos de adaptar para aquellos que lo deseen.

Ante cualquier duda podéis preguntarme en el foro de Access de E_Magister donde acudo practicamente a diario:
http://foros.emagister.com/foro-foro_de_ms_access-13129.htm