simplify saving attachments

This commit is contained in:
Jonathan Jenne 2021-08-23 14:14:06 +02:00
parent 7f3a73afd3
commit b4c9b4f0b8

View File

@ -29,11 +29,8 @@ Public Class ClassFilehandle
oResult = MessageBox.Show(oMessage, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
If oResult = MsgBoxResult.Yes Then
If pHandletype.StartsWith("|FW") Then
Return Save_EmailAndAttachmentsToDisk(pFilename, True)
Else
Return Save_EmailAndAttachmentsToDisk(pFilename)
End If
Dim oIsFolderWatch = pHandletype.StartsWith("|FW")
Return Save_EmailAndAttachmentsToDisk(pFilename, oIsFolderWatch)
End If
End If
End If