AW: .MultiSelect | 1 - frmMultiSelectMulti (owT)
14.12.2010 11:49:35
Leitz
Hallo!
Danke für die Hilfe! Funktioniert aber nicht.
Ich kann dann zwar mehrere Dateinen zur Auswahl markieren aber dann nicht weiterarbeiten. Habe folgenden Code
Private Sub CommandButton5_Click() 'PDF Versand
If frmVerwaltungMI.ListBox3.ListIndex = -1 Then
MsgBox "Es wurde keine Datei ausgewählt!", vbInformation
Exit Sub
End If
Dim intMsgPDF As Integer
Dim strPfadPDF As String
Dim strPfadGesamtPDF As String
Dim strOrdnerArchivRef As String
Dim strOrdnerPDFRef As String
Dim strDateiPDF As String
Dim strEmailAdressePDF As String
Dim strEmailAnredePDF As String
strOrdnerArchivRef = Workbooks(strNameSteuerung).Sheets("INI").[B54]
strOrdnerPDFRef = Workbooks(strNameSteuerung).Sheets("INI").[B55]
strEmailAdressePDF = Workbooks(strNameSteuerung).Sheets("INI").[B63]
strEmailAnredePDF = Workbooks(strNameSteuerung).Sheets("INI").[B64]
strPfadPDF = Workbooks(strNameSteuerung).Sheets("INI").[B11] & Workbooks(strNameSteuerung). _
Sheets("INI").[B55]
strPfadGesamtPDF = (strLaufwerk & strPfadPDF) + frmVerwaltungMI.ListBox3
strDateiPDF = frmVerwaltungMI.ListBox3
intMsgPDF = MsgBox("Soll die ausgewählte Datei per Mail gesendet werden? : " & strDateiPDF & _
" ", vbYesNo + vbQuestion)
If intMsgPDF = vbNo Then
Exit Sub
End If
If intMsgPDF = vbYes Then
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = strEmailAdressePDF
.Subject = "Erledigte Schärfaufträge Fa. Leitz Salzburg" ' "Betreffzeile _
Header"
.attachments.Add strPfadGesamtPDF
.Body = strEmailAnredePDF '& vbCrLf & "Anbei" ' "Erste Textzeile"
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'.Send
End With
'OutApp.Quit
'Set OutApp = Nothing
'Set Nachricht = Nothing
End If
End Sub
Der frmVerwaltungMI.ListBox3.ListIndex ist dann immer Null und ich bekomme einen Fehler!
Bitte um Hilfe
Gruß
Leitz G