Sneltoets koppelen aan een macro in Outlook 2003

[martinotter]

Ik heb een macro gemaakt (gejat en aangepast) voor het opslaan van mails in een op te geven map op mijn schijf.

Nu heb ik deze al als knop op mijn werkbalk. Ik wil er graag een sneltoets aan koppelen. Hoe moet ik dit doen?

Is er een manier om de twee inputboxen te combineren in 1?

Sub VerplaatsHuidigeMailNaarMap()
Dim Item As Object
Dim Map As String
Dim BestandsNaam As String
Dim Mail As Outlook.MailItem


Map = InputBox("Geef zaaknummer:", "Bericht opslaan in...")
BestandsNaam = InputBox("Geef bestandsnaam", "Naam van het bericht")
Map = "T:\" + Map
If CreateObject("Scripting.FileSystemObject").FolderExists(Map) Then
    If Right(Map, 1) <> "\" Then
        Map = Map + "\"
    End If


For Each Item In Application.Explorers(1).Selection
If TypeName(Item) <> "MailItem" Then
    MsgBox "Selecteer eerst een mailbericht...", vbInformation, "Opdracht niet mogelijk"
    Exit Sub
End If

Set Mail = Item
If Dir(Map & BestandsNaam & ".msg") <> "" Then
    BestandsNaam = BestandsNaam & " " & Mail.ReceivedTime
    BestandsNaam = Replace(BestandsNaam, ":", "-")
End If
Mail.SaveAs Map & BestandsNaam & ".msg", olMSG
'Mail.Delete
Next
End If
End Sub

 

[Wigi]

Nu heb ik deze al als knop op mijn werkbalk. Ik wil er graag een sneltoets aan koppelen. Hoe moet ik dit doen?

Druk Alt-F8 in je Excel bestand, navigeer in de lijst naar jouw macro. Bij Opties... kan je dan een sneltoetscombinatie voorzien, evenals wat begeleidende tekst.

Wigi

 

[martinotter]

Precies! Dit werkt prima in EXCEL, maar ik wil dit in Outlook ook doen. Maar hier heb ik niet de knop 'Opties' om er een sneltoets aan te koppelen.

Druk Alt-F8 in je Excel bestand, navigeer in de lijst naar jouw macro. Bij Opties... kan je dan een sneltoetscombinatie voorzien, evenals wat begeleidende tekst.

Wigi

 

[snb]

Sub VerplaatsHuidigeMailNaarMap()
  on error resume next
  If Typename(Application.Explorers(1).Selection.items(1))<> "MailItem" Then exit Sub

  Map = "T:\" & InputBox("Zaaknummer:", "Bericht opslaan in...")
  mkdir map
  map=map & "\"

  c0 = InputBox("Bestandsnaam", "Naam van het bericht")
  For Each it In Application.Explorers(1).Selection
     item.SaveAs map  & c0 & iif(dir(Map & c0 & ".msg")="","",format(it.receivedTime,"hhmmss")) & ".msg", olMSG
  Next
End Sub

Ik heb in de outlookbibliotheek geen aanknopingspunt kunnen vinden om een toetscombinatie in te stellen.

 

[martinotter]

Thanks. helaas dan maar geen snelkoppeling.
Heb je enig idee hoe ik de knop aan alle andere gebruikers kan koppelen?
Via GPO of loginscript?
We draaien Windows 2003 SBS en de gebruikers loggen in op een Windows 2003 Terminal Server.