Thema Datum  Von Nutzer Rating
Antwort
Rot 2 Scripte zusammenfügen?
08.03.2018 10:17:40 Mauerer
NotSolved

Ansicht des Beitrags:
Von:
Mauerer		 Datum:
08.03.2018 10:17:40		 Views:
698		 Rating:
     
Antwort:
  Ja
Thema:
2 Scripte zusammenfügen?

Hallo

habe folgendes Problem bzw Lösung. Emailanhänge automatisch an einen Windows Ordner weiterleiten. Allerdings gibt es einen Laufzeitfehler wenn der Dateiname schon existiert (Anhang).

Ich habek eine Ahnung wie ich das zweite Script mit dem ersten verbinde. Eigentlich sollte nur geprüft werden, wenn der Dateiname schon existiert, dass +1 hochgezält wird.

Beispiel: Mein Fax1.pdf 

Neue Datei: Meine Fax2pdf

usw..

Vielleicht hat jemand einen Tipp. Vielen Dank!

 

Public Sub Anhaenge_handeln(myItem As Outlook.MailItem)
Dim mAtts As Attachments
Dim mAtt As Attachment
Dim found as Boolean = False
Dim i as integer = 0
    Set mAtts = myItem.Attachments
    While mAtts.Count > 0
        Set mAtt = mAtts(1)
        mAtt.SaveAsFile "C:\meinSpeicherort\" & mAtt.DisplayName
        mAtts.Remove 1
    Wend
End Sub


zweites Script:
	Dim found As Boolean = False
	Dim i As Integer = 0
	Do 
	If Not File.Exists(Path.Combine("C:\", "Mein Fax" & i & ".pdf")) Then
	found = True
	IO.File.WriteAllText(Path.Combine("C:\", "Mein Fax" & i & ".pdf"), "Mein Fax")
	Else
	i += 1
	End If
	Loop Until found = True

 

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 2 Scripte zusammenfügen?
08.03.2018 10:17:40 Mauerer
NotSolved