Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
11.03.2017 05:26:27 |
FKSS |
|
|
|
11.03.2017 10:29:48 |
Werner |
|
|
|
11.03.2017 10:33:16 |
Gast25079 |
|
|
|
11.03.2017 10:34:21 |
Gast45351 |
|
|
Kleiner Fehler in IF-Schleife??? oder Ganz falsch? |
11.03.2017 10:44:14 |
Gast43147 |
|
|
|
12.03.2017 21:21:05 |
FKSS |
|
|
Von:
Gast43147 |
Datum:
11.03.2017 10:44:14 |
Views:
379 |
Rating:
|
Antwort:
|
Thema:
Kleiner Fehler in IF-Schleife??? oder Ganz falsch? |
Und nochmal der Gast! Nun ist mir doch noch was aufgefallen. Zum einen, wie Werner schon schrieb, fehlt wohl ein end if nach dem ersten Vergleich auf pdf. Dann habe ich nochmal geschaut. Du nutzt für dein - den Namen Space. Der ist aber identisch mit einer Funktion gleichen Namens. Für die Funktion Space fehlt die Angabe der Anzahl der Leerzeichen (das ist aber wohl Pficht). So wie bei dir verwendet gibt das dann auch einen Fehler. Wenn man alle beachtet sollte der Code so aussehen. Dein Space ist dabei umbenannt. ISt aber immer noch nicht getestet. VG
Public Sub Save_TrailB1(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim saveFolder2 As String
Dim Trenner
Trenner = " - "
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" & Trenner & objAtt.DisplayName
end if
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
11.03.2017 05:26:27 |
FKSS |
|
|
|
11.03.2017 10:29:48 |
Werner |
|
|
|
11.03.2017 10:33:16 |
Gast25079 |
|
|
|
11.03.2017 10:34:21 |
Gast45351 |
|
|
Kleiner Fehler in IF-Schleife??? oder Ganz falsch? |
11.03.2017 10:44:14 |
Gast43147 |
|
|
|
12.03.2017 21:21:05 |
FKSS |
|
|