Visual Basic para Aplicaciones - Automatizar respuesta en Outlook con VBA. AYUDA!!!

En mi empresa me piden que realice en VBA una aplicación (formulario) que permita, enviar un mail con una factura adjunta, y al destinatario le salgan las opciones de confirma o rechazar (tal como permite automatizar Outllook 2007), pero que al aceptar devuelva automáticamente el mail a un destinatario concreto con un asunto determinado. He leído, me he pegado, he apretado Google y me he comprado un libro de VBA, pero hay poca información de Outlook, todo es para Excel, y no soy capaz de realizar esto, alguien puede ayudarme?

Busca Redemption en Google mira el codigo que ahi aparece sera un buen comienzo
http://www.dimastr.com/redemption/
:-)
Saludos

Hola,

Mira yo tenia que enviar un correo desde Excel, entonces lo primero que hice fue crear un boton en una casilla y despues le asocie esta macro:

La macro que tienes que crear es:

Private Sub CommandButton1_Click()
Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
With objMail
.To = "[email protected]" ' cambia al destinatario de correo que desees
.Subject = "Alarma"
.Body = "En la bitacora se registra que el Estado esta Abierto"
' .Display 'muestra mensaje
.Send
End With
Set objMail = Nothing
Set objOL = Nothing
MsgBox "Mail enviado"
End Sub

Importante: Para que este código funcione, debe estar instalada la biblioteca de Outlook. Dentro del Editor de Visual Basic, haz click en "Herramientas" | "Referencias"; busca y marca (si no lo estuviera) la biblioteca "Microsoft Outlook Object Library"

y bueno a mi me sirvio muchisimo, espero que tambien te sirva

Muy bueno funciona bien.
Un favor yo quiero mandar un correo con una foto en el cuerpo (BODY)del mensaje.

Gracias