MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Visual Studio /.NET > Visual Basic für Windows (alle Versionen bis 6.0)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 12.05.2019, 09:43   #1
Sane1111
Neuer Benutzer
Neuer Benutzer
Standard Sonstiges - 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 "DanielArbeitPDF"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"DanielArbeitPDF2019" & "KW " & Worksheets("Auflistung").Cells(1, 8) & ".pdf", OpenAfterPublish:=True

ChDir "DanielArbeitNeuer Ordner"
ActiveWorkbook.SaveAs ("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 "DanielArbeitPDF2019" & "KW " & Worksheets("Auflistung").Cells(1, 8) & ".pdf"
'.send
.Display
End With

Set OutlookApp = Nothing
Set OutlookMailItem = Nothing

End Sub
Sane1111 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.05.2019, 18:18   #2
Mase
MOF User
MOF User
Standard

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.

__________________

gruß
Marco
Mase ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:30 Uhr.



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

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.