edv/VERAGAddin
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

VM anfügen: wenn EMail Anhang enthält, werden nun Mail und Anhang ges

Browse Source
This commit is contained in:
d.breimaier
2022-09-28 13:59:06 +02:00
parent 95f0a62c89
commit 26a8cf78f5
2 changed files with 1 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
VERAGAddIn/rbnVERAG.vb
View File

@@ -144,6 +144,7 @@ Public Class AVISO_Mail_Functions
saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
ElseIf pdf_mail = "PDF_DATENSERVER" Then
saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung,, Art)
saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, Art, BezAnhang)
ElseIf pdf_mail = "ONLYMAIL_DATENSERVER" Then
saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung,, Art)
@@ -404,8 +405,6 @@ Public Class AVISO_Mail_Functions
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & AvisoId, "", "", Bezeichnung)
Dim path = DS.uploadDataToDATENSERVER(fi.FullName)
'If AVISO.frmSendungAnhangImport.getFileTypeValid(fi.Extension, typ) Then
' AVISO.frmSendungAnhangImport.saveToDS(AvisoId, Bezeichnung, ATT, Art, typ, ,,, If(SendungsId > 0, SendungsId, Nothing))
Next
End If
Catch ex As Exception