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!
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.