"Zend knop" in Word Document

[HarrieC]

- Office 2003
- GroupWise 7.x

Wie kan me helpen met het maken van een zend knop in een Word document. Ik wil dat een m.b.v. deze knop een document direct gemaild wordt naar een voorgedefinieerd emailadres met een voorgedefinieerd onderwerp, waardoor er verder geen interactie meer nodig is tussen de gebruiker en de emailclient voor het verzenden van het document.

Ik heb al gezocht op het internet, maar kom er niet uit.

 

[snb]

Dat kan zonder verzendknop: gebruik een circulatielijst (Menubalk/bestand/verzenden naar/circulatielijstadres....

Als het bestand wordt gesloten wordt gevraagd of het verstuurd mag worden. Klik op OK en je bent klaar.

 

[HarrieC]

Oke,

Maar als we nu toch een knop willen in het document?
Hoe kunnen we dat oplossen?

 

[DCWDPT]

Verzendknop

Ik heb daar een macro voor. Mijn macro slaat wel eerst het document op als en verstuurt dan de kopie. Op die manier blijft mijn oorspronkelijke document onaangetast. Als je dat niet wilt, moet je die code er maar even uithalen. Ook moet je zelf maar even de bodytekst van de mail aanpassen. Ik neem aan dat je zelf wel weet hoe je een knopje moet plaatsen. Mocht je verdere toelichting nodig hebben, reageer dan maar. :thumb:
Mij macro ziet er als volgt uit.

Sub E_mail()


    Dim appOutlook As Outlook.Application
    Dim oItem As Outlook.MailItem
    Dim sBody As String
    Dim sDocnaam As String

    sDocnaam = "L:\Toegang-" & CStr(Int(Timer)) & ".doc"

    Application.DisplayAlerts = wdAlertsNone
    
    ThisDocument.Unprotect
    ThisDocument.CmdVerzend.Select  'Knop Verzenden verwijderen zodat deze in document niet zichtbaar is.
    Selection.Delete
  '  ThisDocument.Protect wdAllowOnlyFormFields
    
    ActiveDocument.SaveAs FileName:=sDocnaam, FileFormat:=wdFormatDocument, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
         
    ' Nieuw e-mailbericht maken
    Set appOutlook = CreateObject("Outlook.Application")
    Set oItem = appOutlook.CreateItem(olMailItem)
    oItem.To = "toegankelijkheid@dcw.nl"
    oItem.Subject = "Aanmelding / Mutatie Toegangssysteem"
    oItem.Attachments.Add Source:=ActiveDocument.FullName
        sBody = "Goedemorgen/-middag," & vbCrLf & vbCrLf
        sBody = sBody & "Bijgaand ontvangt u van mij een verzoek voor het maken van een vingerscan "
        sBody = sBody & "of een mutatie voor het toegangssysteem." & vbCrLf
        sBody = sBody & "Ik verzoek u de nodige mutaties z.s.m. door te voeren" & vbCrLf & vbCrLf
        sBody = sBody & "Met vriendelijke groet," & vbCrLf & vbCrLf & Application.UserName
        
    If chkHTML = True Then
        oItem.HTMLBody = sBody
    Else
        oItem.Body = sBody
    End If
   
    oItem.Send
    
    Set Email = Nothing
    Set appOutlook = Nothing
    
'    If MsgBox("Wilt u Word afsluiten?", vbYesNo, "Word afsluiten") = vbYes Then
'        Application.Quit
'    Else
'        ThisDocument.Close
'        Exit Sub
'    End If
    
End Sub

 

[HarrieC]

Bedankt tot dusver.
Weet je ook de oplossing voor GroupWise ipv Outlook

 

[DCWDPT]

Helaas niet

Nee, ik ken Groupwise niet.
Zet je nog wel even je vraag op opgelost?

 

[HarrieC]

Nee, ik ken Groupwise niet.
Zet je nog wel even je vraag op opgelost?

Not yet.

GroupWise maakt een wezenlijk onderdeel uit van mijn vraag. En dus is de vraag nog niet opgelost.

 

[JanKr]

Hallo DCWDPT,

Ik probeer jou oplossing te gebruiken in een word sjabloon. Zou voor mij een mooie oplossing zijn.

Ik krijg bij het draaien van de macro de volgende foutmelding
"Compileerfout. Een door de gebruiker gedefineerde gegevenstype is niet gedefinieerd"
Deze melding slaat op de regel "appOutlook As Outlook.Application"

Ik probeer deze macro te gebruiken op ons bedrijfsnetwerk waarin we Office 2003 gebruiken.

Alvast dank voor je reactie.

Jan