AW: Datei suchen, kopieren, einfügen
22.10.2008 23:42:00
Bruno
Guten Abend Jürgen
Dein Code funktioniert nach meinen Vorstellungen, vielen Dank für deine Unterstützung. Ich habe ihn in ein bereits bestehendes (von meinem Vorgänger übernommenes) Makro eingebaut (JuengstesPDFkopieren):
Public Sub ToolbarEMailIt()
Dim d As String
Dim i As Integer
Dim r As Integer
On Error GoTo ToolbarEMailIt_Error
DoScanSheets
Application.Goto "EMail"
JuengstesPDFkopieren
d = Trim$(ActiveCell.Value)
If Right$(d, 1) "\" Then d = d + "\"
ActiveWorkbook.SaveCopyAs d + ActiveWorkbook.Name
For i = LBound(PrDoc) To UBound(PrDoc)
If PrDoc(i) "" Then
If Dir$(PrDoc(i)) "" Then
FileCopy PrDoc(i), d + ExtractFileName(PrDoc(i))
Else
PrDoc(i) = ""
MsgBox "Zeichnungsdatei " & PrDoc(i) & " nicht gefunden", vbExclamation, "Meldung"
End If
End If
Next
r = MsgBox("Devis für eMail-Versand zusammenstellen", vbQuestion + vbYesNo, "Nachfrage:")
If r = vbYes Then OutLookMail d + ActiveWorkbook.Name, PrDoc
ToolbarEMailIt_Exit:
Exit Sub
ToolbarEMailIt_Error:
MsgBox Error$
Resume ToolbarEMailIt_Exit
End Sub
Allerdings werde ich die (jetzt durch das PDF ersetzte) bisher versandte Excelmappe nicht los, sie wird mit vorstehender Prozedur generiert und muss nun noch manuell in Outlook gelöscht werden. Kann der bestehende Code eventuell so modifiziert werden, dass die aktive Mappe nicht an Outlook und den Email-Ordner übergeben wird, sondern nur die als PDF konvertierte Mappe (letztere befindet sich im Verzeichnis «PFD_Devis») und die zugehörigen Zeichnungen im PDF-Format (aus dem Verzeichnis «Zeichnungen»)?
Gruss, Bruno