De momento solo consigo poner una tabla , la CH80, pero necesito unas 4 o 5, la 80,75,76...
Gracias!!!
MI CODIGO:
Código
'// **************************************************************** '// Enviador Mails Pegados Cuerpo '// **************************************************************** sub SendMail if Time()>TimeValue("10:15:00") and Time()<TimeValue("21:30:00")Then ' Object creation Set objMsg = CreateObject("CDO.Message") Set msgConf = CreateObject("CDO.Configuration") strDate = CDate(Date) set cs = ActiveDocument.GetSheetObject("CH80") cs.ExportHtml "C:\Directory\Pruebas\informe.html" objMsg.CreateMHTMLBody "file://C:\Directory\Pruebas\informe.html" ' Server Configuration msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "server***********" msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mimai********l" msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pass******" msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 msgConf.Fields.Update objMsg.To = "mmail***********" objMsg.From = "mail**********.com" objMsg.Subject = "Reporte " & Now() objMsg.Sender = "Reportes" Set objMsg.Configuration = msgConf ' Send objMsg.Send ' Clear Set objMsg = nothing Set msgConf = nothing end if end sub
[MOD]: Utiliza la etiquetas GeShi para insertar código, lee las normas del foro de programación.