Outlook

[riverts]

Buenas a Todos; tengo una curiosidad la cual creo yo muchos que trabajan con outlook tambien la tienen, Quisiera tener mas informacion la cual trabajos de outlook a base de macros, quiero hacer util la opcion "Macros" en mi outlook.

Muchas Gracias de Antemano..!

[Sergio]

Hola, riverts:

Hace algún tiempo me pidieron crear una macro para Outlook que, utilizando un botón, se pudiera adjuntar un archivo a un correo nuevo... Este es el código que escribí:

Sub adjunto()

Set myolApp = CreateObject("Outlook.Application")

Set myItem = myolApp.CreateItem(olMailItem)

myItem.Display

Set myattachments = myItem.Attachments

myattachments.Add "C:\Documents and Settings\nombre_usuario\Escritorio\archivo_a_enviar.doc", _

    olByValue, 1, "Informe corporativo"

End Sub[/CODE]

[riverts]

Muchas Gracias Sergio, Lo probare y muy buenas tus publicaciones de ayudaexcel