vbs - Wenn bestimmtes Wort im Text ist, dann soll was passieren

Ich hab mir ein Script geschrieben, das mein Worddokument in ein PDF umwandelt und das denn an eine Email hängt.
Nun möchte ich das so machen, dass noch eine weitere Datei angehängt wird, wenn in dem Dokument ein bestimmtes Wort steht.

Um genauer zu sein, ich hab ein Word dokument in zwei Fassungen einmal das normale Anschreiben und einmal ein Anschreiben mit Anhang.... wenn das Wort "Anhang" nicht im Text vorkommt soll er das PDF welches aus dem Dokument erstellt wird als Anhang an eine Email hängen.... steht meinem Dokument aber Anhang, soll er das Schreiben, und zusätzlich ein weiteres PDF was auf der Platte gespeichert ist anhängen.

Das Anhängen der Daten ist kein Problem... auch so fnktioniert schon alles.... Aber am besten wäre es so in der Art

Wenn "Anhang" im Text steht hänge "C:\test.pdf" und "C:\anhang.pdf" an.... wenn nicht, dann nur "C:\test.pdf"

ne Idee?

momantan hängt er immer beides an, und ich lösche eines per Hand.

Set Anhang = Mail.Attachments
    Anhang.Add (ActiveDocument.Path & "\test.pdf")  
    Anhang.Add (ActiveDocument.Path & "\anhang.pdf")  
    Mail.Display

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 116862

Url: https://administrator.de/contentid/116862

Ausgedruckt am: 21.11.2024 um 22:11 Uhr

3 Kommentare

Neuester Kommentar

Hallo ShitzOvran!

Sieh Dir die Funktion InStr() an ...

Grüße
bastla

Hmmm, soso.... da ich absolut keine ahnung davon habe, bin ich immernoch nicht weiter :D

"AllDocument" ist wohl der falsche Ausdruck dafür, da er mir immer nur das "Bewerbung.pdf" - Dokument anhängt. also geht er wohl immer zum Else-Teil
... was muss ich den sagen, damit er das Dokument durchsucht?

    If InStr(AllDocument, "Zeugnisse") Then  
    
    Set Anhang = Mail.Attachments
    Anhang.Add (ActiveDocument.Path & "\Bewerbung.pdf")  
    Anhang.Add (ActiveDocument.Path & "\Zeugnisse.pdf")  
    Mail.Display
    
    Else:
        Set Anhang = Mail.Attachments
    Anhang.Add (ActiveDocument.Path & "\Bewerbung.pdf")  
    Mail.Display
    End If

Habs jetzt hinbekommen...

    If InStr(1, ActiveDocument.Range, "Zeugnisse", vbTextCompare) > 0 Then  
    
    Set Anhang = Mail.Attachments
    Anhang.Add (ActiveDocument.Path & "\Bewerbung.pdf")  
    Anhang.Add (ActiveDocument.Path & "\Zeugnisse.pdf")  
    Mail.Display
    
    Else:
        Set Anhang = Mail.Attachments
    Anhang.Add (ActiveDocument.Path & "\Bewerbung.pdf")  
    Mail.Display
    End If