Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

*.msg Dateien mit Excel verschicken





Frage

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!

Antwort von