Outlookalternative zu savemessageonsend=false

Sub Outlook_ansteuern()
Dim olApplication As Object
Dim objEMail As Object
Set olApplication = CreateObject("Outlook.Application")
Set objEMail = olApplication.CreateItem(olMailItem)
With objEMail
.To = strEMail
'        .CC =   ***Kopieempfänger
'        .BCC =  ***Blindkopieempfänger
.Subject = strTitel
.Body = "Hallo," & Chr(10) & Chr(10) _
& "die aktuellen Daten entnehmen Sie bitte dem Dateianhang." _
& Chr(10) & Chr(10) _
& "Mit freundlichen Grüßen" _
& Chr(10) _
& "Ihre BD " + strBDName _
& Chr(10) & Chr(10) & Chr(10)
.Attachments.Add verz + "\TEMP\" + strSTAMMNR + ".xls"
.ReadReceiptRequested = False      '***ohne Empfangsbestätigung
'        .SAVEMESSAGEONSEND = False         '***Mail nicht abspeichern
.SEND
End With
Set olApplication = Nothing
Set objEMail = Nothing
End Sub