A
Anton
Sorry, now with code
Hallo,
I 'm making a macro in Outlook 2000.
It has to get some text from txt files with extension doc.
So i want to select and copy it from Word to Outlook.
Who Nows
----------------------------------------------------------------------------
Sub zoekfiles()
Dim Filename
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = Application.GetNamespace("MAPI")
Filename = Dir("C:\tmp\*.doc", vbNormal)
While (Filename <> "")
Pad = "C:\tmp\" & Filename
Set Word = CreateObject("Word.Application")
Word.Visible = True
Word.Documents.Open Pad
And then the text has to be selected, so find text , then select text and
then copy the text to outlook, but how ?????
Hallo,
I 'm making a macro in Outlook 2000.
It has to get some text from txt files with extension doc.
So i want to select and copy it from Word to Outlook.
Who Nows
----------------------------------------------------------------------------
Sub zoekfiles()
Dim Filename
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = Application.GetNamespace("MAPI")
Filename = Dir("C:\tmp\*.doc", vbNormal)
While (Filename <> "")
Pad = "C:\tmp\" & Filename
Set Word = CreateObject("Word.Application")
Word.Visible = True
Word.Documents.Open Pad
And then the text has to be selected, so find text , then select text and
then copy the text to outlook, but how ?????