Outlook - zaslání odpovědi po kliknutí – Visual Basic – Fórum – Programujte.com

Zdravím,

v Outlook 2013 používám tento skript pro odesílání pevně dané odpovědi všem příjemcům. 

Sub Odpoved2()
Dim mail 
Dim replyall

For Each mail In Outlook.Application.ActiveExplorer.Selection
    If mail.Class = olMail Then
        Set replyall = mail.replyall
        With replyall
            .HTMLBody = "<font size=4>Ahoj,<br><br>" & vbCrLf & "zadaný požadavek je splněn.<br><br>" & vbCrLf & "David</font>" & vbCrLf & .HTMLBody
            .Send
        End With
    End If
Next
End Sub

Funkci mám na tlačítku v Outlook. Funguje to, jak má, pokud mám kurzor na zprávě, na kterou odpovídám. Pokud mám zároveň otevřené okno z jinou zprávou, na kterou chci odpovědět, tak po stisknutí tlačítka se mi odešle zpráva, ale jako odpověď na zprávu, kterou mám vybranou pod oknem. Potřebuji odpovědět na zprávu, kterou mám otevřenou. Jde to nějak upravit?

Díky za pomoc.

P.S. Neexistuje někde nějaký manuál k VBScript pro Outlook nejlépe v češtině?