Thema Datum  Von Nutzer Rating
Antwort
23.05.2016 20:22:00 Lars
NotSolved
24.05.2016 21:06:44 Gast64405
NotSolved
25.05.2016 09:36:25 Lars
NotSolved
25.05.2016 11:44:24 Gast96077
NotSolved
25.05.2016 15:27:05 Trägheit
NotSolved
26.05.2016 23:19:06 Gast14647
NotSolved
28.05.2016 19:26:04 Gast86873
NotSolved
25.05.2016 21:31:53 Gast79081
NotSolved
Rot Anhänge aus markierten Mails aus Outlook in ein Verzeichnis Speichern
25.05.2016 21:31:06 Gast57099
NotSolved
26.05.2016 23:21:33 Gast95996
NotSolved
27.05.2016 17:53:13 Gast9243
Solved

Ansicht des Beitrags:
Von:
Gast57099
Datum:
25.05.2016 21:31:06
Views:
1517
Rating: Antwort:
  Ja
Thema:
Anhänge aus markierten Mails aus Outlook in ein Verzeichnis Speichern

Hallo Lars!

Also habe es jetzt nochmal mit meinem Programm auf der Arbeit getestet. Dort starte ich in einer Sub den folgenden Code. Damit kann ich auf alles zugreifen.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set outlook = CreateObject("Outlook.Application")
   Set ekonto = outlook.GetNamespace("MAPI")
   Set inbox = ekonto.GetDefaultFolder(6)  'der Posteingang
     
   For Each nachricht In inbox.items
   If nachricht.Subject = "Nachricht mit Termin" Then
       If nachricht.Attachments.Count > 0 Then
            For Each anhang In nachricht.Attachments
               dateitemp = "Y:\mein pfad\" & "test" & ".msg"
               anhang.SaveAsFile dateitemp
            Next anhang
       End If
   End If
   Next nachricht

 

Das Problem ist aber das du Termine mit msg als Endung speichern musst. Filename gibt es dort nicht und einen NAmen vom Termin auch nicht. Wenn man es händisch speichert, würde auch der Betreffe genommen werden. Also ich würde dann bei dir einbauen

if anhang.type = 5 then

hier mit msg speichern. die 5 stellt dar, dass es ein Termin ist.

else

deinen Code wie beisher mit Filename, wo bei es noch andere typen als die 2 gibt

end if

bei meinem Beispiel geht das so

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Set outlook = CreateObject("Outlook.Application")
  Set ekonto = outlook.GetNamespace("MAPI")
  Set inbox = ekonto.GetDefaultFolder(6)  'der Posteingang
    
  For Each nachricht In inbox.items
  If nachricht.Subject = "Mail mit 2 Anhängen" Then
      If nachricht.Attachments.Count > 0 Then
           For Each anhang In nachricht.Attachments
              If anhang.Type = 5 Then  'die 5 steht für Termin
                  dateitemp = "mein Pfad" & nachricht.Subject & ".msg"
                  ' hier gibt es keine Dateinamen beim Anhang, dort würde beim Speichern der betreff genommen.
                  anhang.SaveAsFile dateitemp
              Else
                  dateitemp = "meii Pfad" & anhang.Filename
                  anhang.SaveAsFile dateitemp
              End If
           Next anhang
      End If
  End If
  Next nachricht

 

Ist nur ein Beispiel. Müsstest es an deine Sachen noch anpassen, insb. beim Namen der Anhänge. VG


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
23.05.2016 20:22:00 Lars
NotSolved
24.05.2016 21:06:44 Gast64405
NotSolved
25.05.2016 09:36:25 Lars
NotSolved
25.05.2016 11:44:24 Gast96077
NotSolved
25.05.2016 15:27:05 Trägheit
NotSolved
26.05.2016 23:19:06 Gast14647
NotSolved
28.05.2016 19:26:04 Gast86873
NotSolved
25.05.2016 21:31:53 Gast79081
NotSolved
Rot Anhänge aus markierten Mails aus Outlook in ein Verzeichnis Speichern
25.05.2016 21:31:06 Gast57099
NotSolved
26.05.2016 23:21:33 Gast95996
NotSolved
27.05.2016 17:53:13 Gast9243
Solved