[VBA Outlook 2010] Hulp gevraagd bij templates

[Anand]

Hallo,

Ik moet er eigenlijk ook vanaf blijven. Maar toch wil ik het werkend krijgen . Bij het inzetten van macro's in Outlook 2010, heb ik hulp nodig bij de volgende twee wensen:

1) Hoe programmeer je de macro om te controleren of de gebruiker wel een e-mailbericht geselecteerd heeft?
De button moet een geselecteerd e-mailbericht beantwoorden, met een bepaalde opmaak. Maar wanneer de gebruiker op de knop drukt zónder een e-mailbericht te hebben geselecteerd, komt er een foutmelding. Graag zou ik een check in het script opnemen, zodat de gebruiker met een msgbox kan worden verteld dat er geen e-mailbericht is geselecteerd.

Ik heb dit gevonden:

CheckCalendar = Application.ActiveExplorer.CurrentFolder
If CheckCalendar = "Calendar" Then
'doe iets
Else
MsgBox ("This Action cannot be executed unless you are viewing your calendar")
End If

Echter (lach maar), ik kan maar niet uitvogelen wat "Calendar" moet zijn om de check over e-mail te laten zijn.


2) Hoe programmeer je de macro om een bepaalde appointment in een specifieke Exchange-agenda te plaatsen, en niet in je persoonlijke agenda?
De button moet deze afspraak in een shared Calendar plaatsen, waar deze voor iedereen zichtbaar is.


Bij voorbaat hartelijk dank voor het meedenken!

[Anand]

Niemand?

[Lustucru]

"Postvak In". Tenminste, in het nederlands en als er geen berichten zijn verplaatst etc. Beetje lompe oplossing: wat doe je als er meer berichten zijn geselecteerd, of in het postvak in ook andere zaken staan als taken, vergaderverzoeken etc?

Beter check je ieder item afzonderlijk:

Visual Basic:

Sub test()
    Dim item As Object, mailCount As Long
    For Each item In ActiveExplorer.Selection
        If TypeOf item Is MailItem Then
            'doe je ding
            mailCount = mailCount + 1
        End If
    Next item
    If mailCount > 0 Then
         MsgBox mailCount & "bericht(en) iets mee gedaan"
    Else
        MsgBox "Selecteer op minst 1 mailbericht"
   End If
End Sub

Of je bouwt gewoon een fatsoenlijke foutafhandeling in.

[Anand]

Ah supertof! Bedankt :-)

Ik ga er morgen meteen al mee aan de slag.