Vba 用于Outllook执行Alt+；R、 卡，K

我使用Outlook 2016，希望创建一个宏，将以下击键（或命令）发送到Outlook。 它应该在Outlook中导航到菜单“开始”->，然后是“打开日历”，然后是“从通讯录”。在德语中，这是Alt+r、KA、A的组合。您可以使用VBA中提供的功能。例如：

SendKeys "%{r}", True  

它发送Alt+r

每个键由一个或多个字符表示。若要指定单个键盘字符，请使用该字符本身。例如，若要表示字母a，请使用“a”表示字符串。若要表示多个字符，请将每个附加字符附加到其前面的字符。若要表示字母a、B和C，请使用“ABC”表示字符串

---

加号（+）、插入符号（^）、百分号（%）、波浪号（~）和括号（）对SendKeys有特殊意义。若要指定其中一个字符，请将其括在大括号（{}）中。例如，若要指定加号，请使用{+}。

我创建了以下宏（不知道这是否取决于Outlook的语言，我使用的是德语版Outlook 2016/365）

我了解到你不能发送R1（Outlook会显示）…但你可以分别发送R和1。效果很好

Sub openCalendar()
SendKeys "^2", True
SendKeys "%", True
SendKeys "{R}", True
SendKeys "{1}", True
SendKeys "KA", True
SendKeys "A", True
End Sub