Spedbucht, Fakt, cbam, bearbeiten, etc.

SDL/mdm/usrCntlMDMAuswertungen.vb

@@ -85,10 +85,27 @@ Public Class usrCntlMDMAuswertungen
         Folder = NSpace.GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderSentMail)
         EItem = Folder.Items.Add(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)
 
-        EItem.To = "a.rissbacher@woelfl-trans.at"
-        EItem.Subject = "Wölfl Rechnungen/Gutschriften"
+        EItem.To = "a.rissbacher@rmc-service.com"
+        EItem.CC = "juricevic@verag.ag"
+        EItem.Subject = "RMC Rechnungen/Gutschriften"
 
-        EItem.Attachments.Add(path, OlAttachmentType.olByValue, 1, "WOELFL.csv ")
+
+        Dim accountToSent = "mmdabrechnung@verag.ag" 'bewusst falsch geschrieben!!!!
+
+
+        If accountToSent <> "" Then
+            If outApp.Session.Accounts.Count > 0 Then
+                For Each oAccount In outApp.Session.Accounts
+                    If oAccount.SmtpAddress = accountToSent Then
+                        EItem.SendUsingAccount = oAccount
+                        Exit For
+                    End If
+                Next
+            End If
+        End If
+
+
+        EItem.Attachments.Add(path, OlAttachmentType.olByValue, 1, "RMC.csv ")
 
         EItem.Display(False) 'öffnet das 'neue E-Mail-Form' von Outlook