Send aktivt dokument ved tryk på kontrolelement

Prøv

Documents(activedocument).HasRoutingSlip = True
With Documents(activedocument).RoutingSlip
    .Subject = "Indtast emnet her"
    .AddRecipient Recipient:="første modtager"
    .AddRecipient Recipient:="anden modtager"
    .Delivery = wdAllAtOnce
End With
Documents(activedocument).Route

Hej
Jeg synes ikke at det rigtigt spiller:

Programkode:

End Sub
Sub Makro2()
'
' Makro2 Makro
' Makro indspillet 21-04-2003 af Jan Kreuz Jensen
'
End Sub
Sub Makro3()
'
' Makro3 Makro
' Makro indspillet 13-05-2003 af Jan Kreuz Jensen
'Documents(activedocument).HasRoutingSlip = True
With Documents(ActiveDocument).RoutingSlip
    .Subject = "Indtast emnet her"
    .AddRecipient Recipient:="jkrj@tdc.dk"
    .AddRecipient Recipient:="anden modtager"
    .Delivery = wdAllAtOnce
End With
Documents(ActiveDocument).Route
End Sub

Private Sub CommandButton1_Click()

End Sub

Du har udkommenterer linjen


'Documents(activedocument).HasRoutingSlip = True

Og skal du kun sende til en, skal du tillige fjerne linien

    .AddRecipient Recipient:="anden modtager"

som du sikkert allerede har gennemskuet, er dette ikke mit stærkeste område...

udkommenteret ?

På forhånd tak

Fjern ' (anførselstegnet) foran linjen.

Documents(activedocument).HasRoutingSlip = True

i stedet for

'Documents(activedocument).HasRoutingSlip = True

Det funker ikke:

Programkode:

Sub Makro3()
Makro3 Makro
Documents(ActiveDocument).HasRoutingSlip = True
With Documents(ActiveDocument).RoutingSlip
    .Subject = "TEST"
    .AddRecipient Recipient:="jkrj@tdc.dk"
    .Delivery = wdAllAtOnce
End With
Documents(ActiveDocument).Route
Private Sub CommandButton1_Click()

End Sub

Hvad sker der?

Jeg har som sagt oprettet kontrolelement - og indsat dit forslag i programkoden. Når jeg trykker på elementet, sker der intet - ingen fejlbesked eller noget. Kører XP

Hvad forventer du, at der skal ske? Mailen skulle gerne bare bleve sendt uden videre. Koden bør se sådan ud, selvfølgelig med det rigtige nummer for kontrolelementet

Private Sub CommandButton1_Click()
Documents(ActiveDocument).HasRoutingSlip = True
With Documents(ActiveDocument).RoutingSlip
    .Subject = "TEST"
    .AddRecipient Recipient:="jkrj@tdc.dk"
    .Delivery = wdAllAtOnce
End With
Documents(ActiveDocument).Route
End Sub

det virker nu - men hvorfor skal der trykkes op til 5 gange på " Et program prøver at få adgang til de adresser, der er gemt i Outlook - vil du tillade det ?"

Det ligger i Outlooks sikkerhedspakke. Så vidt jeg husker kan man kun omgå det hvis man har en Exchange server, eller hvis man installerer noget 3. parts software. Det har været opppe på eksperten før, så prøv evt. at søge efter det her eller på support.microsoft.com

Tak for point