Pfadangabe im Code wird beanstandet
15.07.2004 14:53:56
Peter
wenn ich beim untenstehenden code statt des Pfades ThisWorkbook eingebe, funzt der Code.....aber ich will eben nicht das aktuelle Workbook versenden, sondern das im Pfad angegebene....wo liegt mein Fehler?
Sub WorkbookMailen()
Dim OutApp, Nachricht As Object
Dim Datei As String
Set OutApp = CreateObject("Outlook.Application")
InitializeOutlook = True
Set wkBk = c:\ABC\abcKunden\abckunden.xls
Datei = wkBk.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "pfrieml@blume.de"
.Subject = "Kundendatei Stand: " & Date
.Attachments.Add Datei
.Body = "Vertrauliche Information" & Chr(10) & Chr(10) & "Sehr geehrter Herr
Pfrieml," & Chr(10) & Chr(10) & "Wie vereinbart, erhalten Sie von mir die
Datei:" & Datei & Chr(10) & "Meine Ident-Nr: " & Sheets("Bearbeitung").Range("B60") & Chr(10) & Chr(10)
& "Mit freundlichen Grüßen"
.display
On Error Resume Next
.send
End With
OutApp.Quit
Set OutApp = Nothing
End Sub
Danke für Hilfe
Peter S.