Hallo Aggroberlin,
Du solltest dich zum einen entscheiden und zum anderen dein Anliegen möglichst präzise formulieren und auch verwendete Anwendungs-Versionen angeben.
Wenn du eine Datei als Anlage versenden willst, brauchst du sie nicht vorab zu öffnen (es sei denn, du willst da noch was erledigen).
Wenn du nur den (unformatierten) Text (ohne K&F-Zeilen etc.) haben willst, kannst du's z.B. so versuchen:
objSendMail.Body = wrdDoc.Content.Text
Wenn's eine HTML-Nachricht werden soll, wird die Datei wohl schon im *.htm-Format vorliegen müssen und der Quellcode, der der HTMLBody-Eigenschaft zugewiesen werden kann, muss anders eingelesen werden, z.B.:
Dim objFso
Dim objHtm
Dim strHTML
Const HTM_DATEI = "C:\Dokumente und Einstellungen\b600806\Desktop\http.htm"
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objHtm = objFso.OpenTextFile(HTM_DATEI, 1, False)
strHTML = objHtm.ReadAll
objHtm.Close
Set objHtm = Nothing
Set objFso = Nothing
' ...
objSendMail.HTMLBody = strHTML
Theortisch hättest du zwar die Möglichkeit, das *.doc also vorab entsprechend abzuspeichern, aber Bilder und sonst. Verweise weisen dann ebenfalls auf das Speicherverz.
Wenn du Word's SendMail-Methode einsetzen willst (was einen MAPI-fähigen E-Mail-Client voraussetzt), kannst du diese schlecht mit CDO-Message kombinieren. Wie du festgestellt haben wirst, musst du die Vervollständigungen im Nachrichtenfenster sowie den Versand selbst vornehmen.
Lassen wir mal dahin gestellt, dass es natürlich noch andere Wege gibt, Nachrichten zu versenden, was aber sowohl von Konstellationen als auch Anforderungen abhängt.
Gruß
Uli
Uli M
