empty

hi all,

kann mir bitte jemand von euch ne anleitung geben, wie und wo ich dieses VB-Prog einbauen muss....kenn mich da überhaupt nicht aus.

vielen dank

gruß empty

tomdooly

Hallo,

kan mir jemand sagen, ob das mit dem Skript auch im Postfachbetrieb funktioniert ? Habe das Skript mal unter "ThisOutlookSession" gehangen, passiert aber nichts. Wnn ich ein Modul Anlege, dann seheh ich ds nicht mal beiden MAkros....woran kann das liegen ??

kBSE

Hallo,

ich habe den Code in "This Outlook Session" kopiert, abgespeichert, Outlook beendet und neu gestartet...

...und es passiert trotzdem nix.

Ich hab' OL2007. was mach' ich falsch? (außer OL2007)

Grußß
K

mikewolfi

Hallo,

wer kann mir ein Script shreiben?

Problem:

Ich bekomme eine Mail mit dem immer gleichen Betreff (Bestellung_Test) mit Dateilanhang (Test.xml), welche ich per Regel in den Ordner Posteingang>Bestellungen verschieben lasse.

Eine im Ordner, Bestellungen, kommende Mail mit Dateianhang, soll unter D:\Bestellungen\Test.xml (immer die gleiche Datei) gespeichert werden. Eine evtl. ältere Version soll automatisch überschrieben werden.

Kann wer helfen?


Zusatzaufgabe:

Gibt es eine Möglichkeit, den Dateianhang automatisch in Outlook zu speichern? > Dann eine vorhandene Excel Datei zu öffnen und dort ein bereits vorhandenes Script beim Start ausführen zu lassen? (Das Script in Excel macht folgendes: es wird der zuvor gespeicherte Dateianhang geöffnet, gefiltert und auf einen bestimmten Drucker ausgegeben.

sperzelhp

Hallo, ich bin neu im Forum und habe das Programm von Schmitti ausprobiert.
Allerdings möchte ich die betreffende Mail erst in einen Folder leiten und dann erst und nur die Anhänge der Mails aus dem Folder speichern. Dazu habe ich objPosteingang durch objFolder ersetzt. Trotzdem wird immer wieder nur der Posteingang bearbeitet. Was mache ich falsch?
Private Sub Application_NewMail()
Dim Ordnername As String
Dim objFRAP23004Mail As MAPIFolder
Dim objNewMail As MailItem
On Error Resume Next
Set objFRAP23004Mail = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
For Each objNewMail In objFRAP23004Mail.Items
With objNewMail

If .UnRead = True Then
Anzahl = .Attachments.Count
If Anzahl > 0 Then
Ordnername = "c:\temp\" & objNewMail.SenderName
For i = 1 To Anzahl
.Attachments.Item(i).SaveAsFile "u:\sperzelh\Mailanlagen" & "\" & .Attachments.Item(i).FileName
Next i
End If
End If
End With
Next objNewMail

End Sub

RO_SCH

Hi,

mit dem Ausdruck 'GetDefaultFolder(olFolderInbox)' wird nunmal der Posteingang angesprochen, da müßtest du eben deinen 'Folder' angeben.

__________________
Gruß Roland

Schaut auch hier mal rein: http://www.excel-werkstatt.de

nasdax

hallo zusammen,
ich habe eine frage zu dem obigen code. es ist ja so, dass nur emails bearbeitet werden, die einen anhang haben. wie muss ich den code abändern, damit der emailtext in eine textdatei kopiert wird, ohne dass die ursprungsmail überhaupt einen anhang hat? Entweder soll eine neue textdatei erstellt werden oder eine vorhandene textdatei überschrieben werden, was leichter zu realisieren ist. ihr würdet mir echt super helfen !
liebe grüße sabine.

Code:

Private Sub Application_NewMail()
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 = "C:\temp\" & 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

RO_SCH

Hi,

lies dir in der VBA-Hilfe mal 'SaveAs (Methode)' durch.
Ist ein Beispiel dabei, wie man eine Mail als TXT-File speichert.

__________________
Gruß Roland

Schaut auch hier mal rein: http://www.excel-werkstatt.de