Unable to detect zip file

[ur]

I got a UDF to zip the files from below link.

With this I am able to create a zip file but the post processing of zip file creation I am checking the zip file exists or not, but it is giving the message as file not found.

 

Any sugestions??

#include "Zip.au3"

ZipLogs()

Func ZipLogs()
    $ResultsFolder = @ScriptDir & "\Results"
    $ResultsDestFolder = @ScriptDir & "\Results_Archive"
    $zipFile = $ResultsDestFolder & "\Results_"&TodayDateTime()&".zip"

    DirCreate($ResultsDestFolder)

    Dim $Zip = _Zip_Create($zipFile) ;Create The Zip File. Returns a Handle to the zip File
    _Zip_AddFolderContents($Zip, $ResultsFolder) ;Add a folder's content in the zip file

    if FileExists(@ScriptDir&"\Logging.log") then
        _Zip_AddFile($Zip,@ScriptDir&"\Logging.log")
        FileDelete(@ScriptDir&"\Logging.log")
    EndIf

    if FileExists(@ScriptDir&"\RemoteExecution_Log.txt") then
        _Zip_AddFile($Zip,@ScriptDir&"\RemoteExecution_Log.txt")
        FileDelete(@ScriptDir&"\RemoteExecution_Log.txt")
    EndIf

    if FileExists($zipFile) then
        DirRemove($ResultsFolder,$DIR_REMOVE)
    Else
        MsgBox(0,"","Zip file not found")
    EndIf

    return $zipFile
EndFunc

 

Zip.au3

[water]

The _ZIP* functions set macro @error when there was a problem. So you should check this macro after having called a _ZIP* function.

[ur]

@water

Sorry the info is not correct earlier,

the file is able to detect with file exists.

But when I pass that file name to the below code.

Dim $zip_file = ZipLogs()

if FileExists($zip_file) then
    MsgBox(0,"",$zip_file)
    SendAutoMail("AutoIT:Install Testing Process","Testing of Installers completed","PFA: attached log files",$zip_file)
Else
    SendAutoMail("AutoIT:Install Testing Process","Testing of Installers completed","Log files not found to attach")
EndIf

It is able to go the first branch of code as I am able to get the message prompt.

But I am not getting any email.

SendMail.au3

I am able to get the mail if I pass some other attachments for testing.

Can you suggest for this.

[water]

What I posted above is true for SendAutoMail as well. Check @error or the return value.

[ur]

11 minutes ago, water said:

What I posted above is true for SendAutoMail as well. Check @error or the return value.

I am getting the @error value as 2.

And the 2 is at the codeblock

$objEmail.Send
    If @error Then
        SetError(2)
        Return $oMyRet[1]
    EndIf

Any idea??How to resolve this.??

[water]

Please search the forum for _INetSmtpMailCom. IIRC this has beend discussed multiple times.

Edited February 8, 2017 by water

[ur]

@water , YeahI tried many links but no resolution for this.

 

THe error I am getting at the send method.

[water]

Add a COM error handler to your script to get more detailed error information. Easiest way is to use the Debug UDF:

#include <Debug.au3>
_DebugSetup()
_DebugCOMError()

... Your script goes here ...

 

[ur]

When I tried to pass the zip file to the mail function after the zipping is done, it is giving return code 2.

But if I try again as a separate au3 file by sending the zip file as argument later, it is sending.

So I tried whether file is in use or not by below code but I am geting the second message stating that file is not in use.

#include "SendMail.au3"
$f = @TempDir&"\logs.zip"

$filename = $f
    if FileInUse($filename) Then
        MsgBox(0, "", "File is in use")
    Else
        MsgBox(0, "", "Not in use - go nuts")
        SendAutoMail("AutoIT:Install Testing Process","Testing of Installers completed","PFA: attached log files",$f)
    EndIf

;SendAutoMail("AutoIT:Install Testing Process","Got the Installers","Will intimate once the process is completed",$f)
;SendAutoMail("AutoIT:Install Testing Process","Testing of Installers completed","PFA: attached log files",$f)

Func FileInUse($filename)
    $handle = FileOpen($filename, 1)

    $result = False
    if $handle = -1 then $result = True

    FileClose($handle)

    return $result
EndFunc

Any idea??

[ur]

@water , YeahI tried many links but no resolution for this.

 

I am getting below error while sending mail..

---------------------------
sendmail error: 2
---------------------------
The message could not be sent to the SMTP server. The transport error code was 0x80040217. The server response was not available
---------------------------
OK  
---------------------------
 

I have already enabled less secure app setting in gmail.

[water]

Searching the web for "SMTP transport error code 0x80040217" returns a lot of hits.
One names a wrong username/password as the culprit.
http://stackoverflow.com/questions/9157087/getting-error-transport-error-code-was-0x80040217-while-sending-email-in-asp-net

[ur]

But I am able to send mails at the start of the program...Once I process everything at the end  am getting this error for sending mail at process completion.

[water]

Can you verify that all variables still have the correct value before sending?
I once re-used a variable for something different and hence a function call crashed.