Thema Datum  Von Nutzer Rating
Antwort
Rot Kleiner Fehler in IF-Schleife??? oder Ganz falsch?
11.03.2017 05:26:27 FKSS
Solved
11.03.2017 10:29:48 Werner
NotSolved
11.03.2017 10:33:16 Gast25079
NotSolved
11.03.2017 10:34:21 Gast45351
NotSolved
11.03.2017 10:44:14 Gast43147
NotSolved
12.03.2017 21:21:05 FKSS
NotSolved

Ansicht des Beitrags:
Von:
FKSS
Datum:
11.03.2017 05:26:27
Views:
911
Rating: Antwort:
 Nein
Thema:
Kleiner Fehler in IF-Schleife??? oder Ganz falsch?

Hallo, 

 

stück für Stück verstehe ich mehr und Mehr von VBA und dacht mir ich kann mal eben zwei (gut funktionierende) Scripte zussamnpacken.

 

Das klappte nicht so toll. Es kommen immer wieder mal andere Fehlermeldungen.  Ist es vieleicht bloß ein ganz kleiner Fehler?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Public Sub Save_TrailB1(itm As Outlook.MailItem)
  
  
Dim objAtt As Outlook.Attachment
 
Dim saveFolder As String
Dim saveFolder2 As String
 
 
Dim Space
Space = " - "
 
 
 
saveFolder = "T:\emc\IKS\IKSAUTO\"            'Hier ist der Pfad anzugeben, wohin der Anhang gespeichert werden soll!
saveFolder2 = "T:\emc\TAAUTO\"            'Hier ist der Pfad anzugeben, wohin der Anhang gespeichert werden soll!
 
  
For Each objAtt In itm.Attachments
         
        If InStr(objAtt.DisplayName, ".pdf") Or _
        InStr(objAtt.DisplayName, ".PDF") Then
            objAtt.SaveAsFile saveFolder & "\" & "VWL01-Trail-Balance" & Space & objAtt.DisplayName
 
  
        If InStr(objAtt.DisplayName, ".xml") Or _
        InStr(objAtt.DisplayName, ".XML") Then
            objAtt.SaveAsFile saveFolder2 & "\" & "TrailBalance.xml"
 
             
        End If
  
objAtt.Delete
Set objAtt = Nothing
 
Next
  
 
 
End Sub
 
Kann mir da jemand helfen?
 
Danke FKSS

 


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
Rot Kleiner Fehler in IF-Schleife??? oder Ganz falsch?
11.03.2017 05:26:27 FKSS
Solved
11.03.2017 10:29:48 Werner
NotSolved
11.03.2017 10:33:16 Gast25079
NotSolved
11.03.2017 10:34:21 Gast45351
NotSolved
11.03.2017 10:44:14 Gast43147
NotSolved
12.03.2017 21:21:05 FKSS
NotSolved