luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Display an error message when sending a project by mail fails, instead of crashing.

Browse source 
[DEVELOPMENT ENVIRONMENT]
* BUG: Display an error message when sending a project by mail fails, instead of crashing.
This commit is contained in:
Benoît Minisini 2023-03-29 20:46:57 +02:00
parent 2e42435763
commit 1e54fd3863
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
app/src/gambas3/.src/Project.module
View file

@ -5846,7 +5846,8 @@ Public Sub SendMail()
sTemp = File.SetName(sTemp, GetDefaultArchiveBaseName()) & ".tar.gz"
Try Kill sTemp
MakeSourcePackageTo(sTemp)
Desktop.SendMail(Null,,, If(Project.Title, Project.Title, Project.Name),, sTemp)
Try Desktop.SendMail(Null,,, If(Project.Title, Project.Title, Project.Name),, sTemp)
If Error Then FMain.ShowErrorWith(("Unable to send project by mail."))
End