Cómo funciona JustAnswer:

  • Preguntar a un Experto
    Los expertos tiene muchos conocimientos valiosos y están dispuestos a ayudar en cualquier pregunta. Credenciales confirmadas por una empresa de verificación perteneciente a Fortune 500.
  • Obtener una respuesta profesional
    Por correo electrónico, mensaje de texto o notificación mientras espera en su sitio.
    Haga preguntas de seguimiento si lo necesita.
  • Garantía de satisfacción plena
    Garantizamos tu satisfacción.

Formule su propia pregunta a Jose Mari

Jose Mari
Jose Mari, Grado Superior
Categoría: Informática
Clientes satisfechos: 526
Experiencia:  Técnico informático y Programador.
57600787
Escriba su pregunta sobre Informática aquí...
Jose Mari está en línea ahora

como enviar un mail desde excel

Pregunta del cliente

<p>como enviar un mail desde excel.</p><p>Se trata de enviar una sóla hoja del libro activo. A ser posible con outlook.</p><p>Y</p>
Enviada: hace 5 año.
Categoría: Informática
Experto:  Jose Mari escribió hace 5 año.
Buenos días,

Si quieres puedes ponerte en contacto conmigo [email protected] para que te pueda mirar la hoja de excel. Envíame una copia de la hoaja de excel.

Quedando a la espera de recibir noticias tuyas, recibe un saludo,

Jose Mari.
Cliente: escribió hace 5 año.

Yo sé perfectamente enviar el libro activo a una dirección de correo. Lo que quiero saber son dos cosas. ¿Como enviar un libro distinto del activo que esta cerrado en una carpeta? ¿Cómo enviar una sóla hoja del libro activo?

 

Experto:  Jose Mari escribió hace 5 año.
Hola de nuevo,

Enviame una copia y así te lo programo y te lo explico.

Mi direccion [email protected]

Un saludo,
Experto:  Jose Mari escribió hace 5 año.
Hola de nuevo,

Acepta la solución y te envío la respuesto.

Espero tu aceptación. Un saludo,

Jose Mari.
Experto:  ratonxi escribió hace 5 año.
hola, gracias XXXXX XXXXX JA:

Prueba con este código:

Sub Mail_workbook_1()
'Working in 97-2010
Dim wb As Workbook
Dim I As Long


Set wb = ActiveWorkbook

If Val(Application.Version) >= 12 Then
If wb.FileFormat = 51 And wb.HasVBProject = True Then
MsgBox "There is VBA code in this xlsx file, there will" & vbNewLine & _
"be no VBA code in the file you send. Save the" & vbNewLine & _
"file first as xlsm and then try the macro again.", vbInformation
Exit Sub
End If
End If

On Error Resume Next
For I = 1 To 3
wb.SendMail "[email protected]", _
"Asunto del email"
If Err.Number = 0 Then Exit For
Next I
On Error GoTo 0
End Sub


En Set wb = ActiveWorkbook, se especifica que mande adjunto el archivo de excel que se está utilizando. Sino, puedes cambiarlo por el nombre del workbook que quieras enviar. Por lo demás, sólo tendrás que configurar el wb.SendMail con la dirección a la que quieras enviar el correo y el asunto del mismo.

Para enviar varias páginas a diferentes direcciones, usa este código:

Sub Mail_Sheets()
'Working in 97-2010
Dim wb As Workbook
Dim Shname As Variant
Dim Addr As Variant
Dim N As Integer
Dim TempFilePath As String
Dim TempFileName As String
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim I As Long

Shname = Array("hoja1", "hoja2", "hoja3", "hoja4")
Addr = Array("[email protected]", "[email protected]", "[email protected]", "[email protected]")

If Val(Application.Version) >= 12 Then
'You run Excel 2007-2010
FileExtStr = ".xlsm": FileFormatNum = 52
Else
'You run Excel 97-2003
FileExtStr = ".xls": FileFormatNum = -4143
End If

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

TempFilePath = Environ$("temp") & "\"

'Create the new workbooks/Mail it/Delete it
For N = LBound(Shname) To UBound(Shname)

TempFileName = "Sheet " & Shname(N) & " " & Format(Now, "dd-mmm-yy h-mm-ss")

ThisWorkbook.Sheets(Shname(N)).Copy
Set wb = ActiveWorkbook

With wb
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormatNum
On Error Resume Next
For I = 1 To 3
.SendMail Addr(N), _
"This is the Subject line"
If Err.Number = 0 Then Exit For
Next I
On Error GoTo 0
.Close SaveChanges:=False
End With

'Delete the file you have send
Kill TempFilePath & TempFileName & FileExtStr

Next N

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub

La hoja se envía al destinatario1, la hoja 2 al destinatario 2..etc. Aquí también puedes cambiar el Set.wb para que apunte a otro documento de excel.

Saludos! Si te he sido de ayuda no olvides aceptar mi respuesta!







Experto:  Jose Mari escribió hace 5 año.
Hola de nuevo,

Piensas aceptar para que te envie la respuesta?

Un saludo,
Jose Mari, Grado Superior
Categoría: Informática
Clientes satisfechos: 526
Experiencia: Técnico informático y Programador.
Jose Mari y otros otros especialistas en Informática están preparados para ayudarle
Cliente: escribió hace 5 año.

