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
|