AW: Userform mit Dateiauswahl per Checkbox
11.01.2018 07:59:22
Kai
Hallo Chris,
vielen Dank für deine Idee. Ich hab jedoch noch Probleme beim Einbau des Codes.
Hier kommt die Fehlermeldung, dass der Verweis nicht ausreichend definiert ist:
.Attachments.Add ar(i - 1)
Hier der genutzte Code:
Private Sub CommandButton1_Click()
Dim objOutlook As Object
Dim objMail As Object
Dim i As Integer, ar As Variant
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
ar = Array("C:\Musterpfad\Test1.txt", "C:\Musterpfad\Test2.txt", "C:\Musterpfad\Test3.txt")
For i = 1 To 3
If Controls("CheckBox" & i) Then
.Attachments.Add ar(i - 1)
End If
Next i
With objMail
'.To = "deinname@deinedomain.de"
.Subject = "Willkommen in Musterhausen!"
.Body = ActiveSheet.TextBox1.Text
'.Body = "Sehr geehrter Kollegin, sehr geehrter Kollege, " & Chr(13) _
& "Ich heiße dich Herzlich Willkommen in Musterhausen! " _
'& TextBox1.Text & Chr(13) _
'& ListBox1.Text& Chr(13) _
& "Anbei erhälst du alle nötigen Unterlagen/Anträge, damit.... " _
& "Mit freundlichen Grüßen " & Chr(13)
.Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend _
manuell vom User!
'.Attachments.Add "C:\Musterpfad\Test.txt"
'.Attachments.Add "C:/Beispiel_2.xlsx"
End With
End Sub
Grüße Kai