Speicherort
23.02.2017 11:10:14
Frank
ich habe folgendes Makro, welches auch perfekt abläuft.
Sub Bestätigung_per_Mail()
Range("A2:I53").Select
ActiveSheet.PageSetup.PrintArea = "$A$2:$I$53"
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A2").Select
Dim mepdf As String
Dim rngPDF As Range
Dim MyOutApp As Object, MyMessage As Object
Dim verteiler As String
Dim signature As String
Sheets("Tabelle1").Select
Set rngPDF = ActiveSheet.Range("A2:i55")
verteiler = Cells(1, 3)
mepdf = ThisWorkbook.Path & "\Bestätigung" & Format(Now, " YYYY-MM-DD hhmmss") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=mepdf, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = verteiler
.Subject = "Bestätigung" '& Format(Date, " YYYY-MM-DD") 'Betreffzeile
.Body = "Sehr geehrte Damen und Herren." & vbCr _
& vbCr _
& "Anbei unsere Auftragsbestätigung." & vbCr _
& vbCr _
& "Vielen Dank für Ihre Bestellung." & vbCr _
& vbCr _
& "Mit freundlichen Grüßen." & vbCr _
& vbCr _
& "Abteilung Arbeitsvorbereitung." & vbCr _
& vbCr _
& "L.Hunger GmbH Pockau-Lengefeld."
.Attachments.Add mepdf
rngPDF.Copy
.Display
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub
Ich hätte aber gern, dass die Bestätigungen in einen anderen Ordner gespeichert werden.
Der Ordner wäre F:/ Daten/Bestätigungen. Alles andere soll bitte so bleiben.
Vielen Dank.
Tschüss Frank