MACRO PARA ENVIAR MAIL CON DESTINATARIOS

1 post / 0 nuevos
ZTK
Imagen de ZTK
Offline
última acción: Hace 1 mes 3 semanas
alta: 25/07/2021 - 06:01
Puntos: 25
MACRO PARA ENVIAR MAIL CON DESTINATARIOS

Que tal foro; buen dia.

 

Acudo a su sabiduria, me estoy adentrando en el mundo de las macros, soy bastante nuevo en esto y he intentado "armar" una macro modificandola para mis necesidades especificas.

 

Navegando encontre esta Macro:

Option Explicit

'

Sub EviarHojaEmail()

'

Dim NombreArchivo As String

Dim RutaTemporal As String

Dim Mensaje As String

    '

    On Error Resume Next

    '

    Mensaje = "Estás a punto de enviar la hoja activa por email. Ingresa el nombre con que se enviará el archivo o deja en blanco para que el archivo tenga el nombre de la hoja."

    NombreArchivo = InputBox(Mensaje, "Centro de C")

    '

    If NombreArchivo = "" Then NombreArchivo = ActiveSheet.Name

    '

    RutaTemporal = Environ("temp") & "\"

    NombreArchivo = RutaTemporal & NombreArchivo & ".xlsx"

 

    ActiveWorkbook.ActiveSheet.Copy

    Application.DisplayAlerts = False

    ActiveWorkbook.SaveAs NombreArchivo

    Application.DisplayAlerts = True

    CommandBars.ExecuteMso ("FileSendAsAttachment")

    ActiveWorkbook.Close False

    Kill NombreArchivo

    '

    On Error GoTo 0

    '

End Sub

 
 
quiero agregarle la funcion de que tome valores de una hoja llamada "DATOS" y los pueda agregar en los apartados "Para", "CC" y "Asunto" de la aplicacion OutLook, pero no lo he logrado
 
Agradezco de antemano su atencion y apoyo.
 
SALUDOS!!!!!
AdjuntoTamaño
File macro_mail.xlsm19.27 KB