variablen Dateinamen erstellen und dann sichern
30.09.2015 16:12:57
Willi
nachdem ich jetzt seit einiger Zeit - gefühlt - alles durchforstet habe, wende ich mich an Euch: ich möchte eine Datei, die ich aus einer Outlook Mail extrahiert habe mit einem Namen und einer Variablen wegschreiben. Also:
Dateiname & Variable, wobei in der Variablen eine Uhrzeit, die ich vorher aus der Mail bekommen habe, steht. das Ganze sieht derzeit wie folgt aus:
Sub OutlookGetMail()
Dim i_Ges As Integer, i As Integer
Dim Ankunftszeit As String, Ankunftsdatum As String, Dateiname As String
Dim olApp As Object, objFolder As Object, objItem As Object
Dim Fname As Variant, FileNameFolder As Variant
Set olApp = CreateObject("outlook.application")
Set objFolder = olApp.GetNamespace("MAPI").Folders("WWacker").Folders("Posteingang"). _
Folders("Firma").Folders("Preise") Set Out = GetObject("", "Outlook.Application"). _
GetNamespace("MAPI").Folders("WWacker").Folders("Posteingang").Folders("Firma").Folders("Preise")
i_Ges = Out.items.Count
i = 0
While i 0 Then
With objItem.Attachments.item(1)
If .fileName Like "*.csv" Then
.SaveAsFile "C:\" & Dateiname ' hier geht's nicht wichtig ist hier die _
Ankunftszeit!
End If
End With
End If
Else
GoTo KeinepassendeMail
End If
Next
KeinepassendeMail:
Set objFolder = Nothing
Set olApp = Nothing
End Sub
Schon mal Danke im Voraus. Ach ja, eigentlich will ich auch immer nur die neueste EMail Anfassen und die Datei extrahieren. SO bekomme ich allerdings immer alle Anhänge aus den vorhandenen Mails geliefert. :(
Willi