MS-Office-Forum

MS-Office-Forum (https://www.ms-office-forum.net/forum/index.php)
-   Visual Basic für Windows (alle Versionen bis 6.0) (https://www.ms-office-forum.net/forum/forumdisplay.php?f=67)
-   -   ChDir (https://www.ms-office-forum.net/forum/showthread.php?t=360063)

Sane1111 12.05.2019 09:43

ChDir
 
Hallo zusammen,

eine kurze Frage, sind bei dem nachfolgenden Makro die "ChDir" Befehle eigentlich zwingend notwendig?
Was bewirken sie in diesem Fall?
Bedanke mich für eure Antworten im Voraus!
Lg Daniel Siegele

Sub PDFundSenden()

ChDir "D:DanielArbeitPDF"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:DanielArbeitPDF2019" & "KW " & Worksheets("Auflistung").Cells(1, 8) & ".pdf", OpenAfterPublish:=True

ChDir "D:DanielArbeitNeuer Ordner"
ActiveWorkbook.SaveAs ("D:DanielArbeitNeuer Ordner" & "Kw" & Worksheets("Auflistung").Cells(1, 8) & ".xlsm"), 52


Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object

Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments

With OutlookMailItem
.To = Range("C3")
.Subject = Range("C4")
.Body = "Sch?nen guten Morgen. Anbei sende ich Dir meinen Wochenbericht in PDF- Format. Lg, Daniel"
myAttachments.Add "D:DanielArbeitPDF2019" & "KW " & Worksheets("Auflistung").Cells(1, 8) & ".pdf"
'.send
.Display
End With

Set OutlookApp = Nothing
Set OutlookMailItem = Nothing

End Sub

Mase 12.05.2019 18:18

Hi,

zwingend nicht, aber du musst einen Pfad angeben wo gespeichert werden bzw von wo die Anlage für deine Mail geholt werden soll.

Alternativ kann der Pfad in einer String abgelegt werden.


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:35 Uhr.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.