Excel mandar mail con un mensaje
Estoy haciendo un excel que se va llenando con pasos, por ejemplo paso 1 secretario completa planilla, 2 pasa al director, pero se tiene que enviar un mail y se completa en el mismo archivo, luego una vez que lo completa el director, se manda un mail de aviso para que lo haga otro departamento (paso 3), etc. Necesito saber si es posible y como lo hago, no se mucho de programación, así que si me ayudan con eso.
1 Respuesta
Alan, con éste procedimiento puedes enviar adjunto en un correo (desde Outlook) el archivo activo de Excel, esto lo debes llamar desde un evento o colocando un botón en tu hoja de Excel
También debes hacer referencia a Microsoft Outlook desde el editor de VBA (Alt+F11) menú Herramientas-Referencias y activar Microsoft Outlook 15.0 (la versión depende del Office que tengas instalado).
Avisa si tienes alguna duda, Saludos.
Sub Enviar_Adjunto()
resp = MsgBox("Desea enviar el archivo por correo?", vbYesNo, "Envío")
If resp = 6 Then
Application.DisplayAlerts = False
Application.ActiveWorkbook.Save
'Declarar variables
Dim OLApp As Outlook.Application
Dim OLMail As Object
'Abrir la aplicacion Outlook y crear el email
Set OLApp = New Outlook.Application
Set OLMail = OLApp.CreateItem(0)
OLApp.Session.Logon
'Detallar los elementos del email, a quienes enviar, titulos y archivo a adjuntar
With OLMail
.To = '***Correos a enviar***
'.CC = '***Correos con copia***
.Subject = '***Asunto del Correo***
.Body = '***Lo que llevara el cuerpo del correo***
.Attachments.Add ActiveWorkbook.FullName
.Display
.Send
End With
'Limpiar datos almacenados en las variables definidas
Set OLMail = Nothing
Set OLApp = Nothing
End If
End Sub
