I know it's incredible, but i have try during an hour before write this topic
I have change several time the zip file, with image or text for be sure the problem is not with the ZIP file
If i use this code and the ZIP extension, the mail received have no attachment
If i just delete the "p" of ZIP so sending a "File.zi" that's works, the mail come with the "File.zi" attachment, and it's exactely the same thing with another extension, or even without extension...that's works
Apparently they are a problem only if the extension is ZIP
I have try with the 5.20, 5.40, 5.50 and it's the same thing.
Code: Select all
InitNetwork()
Mail$ = "xxxxxx@xxxx.fr"
Smtp$ = "smtp.XXX.fr"
If CreateMail(0, Mail$, "Hello !")
SetMailBody(0, "Hello !" + #CRLF$ + "This is a multi-" + #CRLF$ + "line mail !")
AddMailAttachment(0, "Geebee !" , "C:\Temp\DS000001.zip") ; <===== not works because ZIP extension, but works with ".zi" extension for example
; Change the recipients to real one
AddMailRecipient(0, Mail$, #PB_Mail_To)
; Set the SMTP server to use
Result = SendMail(0, Smtp$, 25)
Repeat
Progress = MailProgress(0)
Delay(300)
Until Progress = #PB_Mail_Finished Or Progress = #PB_Mail_Error
If Progress = #PB_Mail_Finished
MessageRequester("Information", "Mail correctly sent !")
Else
MessageRequester("Error", "Can't sent the mail !")
EndIf
EndIf
It's a simple crappy extension filter. 
