Hallo Miteinander,
habe ein Problem mit *.msg Dateien. Ich möchte in einem Sub den Nutzer ein Verzeichnis angeben lassen, welches nach msg-Dateien durchsucht wird die dann anschließend Versendet werden.

Leider klappt die Zuweisung der MailItems nicht:

Code:

Sub subversand()
Dim message As MailItem
Dim i As Long
Dim verz As String
Excel.Application.ThisWorkbook.Activate

'##Verzeichnis wählen
Const msoFileDialogFolderPicker = 4
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Zielordner für Email-Dateien wählen"
.InitialFileName = "C:\"
.AllowMultiSelect = False
If .Show Then
verz = .SelectedItems(1)
End If
End With
ChDir verz

'##alle msg Dateien heraussuchen
With Excel.Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeMailItem
.Execute
For i = 1 To .FoundFiles.Count
'MsgBox .FoundFiles(i)
Set message = Outlook.GetObject(.FoundFiles(i))
message.Send
Next i

End With
End Sub


Zur Laufzeit erhalte ich dann die Fehlermeldung "Objekterstellung durch ActiveX nicht möglich..."
Woran könnte das liegen bzw. wie könnte man das realisieren?

Vielen Dank für eure Hilfe!