Lotus

2 envíos / 0 nuevos
Último envío
arguerof
Imagen de arguerof
Offline
última acción: Hace 11 años 7 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 20/04/2009 - 20:30
Puntos: 660
Lotus

Hola Amigo.!

tengo un codigo para enviar por mail un formulario y resulta que alguno tienen Lotus (predeterminado para mail) y dicho cogido no les funciona.Private Sub mail_Click()
a = Cells(1, 1)
Range(Cells(7, 4), Cells(7 + a, 10)).Select
Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
   Application.Dialogs(xlDialogSendMail).Show
   ActiveWindow.Close
   Cells(4, 2).Select
   
  
End Sub
 

 

Gracias!

 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 16 mins 15 segs
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10900
Re: Lotus

El cuadro de diálogo con Application.Dialogs(xlDialogSendMail).Show debería llamar al gestor de correo por defecto, pero parece que llama al Outlook, que en el  caso delequipo con Lotus lo mismo ni está instalado en el equipo ¿es este el error que se produce?

mira aquí a ver si te da alguna pista, aunque no sé...

http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/6970707b-a622-41d4-ada9-ecf8438a1da8

http://www.necesitomas.com/node/207
http://www.rondebruin.nl/cdo.htm

un saludo


------
Ya sé Excel, pero necesito más
La potencia sin control no sirve de nada.
agradecimientos

 

------
Ya sé Excel, pero necesito más.