A ver si nos aclaramos. Que yo haya aceptado la respuesta, no significa que se me haya dado. Lo único que se ha respondido es que mande la hoja de cálculo, cosa que por criterrios de confidencialidad no era posible.

Pero a mi no me ha solucionada nadie nada. Lo dejé yo solucionado ayer.

He aceptado porque tengo otra consulta:

 

¿Cómo se deshabilita el mensaje de advertencia que sale cuando se envía un correo desde excel?

Experto:  Jose Mari escribió hace 5 año.
Buenas noches,

Me alegra saber que has solucionado el tema de envio de los mensajes.

Los mensajes se deshabilitan con la siguiente sentencia:
Application.DisplayAlerts = False

Application.DisplayAlerts = True


Si necesitas cualquier cosa, ponte en contacto conmigo a través del email [email protected]

Un saludo,

Jose Mari.

JustAnswer en los medios:

 
 
 
Sitios web de consulta médica: Si tiene una pregunta urgente puede intentar obtener una respuesta de sitios que afirman disponer de distintos especialistas listos para proporcionar respuestas rápidas... Justanswer.com.
JustAnswer.com...ha visto como desde octubre se ha disparado el número de consultas legales de nuestros lectores sobre despidos, desempleo e indemnizaciones por cese.
Los sitios web como justanswer.com/legal
...no dejan nada al azar.
El tráfico en JustAnswer ha aumentado un 14 por ciento...y hemos recibido 400.000 visitas en 30 días...las preguntas relacionadas con el estrés, la presión alta, la bebida y los dolores cardíacos han aumentado un 33 por ciento.
Tory Johnson, colaboradora de GMA sobre temas relacionados con el lugar de trabajo, habla sobre el "teletrabajo", como JustAnswer, en el que expertos verificados responden a las preguntas de las personas.
Le diré que... las pruebas que hay que superar para llegar a ser un experto son muy rigurosas.
 
 
 

Opiniones de nuestros clientes:

 
 
 
  • Explicación simple y concreta que facilitó enormemente lo que tenía que hacer. Osvaldo Argentina
  • Explicación simple y concreta que facilitó enormemente lo que tenía que hacer. Osvaldo Argentina
  • Gracias! Servicio excelente. Me ha gustado trabajar con los Expertos. Éxito y gracias. Estefanía Chile
  • Muy agradecida. Si lo necesito volveré a utilizar el site. Mari Ramírez San Juan, Puerto Rico
  • El tiempo de respuesta es excepcional, de menos de 6 minutos. La pregunta se respondió con profesionalidad y con un alto grado de compasión. Inés Santander
  • Quedé muy satisfecho con la rapidez y la calidad de los consejos que recibí. Me gustaría añadir que puse en práctica los consejos y que funcionaron la primera vez y siguen haciéndolo. Luis Málaga
  • Es un servicio fantástico y M. Castillo me ayudó muchísimo y me proporcionó algunos sitios web y herramientas estupendos que me permitieron ampliar mis conocimientos sobre la pregunta. ¡Muchas gracias! Esther Sevilla
  • Un servicio estupendo: rápido, eficiente y preciso. ¿Qué más se puede pedir? No tengo palabras para agradecer su ayuda. María Barcelona
 
 
 

Conozca a los expertos:

 
 
 
  • Jesús

    Jesús

    Técnico Informático

    Clientes satisfechos:

    711
    Experto en Software, Hardware y Redes.
  • http://ww2.justanswer.com/uploads/JE/jesemo/2012-2-26_21847_yocarnet.64x64.jpg Avatar de Jesús

    Jesús

    Técnico Informático

    Clientes satisfechos:

    711
    Experto en Software, Hardware y Redes.
  • http://ww2.justanswer.com/uploads/ES/Estigia/2011-10-18_211225_VMNB.64x64.JPG Avatar de Estigia

    Estigia

    Ing. en Electrónica

    Clientes satisfechos:

    1009
    Especializado en HW, SW e Infraestructura de Redes.
  • http://ww2.justanswer.com/uploads/AR/arcangelus/2012-1-3_2523_Jluis.64x64.jpg Avatar de arcangelus

    arcangelus

    Ing. en Sistemas

    Clientes satisfechos:

    428
    Más de 20 años de experiencia en Informatica
  • http://ww2.justanswer.com/uploads/RR/rrubidio/2015-3-16_19381_arnetnuevo.64x64.jpeg Avatar de Rubén Díaz

    Rubén Díaz

    Técnico en computación, informática

    Clientes satisfechos:

    381
    Más de 7 años de experiencia en soporte informático in-situ y remoto, con conocimientos en equipos Windows, Mac, Smartphone y periféricos.
  • http://ww2.justanswer.com/uploads/AL/Albertillo/2012-10-29_21350_newtshirthe.64x64.jpg Avatar de Albertillo

    Albertillo

    Ingeniero Superior en Informática

    Clientes satisfechos:

    23
    Último curso de carrera
  • http://ww2.justanswer.com/uploads/RA/ratonxi/2012-1-3_151146_1.64x64.png Avatar de ratonxi

    ratonxi

    Licenciatura

    Clientes satisfechos:

    13
    Licenciado en Física, expecialidad física computacional.
 
 
 

Preguntas relacionadas con Informática