Datei per Outlook versenden
30.08.2019 14:58:38
Matthias
ich möchte die aktuell verwendete Datei als Anhnag mit Outlook versenden.
Dazu folgenden VBA-Code:
Sub Mail_mit_Anhang_Abw()
Dim aws As String
Dim olApp As Object
Dim olOldBody As String
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.GetInspector.Display
olOldBody = .htmlBody
.Recipients.Add Sheets("Mail").Range("B1").Value
.Recipients.Add Sheets("Mail").Range("B2").Value
.Recipients.Add Sheets("Mail").Range("B3").Value
.Recipients.Add Sheets("Mail").Range("B4").Value
.Subject = "Betreff - Stand " & Date
.Attachments.Add Application.ActiveWorkbook.FullName
End With
End Sub
Mein Problem ist, dass der Mailversand nur funktioniert wenn Outlook nicht gestartet wurde.
Ist Outlook bereits geöffnet gibt's ne Fehlermeldung:
"Laufzeitfehler '429': Objekterstellung durch ActivX-Komponenete nicht möglich"
Nach Klick auf "Debuggen" wird die Zeile " Set olApp = CreateObject("Outlook.Application") " farbig hinterlegt.
Wo liegt der Fehler?
Danke.
Gruß
Matthias
Anzeige