Sobre una archivo excel con macro se puede general uno si macro

Tengo un archivo con una macro que me maneja un numero y la fecha, cuando lo envío por mail a otra persona y lo abre se le cambia el numero colocado y a esa persona que le envíe le queda el informe con otro numero.

Como puedo solucionar el tema que al enviar mi archivo se anule una macro

Para dante amor

1 respuesta

Respuesta
1

¿Quieres qué en el nuevo archivo se copien todas las hojas?

Solamente algunas hojas, ¿cuáles?

Desde luego la hoja "numero de parte" esa hoja ya no se incluiría, ya que solamente la ocupa la macro.

Quieres que se envíe por correo en automático, ¿tienes qué decirme de dónde obtengo el correo del destinatario? Qué poner en el asunto y qué poner en el cuerpo del correo.

Solamente una copia de la misma hoja que tiene "numero de parte"

Si por correo automático y la dirección es [email protected]

Asunto: parte diario

Cuerpo: se eleva parte y pronostico.

Para. Dante amor

No entendí

"Solamente una copia de la misma hoja que tiene "numero de parte""

¿Cómo se llama la hoja que quieres enviar?

parte

para dante amor

Te anexo la macro para enviar la hoja "parte" por correo.

Sub enviar_hoja_()
'por.Dante amor
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    nombre = ThisWorkbook.Path & "\parte"
    Sheets("parte").Copy
    ActiveWorkbook.SaveAs nombre
    n = ActiveWorkbook.FullName
    Set dam = CreateObject("outlook.application").createitem(0)
        dam.to = "[email protected]"
        dam.Subject = "parte diario"
        dam.body = "se eleva parte y pronostico."
        Dam. Attachments. Add n
        Dam. Send
    ActiveWorkbook. Close
End Sub

Saludos.Dante Amor

No olvides valorar la respuesta.

Te anexo la macro para enviar por gmail

Sub enviar_hoja_()
'por.Dante amor
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    nombre = ThisWorkbook.Path & "\parte"
    Sheets("parte").Copy
    ActiveSheet.DrawingObjects("1 Rectángulo").Delete
    ActiveWorkbook.SaveAs nombre
    n = ActiveWorkbook.FullName
    ActiveWorkbook.Close
    Dim Email As CDO.Message
    correo = "[email protected]"
    passwd = "pwd"
    Set Email = New CDO.Message
    Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
    Email.Configuration.Fields(cdoSendUsingMethod) = 2
    With Email.Configuration.Fields
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465)
        .Item("http://schemas.microsoft.com/cdo/" & "configuration/smtpauthenticate") = Abs(1)
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = passwd
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    End With
    With Email
        .To = "[email protected]"
        .From = correo
        .Subject = "parte diario"
        .TextBody = "se eleva parte y pronostico."
        .AddAttachment n
        .Configuration.Fields.Update
        On Error Resume Next
        .Send
    End With
    If Err.Number = 0 Then
        MsgBox = "El mail se envió con éxito"
    Else
        MsgBox = "Se produjo el siguiente error: " & Err.Number & " " & Err.Description
    End If
    Set Email = Nothing
End Sub

Saludos.Dante Amor

No olvides valorar la respuesta.

Para enviar por gmail

Sub enviar_hoja_()
'por.Dante amor
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    nombre = ThisWorkbook.Path & "\parte"
    Sheets("parte").Copy
    ActiveSheet.DrawingObjects("1 Rectángulo").Delete
    ActiveWorkbook.SaveAs nombre
    n = ActiveWorkbook.FullName
    ActiveWorkbook.Close
    Dim Email As CDO.Message
    correo = "[email protected]"
    passwd = "emaco2014"
    Set Email = New CDO.Message
    Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
    Email.Configuration.Fields(cdoSendUsingMethod) = 2
    With Email.Configuration.Fields
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465)
        .Item("http://schemas.microsoft.com/cdo/" & "configuration/smtpauthenticate") = Abs(1)
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = passwd
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    End With
    With Email
        .To = "[email protected]"
        .From = correo
        .Subject = "parte diario"
        .TextBody = "se eleva parte y pronostico."
        .AddAttachment n
        .Configuration.Fields.Update
        On Error Resume Next
        .Send
    End With
    If Err.Number = 0 Then
        MsgBox "El mail se envió con éxito"
    Else
        MsgBox "Se produjo el siguiente error: " & Err.Number & " " & Err.Description
    End If
    Set Email = Nothing
End Sub

Saludos.Dante Amor

No olvides valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Urgente! Formulario enviar correo desde excel

Necesito por favor su ayuda urgente.. Diseñe un Excel con todas las macros correctas, pero me pidieron que agregara un formulario que tenga el ingreso del correo (hotmail) y de la clave del remitente para enviar un comentario a otro correo. En ningún...
2 respuestas

Una Macro para enviar email desde hoja excel usando gmail,com se puede o solo de outlook? Si me ayudan, gracias

Como hacer una macro que tome los datos de una hoja Excel, correo, asunto, cuerpo del texto, ¿Archivo adjunto pero desde gmail o solo se puede de Outlook? Si alguien tiene la solución.
1 respuesta

¿Cómo sería una macro para enviar correos por gmail, tomando los datos de una hoja Excel?

Como hacer una macro para enviar correos por gmail, donde los datos los tome de una hoja Excel, llamada "Correo", en la fila 1 están los títulos, en la celda A2 el email, B2 el Asunto, C2 el cuerpo del texto, D2 nombre archivo adjunto, E2 Ruta...
1 respuesta

Macro para enviar correo con gmail

Sres Expertos, me pueden ayudar con un código para una macro, en el cual quiero enviar con correo con archivo adjunto con gmail, aquí tengo uno pero como agrar la función de adjuntar el archivo. Sub CDO_Mail_Small_Text_2() Dim iMsg As Object Dim...
1 respuesta

Enviar correo electrónico desde excel

Serian tan amables de ayudarme, no es el código completos solo una parte. Tengo el siguiente código: 'Ponemos datos del servidor a usar Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com" Email.Configuration.Fields(cdoSendUsingMethod) = 2...
1 respuesta

Enviar email desde excel vba a cuenta en google apps

Favor si me puedes ayudar con un inconveniente que tengo con una macro: Tengo una macro donde realizo varios procesos, cuando ya he acomodado los datos necesarios, estos a través de un botón los envío al mail configurado en Microsoft Outlook con la...
1 respuesta

Enviar informe desde access con correo lotus

He encontrado ese código a una pregunta que contestaste anteriormente. ¿Es posible hacer eso mismo con un correo de empresa que utiliza el lotus notes? He probado cambiando el smtp. Gmail.com el correo y contraseña pero no funciona. ¿Qué hago mal?...
1 respuesta

Email Informe de access

Tengo el siguiente codigoen VB para enviar correos electrónico sin usar outlook o similar. O sea que uso una cuenta de gmail. Mi pregunta es como hago para poder anexar a este código un informe llamado "Asistencia" y que lo envíe en forma automática...
1 respuesta

Como se puede obviar el mensaje que entrega el outlook cuando se ejecuta una macro para el envío

Estimados es posible que se pueda enviar un correo desde excel con una macro y no aparezca el mensaje de outlook que alguien esta tratando de enviar un correo con su nombre
1 respuesta

Ayuda con macro envio windows live mail

Tengo un programa bastante complejo que me envía a un libro excel una lista de valores de unas botellas que tienen fecha de caducidad. Hice una macro que cuando la inicio me indica cual cambio de valor respecto a la ultima revisión. Lo que necesito...
1 respuesta