AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Messaging/Email: Add Convert_ToEml

Browse Source
This commit is contained in:
Jonathan Jenne 2021-08-23 11:10:42 +02:00
parent 1f5e52db7b
commit 1833d07397
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Modules.Messaging/Email2.vb
View File

@ -391,14 +391,18 @@ Public Class Email2
End Try End Try
End Function End Function
Private Function MaybeConvert_MsgToEml(pEmailFileName As String) As String Public Function Convert_ToEml(pFilePath As String) As String
Dim oInfo As New FileInfo(pEmailFileName) Return MaybeConvert_MsgToEml(pFilePath)
End Function
Private Function MaybeConvert_MsgToEml(pEmailFilePath As String) As String
Dim oInfo As New FileInfo(pEmailFilePath)
If oInfo.Extension.ToUpper = ".EML" Then If oInfo.Extension.ToUpper = ".EML" Then
Return pEmailFileName Return pEmailFilePath
ElseIf oInfo.Extension.ToUpper = ".MSG" Then ElseIf oInfo.Extension.ToUpper = ".MSG" Then
Return DoConvertMsgToEmlFile(pEmailFileName) Return DoConvertMsgToEmlFile(pEmailFilePath)
Else Else
Return Nothing Return Nothing