Word Datei öffnen, text kopieren und in E-Mail eifnügen

[Primo Centurio]

Hallo miteinandern

Kurze Frage ist es möglich über Excel VBA nach dem Öffnen einer Word Datei deren Text zu kopieren und den Text in Outlook als Mail zu versenden?

Ich kriege das Word Dokument  auf, leider scheitert es aber den Text zu kopieren und in die E-Mail einzufügen.

Freundliche Grüsse

Primo

[Klaus-Dieter]

Hallo,

es gibt auch Word-Makros ...

[snb]

PHP-Code:

Sub M_snb()
  With GetObject("G:\OF\Beispiel.docx")
    c00 = .Content
    .Close 0
  End With

  With CreateObject("Outlook.application").createitem(0)
    .To = "centurio@beispiel.de"
    .Subject = "Beispiel"
    .body = c00
    .send
  End With
End Sub 


[Primo Centurio]

Danke snb, hat wunderbar geklappt

:19: