shitzovran
May 26, 2009, updated at 17:47:16 (UTC)
view8952
view3
0
Goto Top

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

GermansolvedQuestionVB for ApplicationsDevelopment

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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 116862

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

Printed on: April 24, 2024 at 09:04 o'clock

3 Comments
Latest comment
Goto Top
Member: bastla
bastla May 26, 2009 at 18:48:05 (UTC)
Goto Top
Hallo ShitzOvran!

Sieh Dir die Funktion InStr() an ...

Grüße
bastla
Member: ShitzOvran
ShitzOvran May 27, 2009 at 06:34:54 (UTC)
Goto Top
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
Member: ShitzOvran
ShitzOvran May 27, 2009 at 11:25:39 (UTC)
Goto Top
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
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 CommentsAlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 Comments