|
Hallo zusammen,
ich bin leider wie so viele hier ein blutiger Anfänger was VBA betrifft.
Trotz Stundenlangem googlen könnte ich aber keine Lösung zu meinem Problem finden.
Zum Problem: Ich habe ein Word Dokument dass über eine Userform befüllt wird.
Das Dokument soll per Knopfdruck gespeichert werden, und eine neue Email aufrufen in der der Link zur Datei ist.
Bissher habe ich folgendes:
Dim Pfad, Datei
Pfad = "C:\Temp\"
Datei = ActiveDocument.Bookmarks("Materialnummer").Range.Text & "-" & _
ActiveDocument.Bookmarks("Fertigungsauftrag").Range.Text & ".doc"
ActiveDocument.SaveAs Pfad & Datei
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(olMailItem)
With objMail
.to = ""
.Subject = "Interne Fehlermeldung"
.Body = "Die Fehlermeldung ist im Anhang"
.Attachments.Add ActiveDocument.FullName
.Display
Hier wird alerdings die Datei angehängt. Ich hätte aber gerne nur einen Link zur Datei in der Mail.
Vorab schonmal vielen Dank für Euere hilfe!
|