Liebe Mitglieder,
folgenden Code habe ich mir zusammengebastelt mit Quellen aus Netz und er klappt prima, obwohl ich von diesem Outlook Zeug nicht wirklich viel Ahnung habe. Was fehlt ist die Signatur, welche eingefügt werden soll. Der Code wird von verschiedenen Sachbearbeitern verwendet, also es soll immer diejenige Signatur mit rein.
Danke für die Unterstützung

Sub MailAccountLöschen()

'Variablen für die Mail
Dim strZiel As String
Dim strBetreff As String
Dim strNachricht As String
'--------------------------------------

Dim Nachname As String
Nachname = frmMailKonto.txtName.Value

Dim Vorname As String
Vorname = frmMailKonto.txtVorname.Value

Dim Grund As String
Grund = frmMailKonto.txtGrund.Value 'also Kündigung etc

Dim Austritt As String
Austritt = frmMailKonto.txtAustritt.Value

Dim Temporär As String
Temporär = "AD Gruppe AzureLizenz-M365-Office365 ist zu entfernen"

Dim ToDo As String
ToDo = frmMailKonto.txtToDo.Value
Dim O365 As String
O365 = frmMailKonto.txtOfficeLiz.Value

If Grund = "MA temporär nicht im Unternehmen" Then
O365 = Temporär 'Lizenzzuweisung aufheben, Account bleibt bestehen
Else: O365 = frmMailKonto.txtOfficeLiz.Value

End If

'Variablen belegen

strZiel = "testmail@Test.de"

strBetreff = "Konto löschen/deaktivieren für: " & Nachname & " " & Vorname & " " & "zum " & Austritt

strNachricht = "Bitte folgenden MA Account bearbeiten: " & vbCrLf _
& "Nachname: " & Nachname & vbCrLf _
& "Vorname: " & Vorname & vbCrLf _
& "Der " & ToDo & vbCrLf & vbCrLf _
& "Austrittsgrund: " & Grund & vbCrLf & vbCrLf _
& "Für die Verwaltung der Office Lizenz gilt folgendes: " & vbCrLf _
& O365 & vbCrLf & vbCrLf _
& "Vielen Dank"

'Funktion zum Senden der E-Mail aufrufen

If MailAustrittSenden(strZiel, strBetreff, , strNachricht) = True Then
MsgBox "Erstellung der E-Mail erfolgreich"
' Else
' MsgBox "Erstellung der E-Mail fehlgeschlagen!"
End If



End Sub

Function MailAustrittSenden(strZiel As String, strBetreff As String, Optional strCC As String, Optional strNachricht As String) As Boolean

Dim outApp As Outlook.Application
Dim OutEmail As Outlook.MailItem
Set outApp = New Outlook.Application
Set OutEmail = outApp.CreateItem(olMailItem)
On Error Resume Next

With OutEmail
.To = strZiel
.CC = ""
.Subject = strBetreff
.Body = strNachricht
' .Attachments.Add ActiveWorkbook.FullName
'Verwenden Sie send, um sofort zu senden oder display, um auf dem Bildschirm anzuzeigen
.Display 'oder .Send
End With

'Objekte aufräumen
Set OutEmail = Nothing
Set outApp = Nothing
End Function