Overfører data fra en formular i Outlook til et Word doc.

Her er lidt kode, som jeg håber kan hjælpe dig.

http://www.outlookexchange.com/articles/home/lengho01.asp

Opret et bookmark (emne) i en Word skabelon og indsæt følgende kode i en Outlook formlar. Hvis man kalder knappen i Outlook formularen for cmdStartWord og en textbox for txtEmne så kan følgende eksempel bruges.

Dim itm
Dim pgs
Dim pg
Dim ctls

sub cmdStartWord_click()
    Dim Wrd
    Set Wrd = createObject("Word.Application")
    Dim doc
    Set doc = Wrd.Documents.Add("c:\mailUdskrivning.dot")
    doc.Bookmarks("emne").Select
    set rs = ctls("txtEmne")
    Wrd.Selection.TypeText rs.value
    Wrd.Visible = True
end sub

Function Item_Open()
    Set itm = Item.GetInspector
    Set pgs = itm.ModifiedFormPages
    Set pg = pgs(1)
    Set ctls = pg.Controls
End Function

VH CK

Hej
Hov-sa og Kedde65. Tak for jeres hurtige svar. Begge udgaver virker perfekt. Så derfor for at være retfærdig får I begge 2 point.