Microsoft Excel

Herbers Excel/VBA-Archiv

VBA OutlookMail Datum für angehängte Datei angeben


Betrifft: VBA OutlookMail Datum für angehängte Datei angeben von: Lisa
Geschrieben am: 25.07.2018 10:10:22

Guten Morgen zusammen,

kann mir jemand weiterhelfen? Und zwar habe ich das Problem, dass ich gerne eine PP Datei an eine Mail anhängen würde, die bis auf Montags immer das Datum von gestern im Namen hat (zb. 24072018). Ich habe folgendes geschrieben, allerdings funktioniert das mit dem Datum noch nicht so ganz.

Vielen Dank

Lisa

Sub sendMail()

Dim PP, Datum As String
Dim MyOutApp As Object, MyMessage As Object

    Datum = Sheets("Datum").Range("A2")
    Datum = Format("DD_MM_YYYY")

    PP = "Pfad" & Datum & ".pptx"
    Set MyOutApp = CreateObject("Outlook.Application")
    Set MyMessage = MyOutApp.CreateItem(0)
        With MyMessage
            .GetInspector.Display
            olOldBody = .HTMLbody
            .To = ""
            .CC = ""
            .Subject = "Betreff " & Date - 1
            .HTMLbody = "Inhalt"
            .Attachments.Add PP
            .Display
        End With
    Set MyOutApp = Nothing
    Set MyMessage = Nothing
End Sub

  

Betrifft: AW: VBA OutlookMail Datum für angehängte Datei angeben von: ChrisL
Geschrieben am: 25.07.2018 10:21:21

Hi Lisa

Vielleicht so...

If WorksheetFunction.Weekday(Date) = 2 Then
    .Subject = "Betreff " & Format(Date - 3, "DDMMYYYY")
Else
    .Subject = "Betreff " & Format(Date - 1, "DDMMYYYY")
End If
cu
Chris


  

Betrifft: AW: von: Lisa
Geschrieben am: 25.07.2018 10:32:40

Hallo Chris,

es geht um die Datei die angehängt werden soll :)
Die Datei heißt PP und setzt sich aus dem Pfad, dem Datum und wieder aus der Pfadendung (pptx) zusammen.
Dies funktioniert auch, allerdings nur wenn ich den String Datum rausnehme.
Der String Datum holt sich den Wert aus dem Blatt Datum, über das Feld A2, in dem das Datum von gestern hinterlegt ist.

Hast Du dafür eine Idee? Die PP Datei hat ja jeden Tag einen anderen Namen und somit muss die Pfadangabe dynamisch sein.

Grüß Dich,

Lisa


  

Betrifft: AW: von: ChrisL
Geschrieben am: 25.07.2018 10:44:29

Hi

Vielleicht so...

PP = "Pfad" & Format(Date - 1, "DDMMYYYY") & ".pptx"
oder so...
PP = "Pfad" & Format(Worksheets("XY").Range("A2") - 1, "DDMMYYYY") & ".pptx"
cu
Chris


  

Betrifft: AW: von: Lisa
Geschrieben am: 25.07.2018 10:59:58

Beides geht wunderbar.
Vielen Dank Dir eine tolle Restwoche:)

Grüße

Lisa