Hallo Community,
vieleicht könnt ihr mir helfen.
Ich habe ein Word-Dokument welches ich per Klick auf den Button auf den Deskop als PDF speichern und gleichzeitig dieses PDF an eine bestimmte Mailadresse senden. Nun ist es so, dass das Dokument von verschiedenen Leuten und Rechnern benutzt wird und bei jedem dann diese Funktion ausgeführt werden soll.
Ich habe es soweit hinbekommen, dass es per PDF gespeichert wird, nur habe ich beim Auslesen des Usernamens, wo das PDF auf dem Desktop gespeichert ist Probleme.
Hier mal mein Code:
Private Sub CommandButton1_Click()
' Dokument speichern
ActiveDocument.ExportAsFixedFormat Outputfilename:=Environ("USERPROFILE") & "\Desktop\" & "Bestellung.pdf", _
ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=True, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
.Recipients.Add "XY@XY.de"
'Betreff
.Subject = "Neue Bestellung"
'Nachricht
.Body = "Bitte bestellen." & Chr(13) & _
"Viele Grüße" & Chr(13) & Chr(13)
'Lesebestätigung aus
.ReadReceiptRequested = True
'Dateianhang
.Attachments.Add = "Environ("Username")" & "\Desktop\" & "Bestellung.pdf"
.Send
End With
Set olApp = Nothing
End Sub
Vielen Dank
|