Hallo,
ich möchte gerne beim Erhalt einer E-Mail dem User Zeit lassen, damit er sich die E-Mail anschauen kann. Ist er fertig mit lesen und hat ggf. sich auch den Dateianhang angeschaut, dann markiert outlook die Email automatisch als gelesen. Dieses Event möchte ich gerne abfangen und den Anhang (sofern vorhanden) auf die Festplatte speichern. Wie kann ich da vorgehen?
Ich habe es bereits hinbekommen den Anhang zu speichern, wenn eine Mail eingeht. Das habe ich mit Hilfe einer Regel gemacht. Ich würde aber gerne die Regel erweitern, so dass das Programm wie oben beschrieben funktioniert.
Public Sub einpflegen(oMail As Outlook.MailItem)
Dim strNewFolder As String
Dim objPosteingang As MAPIFolder
Dim objNewMail As MailItem
Dim i As Integer
Dim message As String
i = 0
On Error Resume Next
strNewFolder = "C:\" & Format(Date, "ddmmyy")
MkDir strNewFolder
Set objPosteingang = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
With objNewMail
intAnlagen = .Attachments.Count
If intAnlagen > 0 Then
For i = 1 To intAnlagen
message = "Soll der aktuelle Anhang: " & .Attachments.Item(i).FileName & " dem Wissensmanagementsystem hinzugefügt werden?"
response = MsgBox(message, vbYesNo, "einpflegen")
If response = vbYes Then
.Attachments.Item(i).SaveAsFile strNewFolder & "\" & .Attachments.Item(i).FileName
End If
Next i
End If
End With
End Sub
Kann mir da jemand helfen?
|