Ich habe es doch mit einem seperaten Button mit eigenen Skript gemacht.
Sub Attachment_Add()
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Dim fd As Office.FileDialog
Set fd = xlApp.Application.FileDialog(msoFileDialogFilePicker)
Dim selectedItem As Variant
' Dialog öffnen und in aktuelle Mail einfügen
Dim newMail As MailItem, oInspector As Inspector
Dim Atts As Outlook.Attachments
Set oInspector = Application.ActiveInspector
If oInspector Is Nothing Then
' Item beim Antworten/Weiterleiten
Set newMail = Application.ActiveExplorer.ActiveInlineResponse
Else
' Item beim Schreiben einer neuen E-Mail
Set newMail = oInspector.CurrentItem
End If
If fd.Show = -1 Then
For Each selectedItem In fd.SelectedItems
If (StrComp(Split(selectedItem, "\")(0), "X:") = 0) Then
MsgBox ("Anhänge vom diesem LW nicht versenden")
Else
newMail.Attachments.Add (selectedItem)
End If
Next
End If
Set fd = Nothing
xlApp.Quit
Set xlApp = Nothing
End Sub
Soweit klappt es ganz gut. Nur gibt es da ab und zu ein Problem. Teilweise wird der Öffnen-Dialog irgendwo im Hintergrund geöffnet und da das Outlook-Fenster gesperrt ist, kommt man nur über die Schaltfläche "Desktop anzeigen" an den Öffnen-Dialog ran. Manchmal wird er aber auch korrekt im Vordergrund geöffnet. Ich weiß nicht so richtig, was die Ursache ist, damit es mal so und mal so passiert.
Angeblich geht es unter Outlook auch nur mit dem Excel-FileDialog.
|