Foros de SóloIngeniería

[Webmaster]

- 23 Dic 2008, 09:54 #134826

Buenas. Pretendía hacer alguna rutina con VBA para MS Excel de modo que se enviara una determinada parte de una hoja activa de Excel vía Outlook Express. En VBA existe el método Sendmail, muy sencillo, pero envía el libro abierto como adjunto, no un contenido de dicho libro.

He buscado en la red, pero sólo consigo encontrar rutinas que envían adjunto el libro. Lo más similar a lo que busco que he encontrado han sido estos ejemplos, pero no realizan el envío como tal, sino que dejan el mensaje listo para enviar, a falta de que se pulse "enviar" en el mensaje de correo de Outlook.

Si alguien (que sé que alguno de los que andamos por aquí hacemos nuestros pinitos con VBA) tiene alguna sugerencia, se lo agradezco.

• 
• 
• 
• 
• 
• 

Instrucciones de participación en los foros
Preguntas frecuentes sobre participación básica
¿Errores, sugerencias?

- 23 Dic 2008, 12:55 #134885

¿En que formato quieres mandar esa parte del documento excel? como cuerpo del mensaje, como word, como un nuevo archivo excel.

Para que te envie el mensaje con los ejemplos que has puesto puedes probar con el método "send".

Es posible, que salga una mensaje de seguridad que te obliga a confirmar el envío, si el documento está firmado quizás no lo haga.

Saludos.

• 
• 
• 
• 
• 
• 

[Webmaster]

- 23 Dic 2008, 13:32 #134900

Sabía yo que el compañero wenner iba a echar un ojo al tema...

¿En que formato quieres mandar esa parte del documento excel? como cuerpo del mensaje, como word, como un nuevo archivo excel.

En el cuerpo de mensaje.

Para que te envie el mensaje con los ejemplos que has puesto puedes probar con el método "send".

Voy a trastear un poco. Gracias por el apunte.

• 
• 
• 
• 
• 
• 

Instrucciones de participación en los foros
Preguntas frecuentes sobre participación básica
¿Errores, sugerencias?

- 23 Dic 2008, 14:43 #134922

Esto lo he modificado de varios ejemplos que había por la red, es para outlook no sé si te servirá, suerte.

Código: Seleccionar todoSub EnviarCorreo()
    'Es necesario referencia temprana a Outlook Object Library
    Dim OutlookApp As Outlook.Application
    Dim MItem As Outlook.MailItem
    Dim Asunto As String
    Dim DireccionMail As String
    Dim Contenido As String
    Dim NombreArchivo As String
   
    'Ubicación archivo adjunto
'    NombreArchivo = ActiveSheet.Range("RutaCompleta").Value
   
    'Crea el objeto outlook
    Set OutlookApp = New Outlook.Application
       
    Asunto = Range("Asunto").Value
    DireccionMail = ActiveSheet.Range("DireccionMail").Value
    Contenido = ActiveSheet.Range("Contenido").Value
   
    Set MItem = OutlookApp.CreateItem(olMailItem)
    With MItem
        .To = DireccionMail
        .Subject = Asunto
        .Body = Contenido
        .Display
        Application.Wait (Now + TimeValue("00:00:01")) 'Espera 1 segundo
       
        'Para añadir la primera firma que tenga en el outlook
'        SendKeys "^{END}", True
'        SendKeys "%bi~", True
       
        'Para adjunto archivo
'        .Attachments.Add (NombreArchivo)
        .Send
    End With
   
    'Libero memoria
    Set OutlookApp = Nothing
    Set MItem = Nothing
End Sub

[/code]

• 
• 
• 
• 
• 
• 

[Webmaster]

- 26 Dic 2008, 15:30 #135207

Nada wenner, no hay manera, no consigo que se envíe.
Gracias de todos modos.

• 
• 
• 
• 
• 
• 

Instrucciones de participación en los foros
Preguntas frecuentes sobre participación básica
¿Errores, sugerencias?

- 27 Dic 2008, 08:06 #135247

Hombre Antonio, no se como no se te ha ocurrido: pásale privado a Bertrand Russell/Tarantino que de informática sabe un huevo y seguro que te lo resuelve.

• 
• 
• 
• 
• 
• 

"La vida inteligente en la Tierra es un evento que todavía está por llegar" (Stephen Hawking)

- 27 Dic 2008, 11:21 #135252

Hombre Antonio, no se como no se te ha ocurrido: pásale privado a Bertrand Russell/Tarantino que de informática sabe un huevo y seguro que te lo resuelve.

¿estuviste anohe visionando "En tierra peligrosa"? que se ha pegado la sed de sensaciones fuertes....

• 
• 
• 
• 
• 
• 

Ingeniería: Es la profesión que combina el arte y la ciencia con el fin de crear soluciones o alternativas para mejorar una situación.

- 27 Dic 2008, 12:42 #135259

¿estuviste anohe visionando "En tierra peligrosa"? que se ha pegado la sed de sensaciones fuertes....

• 
• 
• 
• 
• 
• 

"La vida inteligente en la Tierra es un evento que todavía está por llegar" (Stephen Hawking)