Mails mit Anhängen speichern m it Empfangsdatum im Dateinamen
AlexK-Mainz
ich erhalte täglich so um die 30 Mails mit Pdf-Anhängen. Da mein
Outlook (mittlerweile so um die 1000 Emails solcher Art) immer
langsamer wird (wen wundert´s) möchte ich die Emails in einem extra
Ordner speichern. Dazu ist es aber unbedingt notwendig, daß ich im
Dateinamen das Empfangsdatum zusätzlich angezeigt bekomme, um später
nach dem Empfangsdatum suchen zu können.
Kann mir jemand sagen, wie das in VBA zu bewerkstelligen ist? In der
Hilfe hab ich schon einen Text dazu gefunden, der mittels
...SaveFileas...Filename die Funktion automatisch über den
Regelassistenen regelt. Aber dabei speichert er die Datei nur unter
dem vorhandenen Dateinamen ab.
Ich benötige die Methode, um den Filename noch um das Empfangsdatum zu
erweitern.
Vielen Dank
AlexK-Mainz
Andreas Roeder
wenn Du hier nicht weiterkommen solltest, schau mal bei
www.outlookcode.com rein
--
Ich habe nichts gemacht, gestern gings noch!
Bitte in den Newsgroup antworten damit jeder etwas davon hat.
Brav...@Datenschutzministerium.de
Michael Bauer
> Ich benötige die Methode, um den Filename noch um das Empfangsdatum zu
> erweitern
folgenden Code kannst Du benutzen, wenn der Pfad a) immer gleich ist und
b) schon existiert:
'<DieseOutlookSitzung>
Private WithEvents InboxItems As Outlook.Items
Private Sub Application_Startup()
On Error Resume Next
Set InboxItems =
Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub InboxItems_ItemAdd(ByVal Item As Object)
If TypeOf Item Is Outlook.MailItem Then
SaveAttachments Item
End If
End Sub
Public Sub SaveAttachments(ByRef olMail As Outlook.MailItem)
On Error Resume Next
Dim olAtt As Outlook.Attachment
Dim sPath As String
sPath = "c:\xyz\" & olMail.ReceivedTime & "_"
For Each olAtt In olMail.Attachments
olAtt.SaveAsFile sPath & olAtt.FileName
Next
End Sub
'</DieseOutlookSitzung>
--
Viele Grüße
Michael Bauer