title image


Smiley Outlook Anlage vom aktiven Mailfenster abspeichern
Hallo zusammen,



ich möchte in Outlook 2000 per Makro (in VBA) eine Funktion zur Verfügung stellen, welche den aktuellen Anhang (im geöffneten Mailfenster) in ein vorher festgelegten Ordner abspeichert.



Dazu habe ich folgendes Coding geschrieben



Dim strNewFolder As String

Dim objPosteingang As MAPIFolder

Dim objMail As MailItem

strNewFolder = "c:\temp2\"

MkDir strNewFolder

Set objPosteingang = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

With objMail

intanlagen = Me.ActiveWindow.Attachments.Count

If intanlagen > 0 Then

For i = 1 To intanlagen

.Attachments.Item(i).SaveAsFile strNewFolder & "\" & .Attachments.Item(i).FileName

Next i

End If

End With

End Sub



Leider passiert damit gar nix. Ich öffne also eine Mail mit Anhang, lasse das Makro drüber laufen und nix passiert. Beim tracen sieht man, das nie erkannt wird das ein Anhang vorliegt, und folglich der Speicherbefhel übergangen.



Kann mir wer weiterhelfen?



Viele Grüße,



Blubb





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: