VBA Code Multiselect verursacht Laufzeitfehler 13
22.06.2018 10:32:45
Nils
ich habe eine kurze Frage zu folgendem Code.
Sobald ich die Multiselect Auswahl auf True setze und mehrere Dateien anhängen will, bekomme ich einen Laufzeitfehler 13 'Typen unverträglich' ausgegeben.
Ich weiß wirklich nicht weiter, habe alles mir Bekannte versucht und auch im Internet nichts darüber finden können. Hat hier jemand einen Tipp oder eine Lösung parat?
Vielen Dank schon einmal und ein schönes Wochenende.
PS: Ort der Fehlermeldung ist mit einem Komm. versehen.
Sub sendeMail()
Dim PDF As String
Dim MyOutApp As Object, MyMessage As Object
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\NAME " & Format(Date - 1, "YYYY_MM_DD") & ".pdf", Quality:= _
xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=False
Dateien = Application.GetOpenFilename(FileFilter:="All Files,*.*", _
FilterIndex:=1, _
Title:="Datei wählen", _
ButtonText:="Anhängen", _
MultiSelect:=True)
If Dateien = True Then 'Hier entsteht ein Laufzeitfehler 13
'wenn Multiselect = True;
'Typen nicht verträglich' die Einzelauswahl geht
PDF = ThisWorkbook.Path & "\NAME " & Format(Date - 1, "YYYY_MM_DD") & ".pdf"
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.GetInspector.Display
olOldBody = .HTMLbody
.To = "Mail"
.CC = "Mail"
.Subject = "Topic"
.HTMLbody = "Inhalt" & olOldBody
.Attachments.Add PDF
.Display
Kill PDF
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End If
End Sub