Hi Leute

Stehe mit meinem Projekt etwas an und brauche Hilfe von den Profis...
Ich habe im Word ein Formular in einer Userform erstellt mit welcher mittels Button die Daten aus der Userform in das Worddokument übertragen und das anschliessend via Outlook als Anhang verschickt wird. Soweit klappt alles. Nun wollte ich dem Nutzer die Möglichkeit geben, zusätzliche Anhänge mitzuschicken. Dafür habe ich in der Userform drei Textboxen drin in welche mittels folgendem Code der Pfad zur gewünschten Datei eingetragen wird:
 

Dim varItem As Variant 
Dim strPath As String 
Dim filePicker As FileDialog 

Set filePicker = Application.FileDialog(msoFileDialogFilePicker) 

With filePicker 
'setup File Dialog' 
.AllowMultiSelect = False 
.ButtonName = "Select" 
.InitialView = msoFileDialogViewList 
.Title = "Select File" 
.InitialFileName = "U:\" 

'add filter For all files' 
With .Filters 
.Clear 
.Add "All Files", "*.*" 
End With 
.FilterIndex = 1 

'display file dialog box' 

.Show 

End With If filePicker.SelectedItems.Count > 0 Then 

Dim selectedFile As String 
selectedFile = filePicker.SelectedItems(1) 

txtFile1.Text = selectedFile End If 

Mein Code für das Versenden des Mails mit dem Attachment sieht folgendermassen aus:
 

Dim WsShell 
Dim olapp As Object 
Dim MyFileList(3) As String 
Dim i As Long 

MyFileList(0) = ActiveDocument.FullName 
MyFileList(1) = UserForm2.txtFile1.Text 
MyFileList(2) = UserForm2.txtFile2.Text 
MyFileList(3) = UserForm2.txtFile3.Text 

Set olapp = CreateObject("Outlook.Application")    
With olapp.CreateItem(0)        
.To = " meine@mail.com" 'an        
.CC = "" ' (Optional) Kopie an        
.BCC = "" '(Optional) Blindkopie an"        
.Subject = "Mein Betreff 'Betreff        
.htmlBody = "Hallo Du"          

For i = LBound(MyFileList) To UBound(MyFileList)            
.Attachments.Add MyFileList(i)        
Next i          
.Display      
End With 

Solange der User drei zusätzliche Dateien zum mitsenden auswählt, klappt alles prima. Wenn er aber keine oder nur eine/zwei auswählt, erscheint ein Laufzeitfehler mit der Meldung: "Der Pfad ist nicht vorhanden. Überprüfen Sie den Pfad."

Kann ich das irgendwie umgehen, dass wenn keine Datei ausgewählt wurde das Mail einfach nur mit dem Dokument versendet wird?

Merci für eure Hilfe und Grüsse
Kobejitsu