sehr spezielle vba frage
bernd
ich verzweifel ein wenig weil meine vba kenntnisse überschritten werden. es ist wahrscheinlich nicht einmal das richtige forum aber ich versuche es trotzdem denn die hoffnung stirbt ja bekanntlich zuletzt :)
anbei ein code, mit dem outlook 2003 jede emailanhang von einer bestimmten email automatisch speichert. mein problem ist nun, wie muss ich den code abändern, damit der text der empfangenen email in z.b. test.txt gespeichert wird. die emails werden zudem keinen anhang haben!
bin total überfordert...
vorab schon vielen dank für eure mühen
vg
bernd
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 And .SenderEmailAddress = "mail@rathonline.de" Then
Text = .Attachments.Count
If Anzahl > 0 Then
Ordnername = "D:\Daten\email\"
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