simplify saving attachments
This commit is contained in:
parent
7f3a73afd3
commit
b4c9b4f0b8
@ -29,11 +29,8 @@ Public Class ClassFilehandle
|
|||||||
oResult = MessageBox.Show(oMessage, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
|
oResult = MessageBox.Show(oMessage, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
|
||||||
|
|
||||||
If oResult = MsgBoxResult.Yes Then
|
If oResult = MsgBoxResult.Yes Then
|
||||||
If pHandletype.StartsWith("|FW") Then
|
Dim oIsFolderWatch = pHandletype.StartsWith("|FW")
|
||||||
Return Save_EmailAndAttachmentsToDisk(pFilename, True)
|
Return Save_EmailAndAttachmentsToDisk(pFilename, oIsFolderWatch)
|
||||||
Else
|
|
||||||
Return Save_EmailAndAttachmentsToDisk(pFilename)
|
|
||||||
End If
|
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user