Fakturierung, Email senden.

This commit is contained in:
2025-03-05 08:22:22 +01:00
parent 969e522efc
commit df950ab35e
6 changed files with 127 additions and 130 deletions

View File

@@ -1161,12 +1161,9 @@ Public Class frmFormulare
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
MsgBox(VERAG_PROG_ALLGEMEIN.cProgramFunctions.printdefaultOutlookAccount(outl))
'MsgBox(VERAG_PROG_ALLGEMEIN.cProgramFunctions.printdefaultOutlookAccount(outl))
'Dim StandAcc = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getdefaultOutlookAccount(outl)
Mail.SendUsingAccount = outl.Session.DefaultAccount
'Mail.SendUsingAccount = outl.Session.DefaultAccount
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then