Drag and drop + CDO = che stranezza!

di il
3 risposte

Drag and drop + CDO = che stranezza!

Salve a tutti.

Rubacchiando qua e là, ho creato uno script per trasmettere come allegato, a un indirizzo mail prefissato, il file che trascino sopra lo script stesso. Il tutto senza aprire il client di posta.

Lo script trasmette il file regolarmente ma la stranezza di cui parlo nel titolo è che:
- se è un file di testo, all'arrivo lo apro regolarmente come l'originale
- se è un file di Word, quando lo apro Word mi dice che è corrotto
- se è un pdf, quando lo apro vedo solo una pagina bianca.

Spero che qualcuno possa aiutarmi.

Grazie per l'attenzione.

fabio
Dim WShell, FSO, FileData
Set WShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
FileData = FSO.GetFile(wscript.arguments.item(0))
Set FileInfo = FSO.GetFile(FileData)

' Obtain DATA PATH of file dropped
FilePath = (FileData)
'If FSO.FileExists(FilePath)then ' Verify file exist
'   FSO.CopyFile (FilePath), "\\Server\printer"
'   FSo.DeleteFile (FilePath)
'End If

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1    ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
            = "mail.mereghettisnc.it"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Update
End With

With iMsg
        Set .Configuration = iConf
        .To = "name@todomain.com"
        .From = "name@fromdomain.com"
	     .AddAttachment (FilePath)
        .Send
End With

3 Risposte

Devi accedere o registrarti per scrivere nel forum
3 risposte