Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Word Datei öffnen, text kopieren und in E-Mail eifnügen
Normale Version: Word Datei öffnen, text kopieren und in E-Mail eifnügen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Primo Centurio

13.11.2019, 17:58
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

13.11.2019, 18:13
Hallo,

es gibt auch Word-Makros ...

snb

14.11.2019, 09:33
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

18.11.2019, 16:10
Danke snb, hat wunderbar geklappt

:19:
Clever-Excel-Forum > Office-Anwendungen > Excel > Word Datei öffnen, text kopieren und in E-Mail eifnügen