VBA - Create Outlook meeting without MS Teams link (SendKeys?)

[Prinny]

Hi all,

I am building a scheduler in Excel to create meetings in Outlook. We have a rota created in Excel and I am using VBA to go through the list and create/send meeting invites in Outlook.

I have most of the code working fine. Excel is creating the meeting invites and adding the details and attendees correctly. The only issue I have is that Outlook automatically sets up the meetings as an MS Teams Meeting with 'join online' links. The meetings I am scheduling are all face-to-face so MS Teams is not needed. Even if I specify a location, it still shows up as a Teams meeting too.

I've found a similar question online where they wanted to enable Teams and used SendKeys so I thought I would do the same to disable Teams.
I am using Office 365 and a UK keyboard so my shortcuts for this in Outlook are F10, H, Y3 (this is the equivalent to pressing the 'Don't host Online' button on the ribbon.

I have added this code to my macro but it isn't working:

SendKeys "{F10}", True
SendKeys "H", True
SendKeys "Y3", True

I don't have any errors but the meeting invites still show up as MS Teams meetings.

I also tried adding separate lines for "Y" and "3" but it made no difference.

We send out 300 meeting invites at a time so I would prefer not to have to display and manually click 'don't host online' if possible!

Can anyone show me what I'm doing wrong or suggest another way to make the meetings not have the Teams link?

 

[Tetra201]

Try

SendKeys "{F10}", True
SendKeys "H", True
SendKeys "MR", True
SendKeys "M", True

 

[Prinny]

Try

SendKeys "{F10}", True
SendKeys "H", True
SendKeys "MR", True
SendKeys "M", True

Thank you for replying!

Unfortunately this didn't work but I have managed to solve it by adding a one second wait between each line. I'm not sure why but Outlook wasn't registering the entries.

In case anyone has a similar question in future, I used:

.display 'display meeting request in Outlook
Application.Wait (Now + Timevalue ("0:00:01"))
SendKeys "{F10}", True
SendKeys "H", True
Application.Wait (Now + Timevalue ("0:00:01"))
SendKeys "Y", True
Application.Wait (Now + Timevalue ("0:00:01"))
SendKeys "3", True
Application.Wait (Now + Timevalue ("0:00:01"))
SendKeys "^~", True 'sends the email

 

[nedger]

Hi all,

I am building a scheduler in Excel to create meetings in Outlook. We have a rota created in Excel and I am using VBA to go through the list and create/send meeting invites in Outlook.

I have most of the code working fine. Excel is creating the meeting invites and adding the details and attendees correctly. The only issue I have is that Outlook automatically sets up the meetings as an MS Teams Meeting with 'join online' links. The meetings I am scheduling are all face-to-face so MS Teams is not needed. Even if I specify a location, it still shows up as a Teams meeting too.

How does this happen? I am desperate for this functionality - I want to be able to lots of meetings through Excel, all of which are automatically set up as Teams meetings with links etc. Currently, the only way I can begin to automate this is through sendkeys - but, as great as it is, it breaks down if you try to loop it through multiple meetings...