Thema Datum  Von Nutzer Rating
Antwort
16.11.2016 11:50:17 Tim
NotSolved
Blau Outlook Emaisl inkl. Anlagen exportieren
16.11.2016 16:10:20 Tim
NotSolved
18.11.2016 11:59:27 Tim
NotSolved

Ansicht des Beitrags:
Von:
Tim		 Datum:
16.11.2016 16:10:20		 Views:
571		 Rating:
     
Antwort:
  Ja
Thema:
Outlook Emaisl inkl. Anlagen exportieren
Hi also meine ursprüngliche Idee funktioniert nun irgendwie schon (als Workaround):
 
Sub Anlage_verschieben()
Dim strPath As String
Dim objMail As MailItem
Dim intAnlagen As Integer, i As Integer
On Error Resume Next
'Pfad zu meinem Ordner
strPath = "D:\Temp\Test"
'Schleife
For Each objMail In Outlook.ActiveExplorer.Selection
With objMail
'Mails auf vorh. Anlagen prüfen
intAnlagen = .Attachments.Count
If intAnlagen > 0 Then
For i = 1 To intAnlagen
'Mails auf Signaturenbilder prüfen, wenn Dateiname "image00" (wie die meisten Signaturen) enthält ...
If InStr(.Attachments.Item(i).Filename, "image00") Then
'dann ohne zu speichern fortfahren - per Sprungmarke
GoTo ohneSpeichern
Else
'Anlagen im vordefinierten Verzeichnis sichern
.Attachments.Item(i).SaveAsFile strPath & "\" & .Attachments.Item(i).Filename
End If
ohneSpeichern:
Next i
'Mails löschen
objMail.Delete
End If

Jedoch ist das eher unschön, weil im Falle von einer echten Anlage die zufällig auch irgendwie "image00" diese Anlage dennoch rausfliegt.

BTW:

- Gibts ne Möglichkeit die gefundenen "image00" 's zu zählen?

- Kann man nicht auch speziell die Signaturen Shapes ansprechen und vornherein ausschließen?

z.Bsp. so:


If .Attachments.Item(i).IsSignatureLine = True Then GoTo ohneSpeichern
.Attachments.Item(i).SaveAsFile strPath & "\" & .Attachments.Item(i).Filename
ohneSpeichern:
Next i

Kann man das Ganze noch geschickter angehen?

 

 

 

 
 

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
16.11.2016 11:50:17 Tim
NotSolved
Blau Outlook Emaisl inkl. Anlagen exportieren
16.11.2016 16:10:20 Tim
NotSolved
18.11.2016 11:59:27 Tim
NotSolved