Need Help für Outlook Script Anpassung

15/10/2009 - 16:26 von Thom | Report spam
Hallo liebe NG

Ich habe mir nachstehendes Script von einer anderen Seite kopiert. Das
Script kann ich über die Regelfunktion ansteuern und es funktioniert soweit
auch. Es speichert mir alle Empfànger im Posteingang mit Attachments ab.
Kann mir jemand helfen, wo ich definieren muss, das das Script nur
Attachments von Mailabsender "Mueller Peter" speichert.

Sub Application_NewMail(oMail As MailItem)
Dim Ordnername As String
Dim objPosteingang As MAPIFolder
Dim objNewMail As MailItem
On Error Resume Next
Set objPosteingang =
Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
For Each objNewMail In objPosteingang.Items
With objNewMail
If .UnRead = True Then
Anzahl = .Attachments.Count
If Anzahl > 0 Then
Ordnername =
"D:\users\dumbo\Documents\outlook-attachments\" & objNewMail.SenderName
MkDir Ordnername
For i = 1 To Anzahl
.Attachments.Item(i).SaveAsFile Ordnername & "\" &
.Attachments.Item(i).FileName
Next i
End If
End If
End With
Next objNewMail
End Sub

Danke im Voraus für eure Tipps

Gruss Thom
 

Lesen sie die antworten

#1 Michael Bauer [MVP - Outlook]
15/10/2009 - 16:51 | Warnen spam
Am Thu, 15 Oct 2009 16:26:35 +0200 schrieb Thom:



Hallo liebe NG

Ich habe mir nachstehendes Script von einer anderen Seite kopiert. Das
Script kann ich über die Regelfunktion ansteuern und es funktioniert soweit
auch. Es speichert mir alle Empfànger im Posteingang mit Attachments ab.
Kann mir jemand helfen, wo ich definieren muss, das das Script nur
Attachments von Mailabsender "Mueller Peter" speichert.

Sub Application_NewMail(oMail As MailItem)
Dim Ordnername As String
Dim objPosteingang As MAPIFolder
Dim objNewMail As MailItem
On Error Resume Next
Set objPosteingang =
Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
For Each objNewMail In objPosteingang.Items
With objNewMail
If .UnRead = True Then
Anzahl = .Attachments.Count
If Anzahl > 0 Then
Ordnername =
"D:\users\dumbo\Documents\outlook-attachments\" & objNewMail.SenderName
MkDir Ordnername
For i = 1 To Anzahl
.Attachments.Item(i).SaveAsFile Ordnername & "\" &
.Attachments.Item(i).FileName
Next i
End If
End If
End With
Next objNewMail
End Sub

Danke im Voraus für eure Tipps

Gruss Thom



Hallo,

da, wo auf Unread geprüft wird, kannst Du auch SenderName oder
SenderEMailAddress prüfen.

Viele Gruesse
Michael Bauer - MVP Outlook

: Outlook-Kategorien? Category Manager ist die Lösung
: VBOffice Reporter für Datenanalyse & Berichte
: <http://www.vboffice.net/product.html?pub=6>

Ähnliche fragen