últimos mensajes de: rdmm

Mostrar Mensajes
Páginas: [1]

1	Programación / Scripting / Re: Exportar múltiples objetos a un archivo html(vbscript)	en: 27 Febrero 2015, 07:41 am
Alguna idea? gracias!

Programación / Scripting / Exportar múltiples objetos a un archivo html(vbscript)

en: 26 Febrero 2015, 10:51 am

Lo que necesito es que en el html se peguen varias tablas, no solo una, y a poder ser poder insertar el texto que yo quiera entre las tablas.
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
 
' Email
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.

3	Programación / Programación Visual Basic / Re: Ayuda vbscript: envío de archivos ftps	en: 9 Enero 2015, 08:26 am
Gracias. A ver si alguien más me puede ayudar. Saludos.

4	Programación / Programación Visual Basic / Re: Ayuda vbscript: envío de archivos ftps	en: 8 Enero 2015, 15:08 pm
Hola, en primer lugar muchas gracias por tu ayuda pero no me funciona lo que me has puesto. He probado también con: strFTP = "ftps://" & FTPUser & ":" & FTPPass & "@" & FTPHost & ":990" & FTPDir POniendo ftps en vez de fpt pero tampoco ha funcionado.

Programación / Programación Visual Basic / Ayuda vbscript: envío de archivos ftps

en: 8 Enero 2015, 09:57 am

Hola,
tengo un script hecho para mandar archivos por ftp y me funciona perfectamente.

Es este:

Código:

Código:

'****************FTP Upload
'Upload a file/folder to an FTP server


Set oShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
 MiMes=Month(Now)
strDate2=ucase(MonthName(MiMes))
strDate = Day(Date()) &"_"&   ucase(MonthName(MiMes))
'Path to file or folder to upload
path = "C:\archivos\archivoftp_"&strDate&".csv"

FTPUpload1


Sub FTPUpload1
if Time()>TimeValue("04:00:00") and Time()<TimeValue("04:45:00")Then
 MiMes=Month(Now)
strDate2=ucase(MonthName(MiMes))
strDate = Day(Date()) &"_"&   ucase(MonthName(MiMes))

On Error Resume Next

'Copy Options: 16 = Yes to All
Const copyType = 16

'FTP Wait Time in ms
waitTime = 80000
 
FTPUser = "user"
FTPPass = "pass"
FTPHost = "ftphost"
FTPDir = "/archivos"

strFTP = "ftp://" & FTPUser & ":" & FTPPass & "@" & FTPHost & FTPDir
Set objFTP = oShell.NameSpace(strFTP)

'Make new folder on FTP site
'objFTP.NewFolder "FTP Backup"


'Upload single file       
If objFSO.FileExists(path) Then

Set objFile = objFSO.getFile(path)
strParent = objFile.ParentFolder
Set objFolder = oShell.NameSpace(strParent)

Set objItem = objFolder.ParseName(objFile.Name)

Wscript.Echo "Uploading file " & objItem.Name & " to " & strFTP
 objFTP.CopyHere objItem, copyType


End If


'Upload all files in folder
If objFSO.FolderExists(path) Then

'Code below can be used to upload entire folder
Set objFolder = oShell.NameSpace(path)

Wscript.Echo "Uploading folder " & path & " to " & strFTP
objFTP.CopyHere objFolder.Items, copyType

End If


If Err.Number <> 0 Then
Wscript.Echo "Error: " & Err.Description
End If

'Wait for upload
WScript.Sleep waitTime
End if
End Sub

Ahora necesito hacerlo para mandar archivos por ftps tcp/990 pero todavía no lo he conseguido, a ver si recibo una ayudita!

Qué tengo que cambiar de este script para poder subir por ftps tcp/990 ?
gracias

Páginas: [1]