Makro versucht Outlook 2016 zu öffnen, ich nutze bereit 365
03.06.2024 11:46:29
Michael
vor vielen Jahren hatte mir das Forum mit dem unten angefügten Makro weiter geholfen. Das VBA versendet eine E-Mail bei Ausführung. Nun möchte ich mein AG davon überzeugen, mir eine Weiterbildung in VBA zu finanzieren und wollte ihm dies als Beispiel zukommen lassen.
Da Problem ist allerdings, dass das VBA versucht Outlook 2016 zu öffnen, wir nutzenaber Outlook 365. Kann man das Makro dahingehend ändern, oder ist alles richtig?
Sub ExcelDateiSenden()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
AWS = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "person1@test.com"
.cc = "person2@test.com"
.Subject = "Zeigen was ein Makro kann"
.attachments.Add AWS
.Body = "Hallo Person2," & vbCrLf & "ein Makro kann Arbeitabläufe vereinfachen" & vbCrLf & "" & vbCrLf & "Liebe Grüße Person2"
.Send
End With
'Outlook schliessen
'OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
VG Micha
Anzeige