title image


Smiley habe das bei mir irgendwo rauskopiert ..


Public Sub SpeichereAnlagenDesAktiveInspektors(pfad$)

Dim i&, res&, Fs, Txt, tmp$

On Error Resume Next

   With Application.ActiveInspector.CurrentItem

        res = MsgBox("Soll das Mail als Textdatei gespeichert werden ?", vbQuestion + vbYesNo, "Mailbody speichern")

        If res = vbYes Then

            Set Fs = CreateObject("Scripting.Filesystemobject")

            tmp = Fremdz(.Subject & "_" & CStr(.ReceivedTime) & "_" & .SenderName)

            Set Txt = Fs.CreateTextFile(pfad & "\" & tmp & ".txt")

            Txt.Write .Body

            Txt.WriteLine: Txt.WriteLine

            Txt.WriteLine "Absender : " & .SenderName

            Txt.WriteLine "Empfaenger : " & .ReceivedByName

            Txt.WriteLine "CC : " & .CC

            Txt.WriteLine "BCC : " & .BCC: Txt.WriteLine

            Txt.WriteLine "Folgende Anhänge sind in dieser Mail enthalten "

            Txt.WriteLine "und werden im Pfad >" & pfad & " < abgespeichert :"

            Txt.WriteLine

            Txt.WriteLine

        End If

        If .Attachments.Count > 0 Then

            For i = 1 To .Attachments.Count

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

                If Not Txt Is Nothing Then _

                  Txt.WriteLine .Attachments.Item(i).FileName

            Next i

        Else

           If Not Txt Is Nothing Then _

             Txt.WriteLine "Das Mail enthaehlt keine Anlagen"

        End If

   End With

   Txt.Close

End Sub

 Code eingefügt mit Syntaxhighlighter 1.16

Knofi So wie wir heute arbeiten, werden morgen die Beamten leben ...

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: