mtb4ever
Jun 21, 2007, updated at Jun 22, 2007 (UTC)
view6349
view2
0
Goto Top

Fragen zu VB Script für Outlook!

GermansolvedQuestionVB for ApplicationsDevelopment
Hallo,

ich habe mir folgendes Script für VBA besorgt:

 
Private Sub Application_NewMail()

Dim Foldername As String
Dim objIn As MAPIFolder
Dim objNewMail As MailItem

On Error Resume Next
Set objIn = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
For Each objNewMail In objIn.Items
With objNewMail
If .UnRead = True Then
NumberOfMails = .Attachments.Count

If NumberOfMails > 0 Then
Foldername = "C:\temp\"
MkDir Foldername

For I = 1 To NumberOfMails
.Attachments.Item(I).SaveAsFile (Foldername) & "" & .Attachments.Item(I).FileName

Next I
End If
End If
End With
Next objNewMail
End Sub

Kann mir einer helfen das so umzuschreiben das es die Mails (nachdem es die Anlagen in den Ordner gepackt hat) als Gelesen markiert und am besten in ein Unterordner im Posteingang verschiebt ?

Und kann man dort noch einstellen das es nur von einen bestimmten Empfänger die Anhänge in den Ordner packt ?

Danke für die Hilfe!

MfG

MTB
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 61966

Url: https://administrator.de/contentid/61966

Printed on: June 9, 2023 at 12:06 o'clock

2 Comments
Latest comment
Goto Top
Member: miniversum
miniversum Jun 21, 2007 at 12:50:14 (UTC)
Goto Top
Also wenn ich Dich richtig verstanden habe dann versuchs mal damit (ungetestet!):
Private Sub Application_NewMail()

Dim Foldername As String
Dim objIn As MAPIFolder
Dim objNewMail As MailItem
Dim myDestFolder As Outlook.MAPIFolder

On Error Resume Next
Set objIn = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set myDestFolder = objIn.Folders("Verschobener Ordner")
For Each objNewMail In objIn.Items
  With objNewMail
    If .UnRead = True Then
      .Move myDestFolder
      .UnRead = False
      If .SenderEmailAddress = "absender@jemand.de" Then
        NumberOfMails = .Attachments.Count
        If NumberOfMails > 0 Then
          Foldername = "C:\temp\"
          MkDir Foldername
          For I = 1 To NumberOfMails
            .Attachments.Item(I).SaveAsFile (Foldername) & "" & .Attachments.Item(I).FileName
          Next I
        End If
      End If
    End If
  End With
Next objNewMail
End Sub

Den Absender "absender@jemand.de" und den Ordner "Verschobener Ordner" mußt Du halt noch anpassen.

miniversum
Member: MTB4ever
MTB4ever Jun 22, 2007 at 06:47:52 (UTC)
Goto Top
danke klappt einwandfrei!

MfG MTB
GermansolvedQuestionVB for ApplicationsDevelopment