09. november 2001 - 15:52Der er
13 kommentarer og 1 løsning
Send worddokument?
Ligesom man i et .html-dokument kan lave et mailto-link, er det så muligt at lave det samme i et word-dokument, hvor det aktuelle dokument, efter indtastning af forskellige felter, bliver sendt til en forudbestemt post-modtager???
flemmingdahl>> Ja, jeg har måske været lidt naiv mht. første svar! Hvis du kender svaret og kan hjælpe mig, er jeg villig til at åbne spørgsmålet igen og byde nye 100 point!
Dim bStarted As Boolean Dim oOutlookApp As Outlook.Application Dim oItem As Outlook.MailItem
On Error Resume Next
If Len(ActiveDocument.Path) = 0 Then MsgBox \"Document needs to be saved first\" Exit Sub End If
Set oOutlookApp = GetObject(, \"Outlook.Application\") If Err <> 0 Then Set oOutlookApp = CreateObject(\"Outlook.Application\") bStarted = True End If
Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem .To = \"recipient@mail.com\" .Subject = \"New subject\" \'Add the document as an attachment, you can use the .displayname property \'to set the description that\'s used in the message .Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, _ DisplayName:=\"Document as attachment\" .Send End With
Ja og nej - det kan sættes direkte ind i Word\'s egen VBA editor, og køres som makro herfra.
Kender du ikke til VBA (VisualBasic for Application) ? Send evt. dit dokument, så skal jeg smide makro\'en på, og lave en værktøjslinie med en lille knap - men kan du så selv vedligeholde det ? fd@win-consult.com
Jeg har sat koden direkte ind i Words VBA editor og prøvet at køre makroen. Jeg får dog en fejl, som lyder:
\"Compile error: User-defined type not defined\" og i VBA editoren er følgende markeret for fejlen: \"oOutlookApp As Outlook.Application\" (en af de første linjer).
Det virker helt som det skal nu! Alle tiders. For at du kan få dine point, har jeg oprettet spørgsmålet endnu engang, og du bliver så lige nødt til at svare mig dér også!
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.